Updater Funktioniert nicht

  • VB.NET

Es gibt 46 Antworten in diesem Thema. Der letzte Beitrag () ist von vb-profi.

    Updater Funktioniert nicht

    Hallo Com,

    Ich weiß jetzt nicht ob es hier rein gehört aber ein Problem gehört eher zum Programm also einem Spiel,

    Ich habe eine Leitstelle Programmiert und bin nun am Updater, ich habe den Updater als externes Programm geschrieben damit ich nachher alles überschreiben kann.

    Im Debug und wenn ich erstelle und vom Ordner aus Starte funktioniert er wie er soll auch in Verbindung mit der Leitstelle im Ordner.

    Packe ich aber die Dateien also die beiden .exe Dateien mit Inno Setup in eine Setup Datei und installiere das will der Updater weder aus dem Installation Ordner oder aus dem Programm der Leitstelle funktionieren.

    der Updater Startet zwar downloadet mir aber die Datei nicht und zeig mir auch nicht die MB zahl an.

    was mache ich falsch hier der Code vom Updater:

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.ComponentModel
    4. Public Class Form1
    5. Dim i As Integer = "1"
    6. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    7. DownloadFile()
    9. End Sub
    12. Sub DownloadFile()
    14. Dim wb As New System.Net.WebClient()
    15. AddHandler wb.DownloadProgressChanged, AddressOf ProgressChanged
    16. Dim uri As New Uri("http://www.fsprogramming.nebellande-orga.de/download/LeitstelleEifelhausen.exe")
    17. wb.DownloadFileAsync(uri, Application.StartupPath + "\Leitstelle_Eifelhausen_UPDATE.exe")
    19. End Sub
    20. Sub ProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs)
    21. Dim Bytes As Integer = e.BytesReceived
    22. Dim totalbytes As Integer = e.TotalBytesToReceive
    23. Bytes = Bytes / 1024
    24. totalbytes = totalbytes / 1024
    25. Bytes = Bytes / 1024
    26. totalbytes = totalbytes / 1024
    27. Math.Round(Bytes, 2)
    28. Math.Round(totalbytes, 2)
    29. Label4.Text = Bytes & " MB/" & totalbytes & " MB"
    30. ProgressBar1.Value = e.ProgressPercentage
    31. Label3.Text = ProgressBar1.Value & " %"
    32. If e.ProgressPercentage = "100" Then
    33. While i = "1"
    34. i = "0"
    35. My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\Leitstelle Eifelhausen.exe")
    36. Application.DoEvents()
    37. My.Computer.FileSystem.RenameFile(Application.StartupPath & "\Leitstelle_Eifelhausen_UPDATE.exe", "Leitstelle Eifelhausen.exe")
    38. Shell(Application.StartupPath + "\Leitstelle Eifelhausen.exe")
    39. Application.Exit()
    40. End While
    41. End If
    42. End Sub
    45. End Class

    Mit freundlichen Grüßen
    Dominik

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „[TNL]Dominik“ ()

    ja ich habe jetzt Option Strict on und der Code bei mir ist raus ich update grade nich oben. wenn ich das in Den Download Complete Ereignes setze sagt er der Download sei fertig und startet aber die datei die ist aber immer noch die Alte und er will dann wieder ein Update machen und das geht dann in einer schleife durch

    Edit://

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.ComponentModel
    4. Public Class Form1
    5. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    6. DownloadFile()
    7. End Sub
    10. Sub DownloadFile()
    12. Dim wb As New System.Net.WebClient()
    13. AddHandler wb.DownloadProgressChanged, AddressOf ProgressChanged
    14. AddHandler wb.DownloadDataCompleted, AddressOf DownloadComplete
    15. Dim uri As New Uri("http://www.fsprogramming.nebellande-orga.de/download/LeitstelleEifelhausen.exe")
    17. wb.DownloadFileAsync(uri, Application.StartupPath + "\Leitstelle_Eifelhausen_UPDATE.exe")
    19. End Sub
    20. Sub ProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs)
    21. Dim Bytes As Integer = e.BytesReceived
    22. Dim totalbytes As Integer = e.TotalBytesToReceive
    23. Bytes = Bytes / 1024
    24. totalbytes = totalbytes / 1024
    25. Bytes = Bytes / 1024
    26. totalbytes = totalbytes / 1024
    27. Math.Round(Bytes, 2)
    28. Math.Round(totalbytes, 2)
    31. Label4.Text = Bytes & " MB/" & totalbytes & " MB"
    32. ProgressBar1.Value = e.ProgressPercentage
    33. Label3.Text = ProgressBar1.Value & " %"
    35. End Sub
    36. Sub DownloadComplete(sender As Object, e As DownloadDataCompletedEventArgs)
    37. My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\Leitstelle Eifelhausen.exe")
    38. My.Computer.FileSystem.RenameFile(Application.StartupPath & "\Leitstelle_Eifelhausen_UPDATE.exe", "Leitstelle Eifelhausen.exe")
    39. Application.DoEvents()
    40. Shell(Application.StartupPath + "\Leitstelle Eifelhausen.exe")
    41. Application.Exit()
    42. End Sub
    45. End Class

    Der Code sieht schon mal vielversprechend aus. Ich kann auf den ersten Blick keinen Fehler erkennen, außer dass du das Ergebnis von Round nicht wieder den Variablen zuweist, das sollte aber keinen Einfluss auf den Download haben. Verwende auch statt Shell Process.Start.

Facebook
Telefonspende