[VB 2010]Updater Geht nicht

Kevin B. · 14. April 2012

Hey ich hab mir ein Updater Gebastelt mit VB 2010 aba der will ihren wie nicht so Funktionieren wie in den Video
Code

PHP

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Computer.FileSystem.FileExists("C:\Map Updater\version.txt") Then
            My.Computer.FileSystem.DeleteFile("C:\Map Updater\version.txt")
        End If
        My.Computer.Network.DownloadFile("http://nordtrans-logistik.de/ucp/update/version.txt", "C:\Map Updater\version.txt")
        Dim Dateiversion As String
        Dateiversion = My.Computer.FileSystem.ReadAllText("C:\Map Updater\version.txt")
        If Dateiversion > Me.version.Text Then
            If MsgBox("Wollen Sie ein Update Duchführen", MsgBoxStyle.YesNo = "Update?") = MsgBoxResult.Yes Then
            Else : End If
            My.Computer.FileSystem.DeleteFile("C:\Map Updater\version.txt", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently, FileIO.UICancelOption.DoNothing)
        Else : End If
    End Sub
End Class

Alles anzeigen

Video
[video]

Externer Inhalt www.youtube.com

Inhalte von externen Seiten werden ohne Ihre Zustimmung nicht automatisch geladen und angezeigt.

Durch die Aktivierung der externen Inhalte erklären Sie sich damit einverstanden, dass personenbezogene Daten an Drittplattformen übermittelt werden. Mehr Informationen dazu haben wir in unserer Datenschutzerklärung zur Verfügung gestellt.

[/video]
Kann mir da wer sagen was ich Vergessen Habe?
//edit
Es Funktioniert nicht als Runterladen tut er sie Zwar aba nicht erneuern wen ich es ein 2tes mal Debuge Und er Kontrolliert die Version nicht mit den Labe =version

Lars Vegas · 14. April 2012

Er schreibt die Datei in das angegebende Verzeichnis,wenn nun die Datei bereits vorhanden ist soll er sie überschreiben, genau diesen Parameter hast du ignoriert.

Code

My.Computer.Network.DownloadFile("http://www.bla.de/bla.txt", "C\bla.txt", Nothing, Nothing, False, 100, True)

Parameter von Downloadfile:

Url zur Datei
Wo soll die Datei hingeschrieben werden?
Benutzername? (Standard: Nothing / "")
Passwort? (Standard: Nothing / "")
Soll der Fortschritt angezeigt werden? (True oder False)
Timeout (Als Integer in Millisekunden Standard: 100)
Datei überschreiben? (True oder False, Standard Wert: False)

Der Updater den ich Vewende (z.B im KeyBinder) sieht so aus:

Code

Private Sub CheckForUpdates()
     	Dim web As New WebClient
Dim version As String = My.Computer.FileSystem.ReadAllText(startpath & "\version.ini")
    	Version_label.Text = version
    	latestversion_str = web.DownloadString("http://dev.bigginhd.de/GKeyBinder/version.txt")
    	lversion.Text = latestversion_str
    	If latestversion_str > version Then
        	update_button.Enabled = True
    	End If
	End Sub

Ich würde dir empfehlen im Programm Ordner eine datei Namens
"version.ini" abzulegen die, die Versiond er Software enthält.Dann wird
die .ini mit dem String vom Webserver verglichen.

Kevin B. · 14. April 2012

der im TUT hat das doch dahinten so auch net
Nothing, Nothing, False, 100, True
die Datei ist ja für alle offen

Lars Vegas · 14. April 2012

Ja dann behalt den Fehler, so kann ich dir nicht helfen.

Datei wird heuntergeladen => Abgespeichert

Neustart:

Datei wird heruntergeladen => Hoppla die ist da schon => abgebrochen

Ich hatte dir auch eben Quellcode gepostet, der wäre etwas übersichtlicher.

SSL · 14. April 2012

Du hast aber My.Computer.Network.DownloadFile("http://nordtrans-logistik.de/ucp/update/version.txt", "C:\Map Updater\version.txt") stehen

Lars Vegas · 14. April 2012

SSL

Ja und?

Kevin B. · 14. April 2012

ich hab es doch drin aba da passiert genau so viel wie voher

So lädt er sie Runter

PHP

My.Computer.Network.DownloadFile("http://www.nordtrans-logistik.de/ucp/update/version.txt", "C:\Map Updater\version.txt")

SO passiert da nix

PHP

My.Computer.Network.DownloadFile("http://www.nordtrans-logistik.de/ucp/update/version.txt", "C:\Map Updater\version.txt", Nothing, Nothing, False, 100, True)

und im Video hat er es auch nicht anders und es klappt bei ihn nur bei mir nicht

Lars Vegas · 14. April 2012

Erstmal schreibst du GANZ oben im Code "Option Strict On".

Ich teste deinen Code jetzt mal kurz..

Kevin B. · 14. April 2012

Zitat von Lars Vegas

Erstmal schreibst du GANZ oben im Code "Option Strict On

hat der Type ja auch nicht
danke fürs Testen

Lars Vegas · 14. April 2012

Evtl. ist er so "Professionell" und hat es in den Einstellungen als Standard gesetzt oder er ist ein Option Strict Off faulpelz..

Bei einem Timeout von 100 klappt es nicht, stell das Timeout mal auf 500...

/e

Code

My.Computer.Network.DownloadFile("http://www.nordtrans-logistik.de/ucp/update/version.txt", "C:\Map Updater\version.txt", Nothing, Nothing, False, 500, True)
    	Label1.Text = My.Computer.FileSystem.ReadAllText("C:\Map Updater\version.txt")

Ich drücke auf den Button es wird 1.0 angezeigt, dann ändere ich die Datei ab drücke auf den Button, zack steht wieder "1.0" und die Datei wurde überschrieben.

Kevin B. · 14. April 2012

Bei mir kommt ja nicht mal was mit den Button das ich Klicken kann
ich hab es jetzt mal im Login Format mit rein gemacht udn ein Button Gesetzt und den rauf Geklick und er zeigt mir dsa an
Timeout für Vorgang überschritten

PHP

My.Computer.Network.DownloadFile("http://www.nordtrans-logistik.de/ucp/update/version.txt", "C:/Map Updater/version.txt", Nothing, Nothing, False, 500, True)

Lars Vegas · 14. April 2012

Zitat

Timeout für Vorgang überschritten

Dann denk dochmal nach
Bei mir dauert es weniger als 500ms, wenn dein Internet langsam ist musst du es hochstellen..
1000ms => 1 sekunde.

Kevin B. · 14. April 2012

ja okay denk Fehler
Nun Lädt er sie Runter aba er Prüft Vorher nicht wie im Video
also das kommt nicht

PHP

If MsgBox("Wollen Sie ein Update Duchführen", MsgBoxStyle.YesNo = "Update?") = MsgBoxResult.Yes Then

Lars Vegas · 14. April 2012

Mach es doch einfach so wie ich es dir vorgeschlagen habe, du wirst schon Probleme bekommen wenn du auf einem fremden PC in C:\ schreiben willst.
Manche Systeme blockieren das..

Eine Variable ist einfach besser.

/e

Poste deinen ganzen Code von der Update Funktion.

Kevin B. · 14. April 2012

PHP

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Updats Werden Gesucht...")
        If My.Computer.FileSystem.FileExists("C:\Map Updater\version.txt") Then
            My.Computer.FileSystem.DeleteFile("C:\Map Updater\version.txt")
        End If
        My.Computer.Network.DownloadFile("http://www.nordtrans-logistik.de/ucp/update/version.txt", "C:\Map Updater\version.txt", Nothing, Nothing, False, 5000, True)
        If version1.Text = My.Computer.FileSystem.ReadAllText("C:\Map Updater\version.txt") Then
            If MsgBox("Wollen Sie ein Update Duchführen", MsgBoxStyle.YesNo = "Update?") = MsgBoxResult.Yes Then
                MsgBox("Update Gestartet")
            Else : End If
            My.Computer.FileSystem.DeleteFile("C:\Map Updater\version.txt", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently, FileIO.UICancelOption.DoNothing)
        Else : End If
    End Sub

Alles anzeigen

Radanua · 14. April 2012

Nutze für sowas am besten WebClient...

PHP

Dim Withevents WebClient As New System.NET

String Abfragen:

PHP

Dim StrinName As String = WebClient.DownloadString(New Uri("Link zur Website"))

Download von Daten:

PHP

WebClient.DownloadAsync("Pfad zum Download", "Download Speicherort Lokal")

Kannste auch viel einfacher Controls zur Anzeige von Download Status, Geschwindigkeit und co. nutzen...

((EDIT: Alles ausm Kopf.. - Fehler sind durchaus möglich))

Lars Vegas · 14. April 2012

@

Radanua

Diese Methode habe ich bereits gepostet, anscheinend will der TE diese nicht verwenden.

@TE

If version1.Text = My.Computer.FileSystem.ReadAllText("C:\Map Updater\version.txt") Then

Da ist der Fail, da muss "<" rein.

Kevin B. · 14. April 2012

Lars Vegas

hab es Geändert Laden tut er sie nun baa wie schon Gesagt erhalte ich die Meldung nicht

PHP

MsgBox("Wollen Sie ein Update Duchführen", MsgBoxStyle.YesNo = "Update?") = MsgBoxResult.Yes Then

Radanua
Gibt es da ihren wo eine Video Anleitung?
den so ja ka wie das gehen sollte
ich mach das einfach noch nicht lange mit VB

Lars Vegas · 14. April 2012

Zitat

Radanua

Gibt es da ihren wo eine Video Anleitung?

den so ja ka wie das gehen sollte

ich mach das einfach noch nicht lange mit VB

Alles anzeigen

Ich ahbe dir den gesamten Code oben gepostet.

Schick mir mal deine TV daten..

Kevin B. · 14. April 2012

Zitat von Lars Vegas

Ich ahbe dir den gesamten Code oben gepostet.

Da Bekam ich nur Fehler aba hab ich ganz oben System.Net Geschreiben Ging nix mehr
Daten Kommen Per PN