Brauche hilfe mit meinem Patcher

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von lahmy.

    Brauche hilfe mit meinem Patcher

    Und zwar binn ich dabei einen Patcher zu machen der MD5 checksummen aus einer datei die er von einem FTP server läd abfragen soll aber ich bekomme immer diesen fehler

    FEHLER: Ungültiger threadübergreifender Vorgang: Der Zugriff auf das Steuerelement TextBox1 erfolgte von einem anderen Thread als dem Thread, für den es erstellt wurde.SOURCE:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Security.Cryptography
    3. Public Class Form1
    5. Dim PATCHURL As String = "http://darksky2.co.de/patch/client"
    6. Dim PATCHLIST As String = "http://darksky2.co.de/patch/patchlist.xml"
    8. Dim AppPath As String = My.Computer.FileSystem.CurrentDirectory
    9. Dim WithEvents PatchDownloader As New System.Net.WebClient
    10. Dim WithEvents PatchListDownloader As New System.Net.WebClient
    11. Dim DLURLS As New List(Of String)
    12. Dim ANZAHLDLS As Integer = 0
    13. Dim busy As Boolean = Nothing
    14. Public Function MD5FileHash(ByVal sFile As String) As String
    15. Dim MD5 As New MD5CryptoServiceProvider
    16. Dim Hash As Byte()
    17. Dim Result As String = ""
    18. Dim Tmp As String = ""
    20. Dim FN As New FileStream(sFile, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
    21. MD5.ComputeHash(FN)
    22. FN.Close()
    24. Hash = MD5.Hash
    25. For i As Integer = 0 To Hash.Length - 1
    26. Tmp = Hex(Hash(i))
    27. If Len(Tmp) = 1 Then Tmp = "0" & Tmp
    28. Result += Tmp
    29. Next
    30. Return Result
    31. End Function
    33. Private Sub Form1_shown(ByVal sender As Object, ByVal e As System.EventArgs)
    34. TextBox1.Text = "Starte Patchvorgang.."
    35. BG_List.RunWorkerAsync()
    36. End Sub
    38. Private Sub BG_List_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BG_List.DoWork
    39. PatchListDownloader.DownloadFileAsync(New Uri(PATCHLIST), AppPath & "\patchlist.xml")
    41. End Sub
    42. Private Sub PatchListDownloader_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles PatchListDownloader.DownloadFileCompleted
    43. TextBox1.Text = "Patchlist herruntergeladen. Starte nun das Patchen."
    44. ProgressBar2.Value = 0
    45. ProgressBar1.Value = 0
    46. BG_Pacher.RunWorkerAsync()
    48. End Sub
    50. Private Sub BG_Pacher_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BG_Pacher.DoWork
    52. If BG_Pacher.CancellationPending = True Then
    53. BG_Pacher.CancelAsync()
    54. End If
    57. Try
    58. Dim xDocument As New Xml.XmlDocument
    59. xDocument.Load(AppPath & "/patchlist.xml")
    61. TextBox1.Text = "Starte nun das Patchen"
    64. For Each node As Xml.XmlNode In xDocument.SelectNodes("Dateien/Datei")
    66. Dim DateiPfad As String = AppPath & "\" & node.Attributes("Dateiname").InnerText
    67. Dim CheckSum As String = node.Attributes("Checksum").InnerText
    68. Dim check As Boolean = Nothing
    70. TextBox1.Text = "Prüfe : " & node.Attributes("Dateiname").InnerText
    72. If File.Exists(DateiPfad) = False Then
    74. DLURLS.Add(PATCHURL & node.Attributes("Dateiname").InnerText.Replace("\", "/"))
    75. Else
    77. If CheckSum = MD5FileHash(DateiPfad) Then
    78. check = True
    80. Else
    82. DLURLS.Add(PATCHURL & node.Attributes("Dateiname").InnerText.Replace("\", "/"))
    83. check = False
    85. End If
    88. End If
    89. Next
    91. ANZAHLDLS = DLURLS.Count
    92. ProgressBar1.Maximum = ANZAHLDLS
    93. ProgressBar1.Value = 0
    95. Catch ex As Exception
    97. End Try
    102. Do
    104. Try
    105. If PatchDownloader.IsBusy = True Then
    106. busy = True
    107. Else
    109. For Each DownloadDatei In DLURLS
    111. If IsNothing(DownloadDatei) Then Exit Do
    113. Do
    115. If busy = False Then
    116. TextBox1.Text = "Patche : " & IO.Path.GetFileName(DownloadDatei)
    117. Dim SpeicherOrt As String = My.Computer.FileSystem.CurrentDirectory & "\" & DownloadDatei.Replace(PATCHURL, "").Replace("/", "\")
    119. Dim uri As New Uri(DownloadDatei)
    120. If File.Exists(SpeicherOrt) = True Then
    121. File.Delete(SpeicherOrt)
    122. End If
    124. PatchDownloader.DownloadFileAsync(uri, SpeicherOrt)
    125. busy = True
    126. Exit Do
    128. End If
    131. Loop
    134. Next
    136. File.Delete(AppPath & "\patchlist.xml")
    137. Exit Do
    139. End If
    141. Catch ex As Exception
    143. End Try
    145. Loop
    147. End Sub
    148. Private Sub PatchDownloader_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles PatchDownloader.DownloadFileCompleted
    149. busy = False
    150. If ProgressBar1.Value = ANZAHLDLS Then
    152. Else
    153. ProgressBar1.Value += 1
    154. End If
    155. End Sub
    157. Private Sub PatchDownloader_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles PatchDownloader.DownloadProgressChanged
    158. ProgressBar2.Maximum = e.TotalBytesToReceive
    159. ProgressBar2.Value = e.BytesReceived
    161. End Sub
    163. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    164. My.Settings.Hintergrundbild = ("bg.jpg")
    165. Me.BackgroundImage = Image.FromFile(My.Settings.Hintergrundbild)
    167. End Sub
    169. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    170. Me.Close()
    171. End Sub
    173. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    174. TextBox1.Text = "Starte Patchvorgang.."
    175. BG_List.RunWorkerAsync()
    176. End Sub
    177. End Class


    Ich währe überglücklich wenn mir einer helfen könnte

    aufgrund des Codeumfangs Spoiler hinzugefügt
    CodeTags gesetzt     ~VaporiZed

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

    lahmy schrieb:

    Ungültiger threadübergreifender Vorgang: Der Zugriff auf das Steuerelement TextBox1 erfolgte von einem anderen Thread als dem Thread, für den es erstellt wurde.
    Die Zauberworte heißt Invoke und Delegate.
    Die Langfassung sieht so aus, Properties musst Du entsprechend verwenden:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Delegate Sub FehlerAnzeigenCallback(ByVal message As String)
    3. Private Sub FehlerAnzeigen(ByVal message As String)
    4. If (TextBox1 Is Nothing) Then
    5. Return
    6. End If
    8. If (TextBox1.InvokeRequired) Then
    9. ' Aufruf aus anderem Thread
    10. Dim d As New FehlerAnzeigenCallback(AddressOf FehlerAnzeigen)
    11. TextBox1.Invoke(d, message)
    12. Return
    13. End If
    14. TextBox1.Text = message
    15. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    pls

    kannst du mir nicht eifach den bearbeiteten fertigen source schicken ? =
    der fehler ist da :
    Private Sub PatchListDownloader_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles PatchListDownloader.DownloadFileCompleted
    TextBox1.Text = "Patchlist herruntergeladen. Starte nun das Patchen."
    ProgressBar2.Value = 0
    ProgressBar1.Value = 0
    BG_Pacher.RunWorkerAsync()

    End Sub

    lahmy schrieb:

    kannst du mir nicht eifach den bearbeiteten fertigen source schicken ?


    Willst du ein Programm machen oder nicht?



    600. Beitrag, 1337 junge!
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

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

    lahmy schrieb:

    kannst du mir nicht eifach den bearbeiteten fertigen source schicken ? =
    der fehler ist da :
    Private Sub PatchListDownloader_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles PatchListDownloader.DownloadFileCompleted
    TextBox1.Text = "Patchlist herruntergeladen. Starte nun das Patchen."
    ProgressBar2.Value = 0
    ProgressBar1.Value = 0
    BG_Pacher.RunWorkerAsync()

    End Sub


    Da isser sicher nicht. Ausserdem frug ich nach der Zeile, und du antwortest mit 5 Zeilen.
    Aber da isser nicht, denn dort kommt Textbox1 ja gar nicht vor.

    AvoidTryCatch

    Entferne mal alle TryCatchens aussm Code, damit dir die Fehlerzeile ühaupt angezeigt wird.

    Ausser Ausserdem empfahl ich VB-Tag richtig benutzen
    Uneingerückter Code ist eine Zumutung zu lesen.

    lahmy schrieb:

    kannst du mir nicht eifach den bearbeiteten fertigen source schicken ? =
    Versteh den Fehler, wende meinen Code richtig an (mit entsprechenden Anpassungen) und Dein Problem ist gelöst.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende