Http Patcher

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Nixodas.

    Http Patcher

    Hallo Community,
    ich habe ein kleines Problem
    Ich habe einen Patcher geschrieben, der sich eine Liste holt mit den Daten und dann diese Überprüft nach Größe und wenn diese nicht mit der lokalen Datein übereinstimmt, wird die Datei gedownloadet.
    Allerdings hängt sich das programm immer nach der 4ten Datei auf

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO, System.Net, System.Text
    2. Public Class Form1
    4. Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    5. Dim WithEvents client As New WebClient
    7. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    8. Try
    9. System.IO.File.Delete("patch.txt")
    10. Catch : End Try
    11. Try
    12. System.IO.File.Delete("browserpic1.jpg")
    13. Catch : End Try
    14. End Sub
    16. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    17. Try
    18. client.DownloadFile("http://*******.de/patch.txt", "patch.txt")
    19. Catch ex As Exception
    20. MsgBox("Fehler beim Übertragen der Patchlist!", MsgBoxStyle.Exclamation, "Patchlist")
    21. Me.Close()
    22. End Try
    24. TextBox1.ReadOnly = True
    26. client.DownloadFile("http://********.de/browserpic1.jpg", "browserpic1.jpg")
    27. PictureBox1.ImageLocation = "browserpic1.jpg"
    29. If Not Directory.Exists("pack") Then
    30. Directory.CreateDirectory("pack")
    31. End If
    32. If Not Directory.Exists("lib") Then
    33. Directory.CreateDirectory("lib")
    34. End If
    35. If Not Directory.Exists("mark") Then
    36. Directory.CreateDirectory("mark")
    37. End If
    38. If Not Directory.Exists("miles") Then
    39. Directory.CreateDirectory("miles")
    40. End If
    41. Dim i As Integer = 0
    42. For Each file In System.IO.File.ReadAllLines("patch.txt")
    43. i += 1
    44. Next
    45. ProgressBar1.Maximum = i
    46. End Sub
    48. Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    49. TextBox1.AppendText(">>Patcher by Nixodas<<" & vbNewLine)
    50. ProgressBar1.Value = 0
    51. Application.DoEvents()
    52. patch()
    53. End Sub
    55. Private Sub patch()
    57. For Each l In System.IO.File.ReadAllLines("patch.txt")
    58. Try
    59. TextBox1.AppendText("Überprüfung von: " & l & vbNewLine)
    60. Try
    61. Dim inetsize
    62. Dim request As FileWebRequest = CType(WebRequest.Create("http://*******.de/" & l), FileWebRequest)
    63. Dim response As FileWebResponse = CType(request.GetResponse(), FileWebResponse)
    64. inetsize = response.ContentLength
    66. If System.IO.File.Exists(l) Then
    68. Dim inf As New FileInfo(l)
    69. Dim locasize As Long
    70. locasize = inf.Length
    71. If locasize <> inetsize Then
    72. Try
    73. client.DownloadFileAsync(New Uri("http://********.de/" & l), l)
    74. TextBox1.AppendText("Download von: " & l & vbNewLine)
    75. TextBox1.ScrollToCaret()
    76. Catch ex2 As Exception
    77. TextBox1.AppendText("Fehler bei: " & l & vbNewLine)
    78. TextBox1.ScrollToCaret()
    79. End Try
    80. End If
    81. Else
    82. client.DownloadFileAsync(New Uri("http://*******.de/" & l), l)
    83. TextBox1.AppendText("Download von: " & l & vbNewLine)
    84. TextBox1.ScrollToCaret()
    85. End If
    86. Catch : End Try
    87. Catch
    88. TextBox1.AppendText("Fehler bei: " & l & vbNewLine)
    89. TextBox1.ScrollToCaret()
    90. End Try
    91. ProgressBar1.Value = ProgressBar1.Value + 1
    92. Application.DoEvents()
    93. Next
    94. Panel3.Visible = True
    95. End Sub
    97. Private Sub client_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles client.DownloadProgressChanged
    98. ProgressBar2.Value = e.ProgressPercentage
    99. End Sub
    101. Private Sub Panel1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel1.Click
    102. Try
    103. System.IO.File.Delete("patch.txt")
    104. Catch : End Try
    105. Try
    106. System.IO.File.Delete("browserpic1.jpg")
    107. Catch : End Try
    108. End
    109. End Sub
    111. Private Sub Panel2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel2.Click
    112. Process.Start("http://www.******.de/index.php")
    113. End Sub
    115. Private Sub Panel3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel3.Click
    116. Try
    117. Process.Start("programm.exe")
    118. Catch
    119. MsgBox("Die Datei programm.exe wurde nicht gefunden", MsgBoxStyle.Critical, "FatalError")
    120. End Try
    121. Try
    122. System.IO.File.Delete("patch.txt")
    123. Catch : End Try
    124. Try
    125. System.IO.File.Delete("browserpic1.jpg")
    126. Catch : End Try
    127. End Sub
    128. End Class


    hier ist ma die source

    Hi,
    hast du mal Debuggt oder so? So spontan wird dir hier wohl keiner helfen können, wenn da nicht mehr infos vorhanden sind... z.b. die Fehlermeldung.
    Und wenn man Debuggt kommt man meistens selbst dahinter. Sprech aus Erfahrung
    "Wenn jemand in einem Betrieb unverzichtbar ist, dann ist dieser Betrieb falsch organisiert." - Roberto Niederer

    Ne es geht immernoch nicht
    Habe alle Trys rausgenommen
    aber er hängt sich weiterhin beid er dritten datei auf
    Es ist immer bei der dritten
    die erste datei wird runtergeladen die zweite ist leer und bei der dritten hängt er sich auf

    EDIT:// Ich denke es ist da er versuche alle dateien gleichzeitig zu downloaden
    kann ich irgendwie machen das er wartet bis eine datei fertig ist
    Kann ich irgendwie machen das er imemr eine datei runterlädt und erst dann die nächste?

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

Facebook
Telefonspende