[VB 2010]Updater Geht nicht

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


    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

    Einmal editiert, zuletzt von Kevin B. ()

  • 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.

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


    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.

  • 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

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


    Ich teste deinen Code jetzt mal kurz..

  • 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.

  • 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)
  • Zitat

    Timeout für Vorgang überschritten

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

  • 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.

  • 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))

  • @



    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. :whistling:

  • 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

  • Ich ahbe dir den gesamten Code oben gepostet.


    Schick mir mal deine TV daten..

  • do.de - Domain-Offensive - Domains für alle und zu super Preisen