mein Patcher funktioniert aber...

  • VB.NET
  • .NET (FX) 1.0–2.0

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von felipe12305.

    mein Patcher funktioniert aber...

    Mein Patcher funktzuniert aber es hält dann an ? z.b es sind 305 dateien er hält dann bei 89 an und macht nichts mehr könnt ihr mal den code angucken bitte
    da kommt auch keine fehlermeldung bin schon fast am verzweifeln

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Net
    3. Imports System.Threading
    4. Public Class Patcher
    6. ' ############################## Deklarationen ############################## '
    7. WithEvents CPatcher As New WebClient
    9. Private FileName As String ' Datei Name (für downloads)
    10. Private FileBytes As Long ' Datei Größe in Bytes (für Update check)
    11. Private FileSig As String ' Datei Signatur (für Update check)
    12. Private SubFolder(1) As String ' Unterordner (n + 1)
    13. Private scanner As StreamReader ' Zum auslesen der list.txt
    14. Private Token As Int32 ' Token deklatation
    15. Private Folder As String ' Folder deklaration
    16. Private rLine As String ' rLine deklaration
    17. Private RunBackground As Boolean ' Check für Autostart
    19. ' ############################## Regionen ############################## '
    21. #Region "-> Form"
    22. ' Form Bewegen
    23. Private ptMouseDownLocation As Point
    24. Private Sub f_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
    25. If e.Button = Windows.Forms.MouseButtons.Left Then
    26. ptMouseDownLocation = e.Location
    27. End If
    28. End Sub
    29. Private Sub f_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
    30. If e.Button = Windows.Forms.MouseButtons.Left Then
    31. Me.Location = e.Location - ptMouseDownLocation + Me.Location
    32. End If
    33. End Sub
    34. ' Start Patcher
    35. Private Sub Patcher_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    36. Init()
    37. End Sub
    38. Private Sub Patcher_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    39. RunBackground = False
    40. If Command() <> "" Then
    41. Dim args As String() = Environment.GetCommandLineArgs()
    42. If args(1) = "background" Then
    43. Me.Opacity = 0
    44. RunBackground = True
    45. End If
    46. End If
    47. If Not RunBackground Then
    48. Me.Opacity = 100
    49. End If
    50. End Sub
    51. #End Region
    53. #Region "-> Buttons"
    54. ' Start Button
    55. Private Sub Button_Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Start.Click
    56. Start()
    57. End Sub
    58. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    59. Me.WindowState = FormWindowState.Minimized
    60. End Sub
    61. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    62. Me.Close()
    63. End Sub
    65. Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    66. Process.Start("https://www.google.com/")
    67. End Sub
    69. Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    70. Process.Start("https://www.google.com/")
    71. End Sub
    72. Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Click
    73. Shell("config.exe")
    74. End Sub
    75. #End Region
    77. #Region "-> Patcher"
    79. Private Sub CPatcher_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles CPatcher.DownloadProgressChanged
    80. SetProperty(Patch_File_New, "Image", GetProgressImage(e.ProgressPercentage)) ' Downloadfortschritt setzen
    81. End Sub
    83. Private Sub Updater_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles Updater.DoWork
    84. LOG("Patcher::Connecting(" & PATCH_URL & ")") ' Log schreiben
    85. If Not CheckList("list.txt") Then ' Überprüfen ob list.txt existiert oder Internetverbindung besteht
    86. LOG("Patcher::CheckList() [Could not find list.txt on Server]") ' Log schreiben
    87. MsgBox(GetLang(0), MsgBoxStyle.Critical, TITLE) ' Error ausgeben
    88. Terminate() ' Prozess beenden
    89. End If
    90. If File.Exists("list.txt") Then File.Delete("list.txt") ' list.txt löschen falls es existiert
    91. My.Computer.Network.DownloadFile(PATCH_URL & "list.txt", "list.txt") ' list.txt downloaden
    92. SetProperty(Patch_Message, "Text", GetLang(7)) ' list.txt check anzeigen
    93. If Not File.Exists("gzip.exe") Then ' Überprüfen ob gzip.exe nicht existiert
    94. File.WriteAllBytes("gzip.exe", My.Resources.gzip) ' gzip.exe erstellen
    95. End If
    96. If File.Exists("list.txt") Then ' Existiert die list.txt ?
    97. scanner = New StreamReader("list.txt")
    98. If "VER: " & VER <> scanner.ReadLine() Then ' überprüfen ob die Version stimmt
    99. If RunBackground Then ' Wenn es im Background modus
    100. delay(1000) ' am laufen ist kein Update durchführen
    101. Terminate() ' und das Programm beenden
    102. End If
    103. MsgBox(GetLang(1), MsgBoxStyle.Information, "Update") ' Nachricht ausgeben, dass ein neuer Patch da ist
    104. If Not CheckList("NewPatcher.exe") Then ' Überprüfen ob NewPatcher.exe existiert oder Internetverbindung besteht
    105. LOG("Patcher::CheckList() [Could not find NewPatcher.exe on Server]") ' Log schreiben
    106. MsgBox(GetLang(2), MsgBoxStyle.Critical, TITLE) ' Error ausgeben
    107. Terminate() ' Prozess beenden
    108. End If
    109. End If
    110. scanner.ReadLine() ' Leerzeile einlesen
    111. Dim MaxLine As Integer = File.ReadAllLines("list.txt").Length - 2 ' Anzahl Patches
    112. SetProperty(Patch_Message, "Text", GetLang(5)) ' Update Nachricht anzeigen
    113. Dim Count As Integer = 0 ' Count deklaration
    114. Do
    115. If CPatcher.IsBusy Then ' Findet grad ein Patch/Download statt ?
    116. SetProperty(Patch_Message, "Text", "Patch " & Count & "/" & MaxLine) ' Patch fortschritt setzen
    117. Else
    118. Do
    119. Extract(FileName, FileBytes, FileSig) ' Datei entpacken
    121. rLine = Decrypt(scanner.ReadLine()) ' Aktuelle Zeile auslesen
    122. If Not IsNothing(rLine) Then ' Überürpfen ob rLine einen Inhalt hat
    123. FileName = GetToken(rLine, 0) ' Datei Namen auslesen
    124. FileBytes = GetToken(rLine, 1) ' Datei Größe auslesen
    125. If USE_MD5 Then
    126. FileSig = GetToken(rLine, 2) ' Datei Signatur
    127. End If
    128. Token = 0 ' Token zurücksetzen
    129. Folder = Nothing ' Folder zurücksetzen
    131. For i As Integer = 0 To SubFolder.Length - 1
    132. SubFolder(i) = Nothing ' SubFolder zurücksetzen
    133. Next i
    135. If Not IsNothing(rLine) Then
    136. For i As Int32 = 0 To StrCount(rLine, "\") - 1
    137. SubFolder(Token) = GetToken(rLine, i, "\")
    138. Token += 1
    139. Next
    140. End If
    142. If Not IsNothing(SubFolder(0)) Then ' Überprüfen ob SubFolder(0) einen Inhalt hat
    143. For i As Integer = 0 To SubFolder.Length - 1
    144. If Not IsNothing(SubFolder(i)) Then ' Überprüfen ob SubFolder(i) einen Inhalt hat
    145. Folder &= SubFolder(i) & "\" ' Folder füllen mit Informationen
    146. If Not Directory.Exists(Folder) Then Directory.CreateDirectory(Folder) ' Sollte der Ordner nicht existieren, diesen erstellen
    147. End If
    148. Next i
    149. End If
    151. If CheckFile(FileName, FileBytes, FileSig) Then ' Überprüfen ob die Datei 1:1 mit dem auf dem Server ist
    152. Count += 1 ' Count höher setzen
    153. SetProperty(Patch_Message, "Text", GetLang(10))
    154. If Count Mod 100 = 0 Then ' Alle 100 durchgänge aktualisieren
    155. SetProperty(Patch_Message, "Text", "Patch " & Count & "/" & MaxLine) ' Patch fortschritt setzen
    156. SetProperty(Patch_Total_New, "Image", GetProgressImage(((Count / MaxLine) * 100))) ' Patch fortschritt setzen
    157. End If
    158. If Count = MaxLine Then ' Wenn Count gleich MaxLine ist
    159. Exit Do ' Do Loop verlassen
    160. End If
    161. End If
    162. End If
    163. Loop While CheckFile(FileName, FileBytes, FileSig) ' Wiederhohlen, bis eine datei zum download ansteht
    165. If Count < MaxLine Then ' Wenn Coount kleiner als MaxLine ist
    166. Dim URL As New Uri(PATCH_URL & FileName) ' Patch URL für Updater setzen
    167. Dim dateiname As String = Path.GetFileName(PATCH_URL & FileName) ' Den dateinamen holen von der Datei die updated werden soll
    168. CPatcher.DownloadFileAsync(URL, Folder & dateiname) ' Datei update starten
    169. Count += 1 ' Count höher setzen
    170. LOG("Patcher::Download(" & Count & ") [" & FileName & "]")
    171. SetProperty(Patch_Message, "Text", "Patch " & Count & "/" & MaxLine) ' Patch fortschritt setzen
    172. SetProperty(Patch_Total_New, "Image", GetProgressImage((((Count - 1) / MaxLine) * 100))) ' Patch fortschritt setzen
    173. Else
    174. Do While Process.GetProcessesByName("gzip").Length > 0 ' Solange dateien entpackt werden warten.
    175. SetProperty(Patch_Message, "Text", GetLang(3)) ' Notiz, dass noch entpackt wird.
    176. Loop
    177. SetProperty(Button_Start, "Enabled", True) ' Start Button freigeben
    178. SetProperty(Button_Start, "Image", My.Resources.start) ' Start Button Bild setzen
    179. SetProperty(Patch_File_New, "Image", GetProgressImage(100)) ' Patch fortschritt auf Maximum setzen
    180. SetProperty(Patch_Total_New, "Image", GetProgressImage(100)) ' Patch fortschritt auf Maximum setzen
    181. SetProperty(Patch_Message, "Text", GetLang(4)) ' Notiz, dass das Pathen fertig ist
    182. If File.Exists("gzip.exe") Then File.Delete("gzip.exe") ' gzip.exe löschen
    183. If RunBackground Then ' Wenn der Background modus ausgeführt wird
    184. delay(1000) ' 1000ms warten
    185. Terminate() ' Nach Background Update beenden
    186. End If
    187. Exit Sub ' Patcher Aktionen beenden
    188. End If
    189. End If
    190. Loop
    191. End If
    192. End Sub
    193. #End Region
    194. End Class


    Riesigen Code in Spoiler-Tags gesetzt. ~Thunderbolt

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Thunderbolt“ ()

    Moin,

    da muss ich Dir erstmal das an den Kopf werfen:
    Updater - Warum sollte man eigene Updater vermeiden?

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Du wolltest doch Hilfe?! Dazu gehört auch dieser Teil, verstehe nicht, was Du dann mit "ich will das nicht" meinst.
    Ist u. a. eine wichtige Sache.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Trade schrieb:

    Du wolltest doch Hilfe?! Dazu gehört auch dieser Teil, verstehe nicht, was Du dann mit "ich will das nicht" meinst.
    Ist u. a. eine wichtige Sache.

    Grüße


    Er prüft doch Signaturen wenn du dir mal den Code 10 Sekunden angeschaut hättest ohne direkt zu urteilen wüsstest du das auch. Außerdem ist er daran jetzt nicht weiter interessiert also ist es doch egal.
    Ich weiß du kommst jetzt wieder dass das nicht sicher ist wie er es macht oder das die Signaturprüfung für etwas anderes gedacht ist aber ist doch egal.

    Ou - sorry, das hatte ich gar nicht gesehen, vmtl, weil die Funktion nur aufgerufen wird.
    Edit: @Markus Jacobs Bin grade auf dem PC des TE und das ist keine Signierung, sondern ein Integritätscheck, also ist der Link von mir doch gültig. :P

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Trade“ ()

    felipe12305 schrieb:

    Versuchs mal im Einzelschritt zu debuggen und dann die Variablen durchzugehen.. vllt. Gibts nen Fehler der intern auftritt..
    btw. Zieemlich viele Verschachtelungen.. :D

    LG & viel Glück


    Da Steht also wenn ich einzel schritt debugge mache kommt der Fehler :

    patcher.exe!patcher.Patcher.New()Zeile 7
    in klammern [Externer Code]

    und bei der auto box steht :

    Name Wert Typ

    Patcher Nothing System.Net.Webclient


    das ganze leuchtet gelb mit einem pfeil auf die variable

    Genau, ist einfach ein Hash, um das zu prüfen. Also sogar nicht mal Integritätscheck, sah nur vorhin so aus, sondern einfach zum Suchen von geänderten Dateien. ;)
    Aber konnte ja niemand wissen und es ist ja auch ein ​FileSig vorhanden, also niemand kann Dir Schuld geben.

    Zum Thema: Habe dem TE den Code ein wenig verbessert und geholfen, kann sein, dass er sich nochmal meldet.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    @Bullrihgter Das bedeutet das deine Patcher-Variable leer ist, also ist da i-was schiefgelaufen. Versuch nach den jew. Methoden etwas im Debug oder der Console auszugeben mit Debug.Print("") oder Console.WriteLine(""), vllt nach dem Schema "Funktion 'x' ausgeführt." wobei x naja weisst schon xD

    LG

Facebook
Telefonspende