ein kleiner Patcher! Wo liegt mein Fehler??

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • ein kleiner Patcher! Wo liegt mein Fehler??

    Quellcode

    1. Imports System.Security.Cryptography
    2. Imports System.Text
    3. Imports System.IO
    4. Imports System.Net
    5. Public Class Form1
    6. Public WithEvents Patchlist As WebClient
    7. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    8. tmWait.Start()
    9. tbAusgang.Text = tbAusgang.Text & "- prüfe auf Version"
    10. 'fd.bin Aktualitätsvorgang
    11. Try
    12. Dim patchliste As New System.Xml.XmlDocument()
    13. patchliste.Load("http://daywalker.ij2.de/patcher/patchlist.xml")
    14. lbDateiA.Text = patchliste.GetElementsByTagName("checksum").Item(0).ChildNodes(0).InnerText
    15. Catch ex As Exception
    16. tbAusgang.Text = tbAusgang.Text & vbNewLine & "- Fehler beim laden der Patchliste"
    17. End Try
    18. 'Falls die Datei existiert
    19. If My.Computer.FileSystem.FileExists("C:/FileDeleter/fd.bin") Then
    20. 'den HashCode berechnen
    21. Try
    22. lbDateiN.Text = MD5FileHash("C:/FileDeleter/fd.bin")
    23. Catch ex As Exception
    24. 'Falls es einen Fehler geben sollte
    25. tbAusgang.Text = tbAusgang.Text & vbNewLine & "- Fehler beim prüfen von fd.bin"
    26. End Try
    27. 'Falls sich was an der Datei verändert haben sollte
    28. Try
    29. If lbDateiN.Text = lbDateiA.Text Then
    30. 'Falls fd.bin nicht aktuell ist
    31. tbAusgang.Text = tbAusgang.Text & vbNewLine & "- fd.bin wird heruntergeladen"
    32. Patchlist.DownloadFileAsync(New Uri("http://daywalker.ij2.de/patcher/fd.bin"), ("C:/FileDeleter/fd.bin"))
    33. Else
    34. 'Falls die Datei aktuell ist
    35. tbAusgang.Text = tbAusgang.Text & vbNewLine & "- fd.bin ist aktuell" & vbNewLine & "- das Programm wird gestartet"
    36. End If
    37. Catch ex As Exception
    38. tbAusgang.Text = "Fehler"
    39. End Try
    40. Else
    41. 'falls fd.bin noch nicht existiert
    42. tbAusgang.Text = tbAusgang.Text & vbNewLine & "- fd.bin konnte nicht gefunden werden" & vbNewLine & "- fd.bin wird heruntergeladen"
    43. Patchlist.DownloadFileAsync(New Uri("http://daywalker.ij2.de/patcher/fd.bin"), ("C:/FileDeleter/fd.bin"))
    44. End If
    45. End Sub
    46. Public Function MD5FileHash(ByVal sFile As String) As String
    47. Dim MD5 As New MD5CryptoServiceProvider
    48. Dim Hash As Byte()
    49. Dim Result As String = ""
    50. Dim Tmp As String = ""
    51. Dim FN As New FileStream(sFile, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
    52. MD5.ComputeHash(FN)
    53. FN.Close()
    54. Hash = MD5.Hash
    55. For i As Integer = 0 To Hash.Length - 1
    56. Tmp = Hex(Hash(i))
    57. If Len(Tmp) = 1 Then Tmp = "0" & Tmp
    58. Result += Tmp
    59. Next
    60. Return Result
    61. End Function
    62. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    63. Me.Close()
    64. End Sub
    65. Private Sub Patchlist_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles Patchlist.DownloadProgressChanged
    66. Me.ProgressBar1.Value = e.ProgressPercentage
    67. lbbytes.Text = e.BytesReceived & " von " & e.TotalBytesToReceive & " Bytes"
    68. End Sub
    69. End Class
    Alles anzeigen


    Wo liegt da mein Fehler??

    Immer, wenn ich die Datei aus meinem Debug Ordner starten will kommt da folgende Fehlermeldung:
    "Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt"