Visual Basic 2008 Patcher erstellen (Größe prüfen)

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von sandiro.

    Visual Basic 2008 Patcher erstellen (Größe prüfen)

    Hallo Liebe Community,

    ich bin neu hier und habe mal eine Frage ..vielleicht kann mir jemand helfen. Unzwar habe ich frisch mit Visual Basic 2008 angefangen weil ich einen Patcher bauen möchte.

    Der Files von einem Server runterlädt aber nur wenn diese sich verändert haben.

    Achja die Files hole ich mir alle manuell von der patchlist.txt die ich erstellt habe..Geht das nicht auch anders? Das er die z.B. automatisch runterläd wenn sie in einem ordner auffen server sind (natürlich nur wenn Files davon anders sind?

    folgenden Code habe ich bereits:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Button1.Enabled = False
    5. Button1.Text = "Bitte warten..."
    6. TextBox1.Text = "Patch gestartet"
    7. ProgressBar1.Value = "1"
    8. Timer1.Start()
    9. End Sub
    11. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    12. ProgressBar1.Value = "2"
    13. TextBox1.Text = "Patchlist wird ausgelesen"
    14. If My.Computer.FileSystem.FileExists("patchlist.txt") Then
    15. My.Computer.FileSystem.DeleteFile("patchlist.txt")
    16. TextBox1.Text = "Patchlist am abarbeiten!"
    17. End If
    18. My.Computer.Network.DownloadFile("http://****.de/Patchserver/patchlist.txt", "patchlist.txt")
    19. ProgressBar1.Value = "10"
    20. Timer1.Stop()
    21. Timer2.Start()
    24. End Sub
    25. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    26. Button2.Enabled = False
    27. End Sub
    29. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    30. Dim lines() As String = IO.File.ReadAllLines("patchlist.txt")
    32. For Each line As String In lines
    33. Dim values() As String = line.Split(";")
    35. TextBox1.Text = "Einzelne Files werden verglichen"
    37. Next
    38. ProgressBar1.Value = "35"
    41. '1.
    42. If My.Computer.FileSystem.FileExists(lines(1)) Then
    43. My.Computer.FileSystem.DeleteFile(lines(1))
    44. End If
    46. My.Computer.Network.DownloadFile(lines(0), lines(1))
    48. ProgressBar1.Value = "36"
    49. TextBox1.Text = "*******.dll download"
    51. '2.
    52. If My.Computer.FileSystem.FileExists(lines(3)) Then
    53. My.Computer.FileSystem.DeleteFile(lines(3))
    54. End If
    56. My.Computer.Network.DownloadFile(lines(2), lines(3))
    58. ProgressBar1.Value = "37"
    59. TextBox1.Text = "****** download"
    61. '3.
    62. If My.Computer.FileSystem.FileExists(lines(5)) Then
    63. My.Computer.FileSystem.DeleteFile(lines(5))
    64. End If
    66. My.Computer.Network.DownloadFile(lines(4), lines(5))
    68. ProgressBar1.Value = "40"
    69. TextBox1.Text = "******.txt download"
    70. '4.
    71. If My.Computer.FileSystem.FileExists(lines(7)) Then
    72. My.Computer.FileSystem.DeleteFile(lines(7))
    73. End If
    75. My.Computer.Network.DownloadFile(lines(6), lines(7))
    77. ProgressBar1.Value = "45"
    78. TextBox1.Text = "******.inf download"
    79. '5.
    80. If My.Computer.FileSystem.FileExists(lines(9)) Then
    81. My.Computer.FileSystem.DeleteFile(lines(9))
    82. End If
    84. My.Computer.Network.DownloadFile(lines(8), lines(9))
    86. ProgressBar1.Value = "50"
    87. TextBox1.Text = "******.exe download"
    89. '6.
    90. If My.Computer.FileSystem.FileExists(lines(11)) Then
    91. My.Computer.FileSystem.DeleteFile(lines(11))
    92. End If
    94. My.Computer.Network.DownloadFile(lines(10), lines(11))
    96. ProgressBar1.Value = "55"
    97. TextBox1.Text = "******.dll download"
    98. '7.
    99. If My.Computer.FileSystem.FileExists(lines(13)) Then
    100. My.Computer.FileSystem.DeleteFile(lines(13))
    101. End If
    103. My.Computer.Network.DownloadFile(lines(12), lines(13))
    105. ProgressBar1.Value = "60"
    106. TextBox1.Text = "******.txt download"
    107. '8.
    108. If My.Computer.FileSystem.FileExists(lines(15)) Then
    109. My.Computer.FileSystem.DeleteFile(lines(15))
    110. End If
    112. My.Computer.Network.DownloadFile(lines(14), lines(15))
    114. ProgressBar1.Value = "62"
    115. TextBox1.Text = "******.exe download"
    116. '9.
    117. If My.Computer.FileSystem.FileExists(lines(17)) Then
    118. My.Computer.FileSystem.DeleteFile(lines(17))
    119. End If
    121. My.Computer.Network.DownloadFile(lines(16), lines(17))
    123. ProgressBar1.Value = "65"
    124. TextBox1.Text = "******.dll download"
    126. '10.
    127. If My.Computer.FileSystem.FileExists(lines(19)) Then
    128. My.Computer.FileSystem.DeleteFile(lines(19))
    129. End If
    131. My.Computer.Network.DownloadFile(lines(18), lines(19))
    133. ProgressBar1.Value = "70"
    134. TextBox1.Text = "******.dll download"
    135. '11.
    136. If My.Computer.FileSystem.FileExists(lines(21)) Then
    137. My.Computer.FileSystem.DeleteFile(lines(21))
    138. End If
    140. My.Computer.Network.DownloadFile(lines(20), lines(21))
    142. ProgressBar1.Value = "75"
    143. TextBox1.Text = "******.dll download"
    145. '12.
    146. If My.Computer.FileSystem.FileExists(lines(23)) Then
    147. My.Computer.FileSystem.DeleteFile(lines(23))
    148. End If
    150. My.Computer.Network.DownloadFile(lines(22), lines(23))
    152. ProgressBar1.Value = "80"
    153. TextBox1.Text = "******.cfg download"
    155. '13.
    156. If My.Computer.FileSystem.FileExists(lines(25)) Then
    157. My.Computer.FileSystem.DeleteFile(lines(25))
    158. End If
    160. My.Computer.Network.DownloadFile(lines(24), lines(25))
    162. ProgressBar1.Value = "85"
    163. TextBox1.Text = "******.cfg download"
    164. '14.
    165. If My.Computer.FileSystem.FileExists(lines(27)) Then
    166. My.Computer.FileSystem.DeleteFile(lines(27))
    167. End If
    169. My.Computer.Network.DownloadFile(lines(26), lines(27))
    171. ProgressBar1.Value = "86"
    172. TextBox1.Text = "******.bin download"
    173. '15.
    174. If My.Computer.FileSystem.FileExists(lines(29)) Then
    175. My.Computer.FileSystem.DeleteFile(lines(29))
    176. End If
    178. My.Computer.Network.DownloadFile(lines(28), lines(29))
    180. ProgressBar1.Value = "87"
    181. TextBox1.Text = "******.cfg download"
    182. '16.
    183. If My.Computer.FileSystem.FileExists(lines(31)) Then
    184. My.Computer.FileSystem.DeleteFile(lines(31))
    185. End If
    187. My.Computer.Network.DownloadFile(lines(30), lines(31))
    189. ProgressBar1.Value = "88"
    190. TextBox1.Text = "******.dll download"
    191. '17.
    192. If My.Computer.FileSystem.FileExists(lines(33)) Then
    193. My.Computer.FileSystem.DeleteFile(lines(33))
    194. End If
    196. My.Computer.Network.DownloadFile(lines(32), lines(33))
    198. ProgressBar1.Value = "89"
    199. TextBox1.Text = "******.DLL download"
    200. '18.
    201. If My.Computer.FileSystem.FileExists(lines(35)) Then
    202. My.Computer.FileSystem.DeleteFile(lines(35))
    203. End If
    205. My.Computer.Network.DownloadFile(lines(34), lines(35))
    207. ProgressBar1.Value = "90"
    208. TextBox1.Text = "******.dll download"
    209. '19.
    210. If My.Computer.FileSystem.FileExists(lines(37)) Then
    211. My.Computer.FileSystem.DeleteFile(lines(37))
    212. End If
    214. My.Computer.Network.DownloadFile(lines(36), lines(37))
    216. ProgressBar1.Value = "91"
    217. TextBox1.Text = "******.DLL download"
    218. '20.
    219. If My.Computer.FileSystem.FileExists(lines(39)) Then
    220. My.Computer.FileSystem.DeleteFile(lines(39))
    221. End If
    223. My.Computer.Network.DownloadFile(lines(38), lines(39))
    225. ProgressBar1.Value = "92"
    226. TextBox1.Text = "******.mp download"
    227. '21.
    228. If My.Computer.FileSystem.FileExists(lines(41)) Then
    229. My.Computer.FileSystem.DeleteFile(lines(41))
    230. End If
    232. My.Computer.Network.DownloadFile(lines(40), lines(41))
    234. ProgressBar1.Value = "93"
    235. TextBox1.Text = "******.dll download"
    236. '22.
    237. If My.Computer.FileSystem.FileExists(lines(43)) Then
    238. My.Computer.FileSystem.DeleteFile(lines(43))
    239. End If
    241. My.Computer.Network.DownloadFile(lines(42), lines(43))
    243. ProgressBar1.Value = "94"
    244. TextBox1.Text = "******.dll download"
    245. '23.
    246. If My.Computer.FileSystem.FileExists(lines(45)) Then
    247. My.Computer.FileSystem.DeleteFile(lines(45))
    248. End If
    250. My.Computer.Network.DownloadFile(lines(44), lines(45))
    252. ProgressBar1.Value = "95"
    253. TextBox1.Text = "******.txt download"
    254. ProgressBar1.Value = "100"
    255. TextBox1.Text = "Alle Files verglichen. Client gepatcht"
    256. Timer2.Stop()
    257. End Sub
    258. End Class


    Damit lösche ich die locale datei wenn sie schon existiert und lade die neue runter. Das ding ist aber ich will die neuen ja nur runterladen wenn die anders sind (z.B. ne txt wo bei mir auffen pc lol drin steht und auffen server rofl soll natürlich dann gedownloadet werden). Kann man das irgendwie an der Filegröße ausmachen oder muss man checksummen vergleichen (hab ich irgendwo gelesen).

    Also quasi iwi so:
    if (Filesize(server)== $Filesize(client)){

    echo "Daten sind aktuell";
    }else{
    echo "Daten werden gedownloadet";
    .
    .
    .
    Downloadbefehl etc
    .
    .

    }

    sry bin ein Php Mensch ^^..

    patchlist.txt sieht ungefähr so aus

    Quellcode

    1. http://*******.de/Patchserver/********.dll
    2. ********.dll
    3. http://*******.de/Patchserver/********.dll
    4. ********.dll


    Über jede Hilfe freue ich mich Vielen Dank im vorraus :)

    Edit by der_Kurt:
    * Expander eingefügt *

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

    Hallo,

    Also so viel ich weiss lässt sich die Grösse einer Datei ermitteln, eventuell kannst du auch irgendwie auf das Bearbeitungsdatum zugreifen und dass dann vergleichen? Vielleicht hilft dir das irgendwie indirekt weiter:
    [VB 2008] Multidownloader mit Progressbar


    Dein Code ist übrigens ziemlich sch...;
    Du hast mehrfach den fast gleichen Code drin (Progressbar ändern, Datei löschen, Datei herunterladen und wieder von vorne).
    Schau dir mal "Schleifen" an, damit würde es wesentlich einfacher funktionieren

    Gruss
    sandiro

Facebook
Telefonspende