Patcher für ein Spiel

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von Mangafreak1995.

    Patcher für ein Spiel

    Hallo,

    ich wollte mal fragen wie ich einen patcher erstellen kann der einen Clienten patcht also: patcher ruft die Patchlist auf einer HP ab in der steht drin was der patcher alles patchen soll. Aber dafor muss er noch die config datei lesen die mit in dem ordner vom Patcher ist damit er weiß woher er die liste abfragen soll und wo die HP für das forum banner ist. Wen nötig Screem kommt von einem änlichen Patcher.

    PS: ich hab schon eine längere Zeit nichts mehr mit VB.NET oder ähnlichem gearbeitet also bitte entschuldigt mich^^

    xMichix schrieb:

    ich wollte mal fragen wie ich einen patcher erstellen kann der einen Clienten patcht also:

    Ich würde mal sagen:

    Patchliste runterladen
    Config einlesen
    Patchliste einlesen
    Datei öffnen, einlesen und in den Arbeitsspeicher schreiben
    Für jeden Eintrag in der Patchliste zum angegebenen Offset navigieren, Wert schreiben
    Datei auf die Platte schreiben und schließen
    Fertig.
    Gruß
    hal2000

    xMichix schrieb:

    und könnte da mal wer nen code machen ??

    Nein, denn wir sind hier kein Selbstbedienungsladen mit alles-kostenlos-Artikeln. Wer will das Programm schreiben, du oder wir? Richtig, du. Wir sind nur dafür da, um dir bei Problemen Hilfestellung zu geben und nicht um für dich Programme zu schreiben. Wenn du willst, dass jemand anders für dich progarmmiert, musst du dich im Markt-Bereich hier im Forum melden.
    Gruß
    hal2000

    Wie gesagt. Hier gibt es kein: Mach mal. Hier gibt es nur: Sag mal.

    Falls du noch sehr neu bist dann kaufe dir ein Buch über VB oder führe dir das hier zu Gemüte.

    Viel Spaß.

    hallo, ich hab hier mal einen code aber ich weiß nicht ob der so stimmt!

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. Button1.Enabled = False
    4. Button1.Text = "Please Wait..."
    5. TextBox1.Text = "Patch gestartet."
    6. ProgressBar1.Value = "1"
    7. Timer1.Start()
    8. End Sub
    10. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    11. ProgressBar1.Value = "2"
    12. TextBox1.Text = "patch.txt wird geprüft."
    13. If My.Computer.FileSystem.FileExists("patch.txt") Then
    14. My.Computer.FileSystem.DeleteFile("patch.txt")
    15. TextBox1.Text = "patch.txt wurde gelöscht."
    16. End If
    17. My.Computer.Network.DownloadFile("http://*****.**.****.de/patch/patch.txt", "patch.txt")
    18. TextBox1.Text = "Neue patch.txt runtergeladen."
    19. ProgressBar1.Value = "3"
    20. '-------------------------------------------LOCALE_DE.EIX----------------------------------------
    22. TextBox1.Text = "locale_de.eix wird geprüft."
    23. If My.Computer.FileSystem.FileExists("pack/locale_de.eix") Then
    24. My.Computer.FileSystem.DeleteFile("pack/locale_de.eix")
    25. TextBox1.Text = "locale_de.eix wurde gelöscht."
    26. End If
    27. My.Computer.Network.DownloadFile("http://*****.**.****.de/patch/locale_de.eix", "pack/locale_de.eix")
    28. TextBox1.Text = "Neue locale_de.eix runtergeladen."
    29. ProgressBar1.Value = "4"
    30. '-------------------------------------------LOCALE_DE.EPK----------------------------------------
    31. TextBox1.Text = "locale_de.epk wird geprüft."
    32. If My.Computer.FileSystem.FileExists("pack/locale_de.epk") Then
    33. My.Computer.FileSystem.DeleteFile("pack/locale_de.epk")
    34. TextBox1.Text = "locale_de.epk wurde gelöscht."
    35. End If
    36. ProgressBar1.Value = "5"
    37. My.Computer.Network.DownloadFile("http://*****.**.****.de/patch/locale_de.epk", "pack/locale_de.epk")
    38. TextBox1.Text = "Neue locale_de.epk runtergeladen."
    39. '-------------------------------------------ICON.EIX----------------------------------------
    41. TextBox1.Text = "icon.eix wird geprüft."
    42. If My.Computer.FileSystem.FileExists("pack/icon.eix") Then
    43. My.Computer.FileSystem.DeleteFile("pack/icon.eix")
    44. TextBox1.Text = "icon.eix wurde gelöscht."
    45. End If
    46. My.Computer.Network.DownloadFile("http://*****.**.****.de/patch/icon.eix", "pack/icon.eix")
    47. TextBox1.Text = "Neue icon.eix runtergeladen."
    48. ProgressBar1.Value = "6"
    49. '-------------------------------------------ICON.EPK----------------------------------------
    51. TextBox1.Text = "icon.epk wird geprüft."
    52. If My.Computer.FileSystem.FileExists("pack/icon.epk") Then
    53. My.Computer.FileSystem.DeleteFile("pack/icon.epk")
    54. TextBox1.Text = "icon.epk wurde gelöscht."
    55. End If
    56. My.Computer.Network.DownloadFile("http://*****.**.****.de/patch/icon.epk", "pack/icon.epk")
    57. TextBox1.Text = "Neue icon.epk runtergeladen."
    58. ProgressBar1.Value = "7"
    59. '-------------------------------------------ITEM.EIX----------------------------------------
    61. TextBox1.Text = "item.epk wird geprüft."
    62. If My.Computer.FileSystem.FileExists("pack/item.eix") Then
    63. My.Computer.FileSystem.DeleteFile("pack/item.eix")
    64. TextBox1.Text = "item.eix wurde gelöscht."
    65. End If
    66. My.Computer.Network.DownloadFile("http://*****.**.****.de/patch/item.eix", "pack/item.eix")
    67. TextBox1.Text = "Neue item.eix runtergeladen."
    68. ProgressBar1.Value = "8"
    69. '-------------------------------------------ITEM.EPK----------------------------------------
    71. TextBox1.Text = "item.eix wird geprüft."
    72. If My.Computer.FileSystem.FileExists("pack/item.epk") Then
    73. My.Computer.FileSystem.DeleteFile("pack/item.epk")
    74. TextBox1.Text = "item.epk wurde gelöscht."
    75. End If
    76. My.Computer.Network.DownloadFile("http://*****.**.****.de/patch/item.epk", "pack/item.epk")
    77. TextBox1.Text = "Neue item.epk runtergeladen."
    78. ProgressBar1.Value = "9"
    79. '-------------------------------------------ERFOLGREICH----------------------------------------
    81. TextBox1.Text = "Patchen erfolgreich"
    82. ProgressBar1.Value = "100"
    84. If My.Computer.FileSystem.FileExists("****.exe") Then
    85. Button1.Text = "**** Starten"
    86. If Button1.Text = "**** Starten" Then
    87. Shell("****.exe")
    88. End If
    89. Else
    90. Button1.Text = ""
    91. TextBox1.Text = "Bitte laden Sie den Clienten runter"
    92. End If
    93. Timer1.Stop()
    95. End Sub
    97. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    98. Me.Close()
    99. End Sub
    101. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    102. WebBrowser1.Navigate("http://*******/index.php?section=register")
    103. End Sub
    104. End Class


    könnte der code stimmen?

    http://*****.**.****.de = Host...
    wen es geht vlt könnte man es so machen über xampp

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

    Echt klasse.

    Erst postest du "macht mal für mich". Wir antworten: Nein, zeige Eigeninitiative.
    aber ich weiß nicht ob der so stimmt!

    ... Dann kommst du auch noch dreisterweise mit Copy&Paste-Code an, verstehst ihn nicht mal und willst uns diesen als Eigenarbeit verkaufen? Das ist echt unterste Schublade. :thumbdown:
    Gruß
    hal2000

    gibts nich im Showroom einen Patcher ?
    oder bin ich grad woanders im Kopp :)

    aha ... man kennt sich ?
    wäre auch mal interessant gewesen wenn du uns gesagt hättest dass es nicht für dein eigenes Prog ist

Facebook
Telefonspende