Patcher wie am besten realisieren?

  • VB.NET

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

    Patcher wie am besten realisieren?

    Hallo Leute,

    habe mit einem Patcher angefangen, bin noch sehr nooblike in vb aber einiges krieg ich hin.

    Jetzt habe ich Oberfläche alles fertig und stehe vor der Frage wie ich am besten patche.

    Ich habe auf dem ftp mehrere datein und auch datein in unterordner dort. Natürlich sollen nicht jedesmal alles gepatcht werden^^. Das wäre ja dann sinnlos für einen patcher :D

    Habe als erstes mal eine version.php aufn ftp geladen die ich abfrage und mit einer version.txt vergleiche.
    Wenn die auffen Server höher ist soll er patchen. Den Vorgang kann ich schon einleiten.

    Nun wie ich weiterverfahre ist die Frage, vielleicht in ein xml File reinschreiben was alles neu ist (also was er nur patchen soll) und das dann irgendwie verarbeiten aber dazu fehlt mir die Erfahrung.

    Hatte vor längerer zeit mal sowas hier zusammgecodet aber es hilft mir auch irgendwie net..
    Damals hab ichs anhand des zeiches % in einer patchlist.txt gesplittet und verarbeitet
    :

    VB.NET-Quellcode

    1. 'patchlist abarbeiten
    2. Dim list As String = IO.File.ReadAllText(appPath + "\patchlist.txt")
    3. Dim ListSTR() As String = list.Split("%")
    6. 'checken ob alte datein vorhanden, wenn ja löschen
    7. Dim i As Integer = 0
    8. Dim p As Integer = 0
    9. Try
    10. While i <= ListSTR(0)
    11. i += 1
    12. p += 2
    14. TextBox1.Text = ListSTR(i)
    16. If My.Computer.FileSystem.FileExists(appPath + "\" + ListSTR(i)) = True Then
    17. My.Computer.FileSystem.DeleteFile(appPath + "\" + ListSTR(i))
    19. TextBox1.Text = "Löscht: " + ListSTR(i)
    20. ProgressBar1.Value = p
    21. End If
    23. End While
    28. Catch ex As Exception



    VB.NET-Quellcode

    1. Dim appPath As String = Path.GetDirectoryName(Application.ExecutablePath)
    2. Dim c As Integer = 0
    3. Dim list As String = IO.File.ReadAllText(appPath + "\patchlist.txt")
    4. Dim ListSTR2() As String = list.Split("%")
    5. Dim p As Integer = 0
    7. Try
    8. 'Erste while schleife für nicht ordner sachen
    9. While c < ListSTR2(0)
    10. c += 1
    11. p += 2
    12. 'My.Computer.Network.DownloadFile("http://www.website.eu/" + ListSTR2(c), appPath + "\" + ListSTR2(c), FileIO.UIOption.AllDialogs, _
    13. 'FileIO.UICancelOption.DoNothing)
    15. End While
    17. 'Zweite while schleife für misc Ordner sachen
    18. Dim miscpathAs String = appPath + "\" + "misc"
    19. Dim list2 As String = IO.File.ReadAllText(appPath + "\misclist.txt")
    20. Dim ListSTR3() As String = list2.Split("%")
    21. Dim d As Integer = 0
    22. 'misc ordner erstellen wenn noch nicht existiert (check)
    24. 'If My.Computer.FileSystem.DirectoryExists(miscpath) Then
    26. 'Else
    27. ' My.Computer.FileSystem.CreateDirectory(miscpath)
    28. 'End If
    30. While d <= ListSTR3(0)
    31. d += 1
    32. MsgBox("http://www.website.eu/" + ListSTR3(d), miscpath+ "\" + ListSTR3(d))
    33. My.Computer.FileSystem.DeleteFile(miscpath+ "\" + ListSTR3(d))
    34. My.Computer.Network.DownloadFile("http://www.website.eu/" + ListSTR3(d), miscpath+ "\" + ListSTR3(d), FileIO.UIOption.AllDialogs, _
    35. FileIO.UICancelOption.DoNothing)
    36. End While



    Weiß auch grad net mehr was damals bei dem code nicht funktioniert hat. Glaub es war zu nervig jeden Ordner nochmal reinzuschreiben als while..

    Hat einer ne Idee wie man sone patcher am besten macht?

    Danke im vorraus =)

    zuerst brauchste ftp-server,dann machste ne txt rein mit z.p: 5.0
    dan machste downloadstring un verweist sie auf eine variable z.b: VER
    DAN

    VB.NET-Quellcode

    1. if a > "4.0" then verlink=client.downloadstring("www.meinserver.de/neueste ver.txt")
    in neueste ver.txt tuste immer den link der neusesten ver.
    dan

    VB.NET-Quellcode

    1. client.downloadfileasyc(verlink,"die datei")
    2. Msgbox("gepatcht")
    3. else
    4. end if

    das find ich kürzer un besser^^

Facebook
Telefonspende