Game Patcher/Starter

  • VB.NET
  • .NET (FX) 4.0

Es gibt 21 Antworten in diesem Thema. Der letzte Beitrag () ist von timonator.

    Game Patcher/Starter

    Guten Tag

    ich habe da ein Kleines Problem und zwar habe ich einen Patcher im internet gefunden diesen habe ich teils überarbeitet.
    Mein problem ist der patcher startet den download nicht und versucht auch nicht mal sich die version.txt oder die anderen zu laden.
    Kann mir jemand helfen den fehler zu finden??

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO
    3. Imports System.ComponentModel
    4. Imports Microsoft.Win32
    5. Imports System.Diagnostics
    6. Imports System.IO.PathTooLongException
    8. Public Class Form1
    9. Dim tRestant As Integer
    10. Dim tEcoule As Integer
    11. Dim TailleFichier As Integer = 0
    12. Dim TailleFichier2 As Integer = 0
    13. Dim seconde As Boolean = True
    14. Dim min As Integer = 0
    15. Dim max As Integer = 1
    16. Dim pbarvalue As Integer = 0
    17. Dim directory As String = "nochange"
    18. Dim file As String
    19. Private Sub UnRar(ByVal filepath As String, ByVal WorkingDirectory As String)
    21. Dim objRegKey As RegistryKey
    22. objRegKey = Registry.ClassesRoot.OpenSubKey("WinRAR\Shell\Open\Command")
    24. Dim obj As Object = objRegKey.GetValue("")
    26. Dim objRarPath As String = obj.ToString()
    27. objRarPath = objRarPath.Substring(1, objRarPath.Length - 7)
    29. objRegKey.Close()
    31. Dim objArguments As String
    32. objArguments = " X " & " " & filepath & " " + " " + WorkingDirectory
    34. Dim objStartInfo As New ProcessStartInfo()
    35. objStartInfo.UseShellExecute = False
    36. objStartInfo.FileName = objRarPath
    37. objStartInfo.Arguments = objArguments
    38. objStartInfo.WindowStyle = ProcessWindowStyle.Hidden
    39. objStartInfo.WorkingDirectory = WorkingDirectory & ""
    41. Dim objProcess As New Process()
    42. objProcess.StartInfo = objStartInfo
    43. objProcess.Start()
    45. End Sub
    46. Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
    47. FolderBrowserDialog1.ShowDialog()
    48. directory = FolderBrowserDialog1.SelectedPath
    49. My.Computer.FileSystem.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma")
    50. My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\directory.a3", directory, False)
    51. End Sub
    53. Private Sub FlatButton5_Click(sender As Object, e As EventArgs) Handles FlatButton5.Click
    54. If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\directory.a3") Then
    55. file = My.Computer.FileSystem.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\directory.a3") & "\arma3.exe""-connect= -port=2302 -password= -mod="
    56. Process.Start(file)
    57. Else
    58. MsgBox("Bitte Arma3 Verzeichnis auswählen!", MsgBoxStyle.Critical, "Fehler")
    59. End If
    61. End Sub
    62. Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
    63. If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\size.txt") Or My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Addons.rar") Then
    64. MsgBox("Sie haben bereits den Mod heruntergeladen! Überprüfen Sie, ob ein Update verfügbar ist", MsgBoxStyle.Exclamation, "Fehler")
    65. Else
    66. If directory = "nochange" Then
    67. MsgBox("Bitte wählen Sie das Arma 3 Verzeichnis!", MsgBoxStyle.Critical, "Fehler")
    68. Else
    69. tEcoule = 0
    70. PictureBox1.Visible = False
    71. FlatProgressBar1.Visible = True
    72. FlatLabel1.Visible = True
    73. FlatLabel2.Visible = True
    74. FlatLabel3.Visible = True
    75. Timer2.Start()
    76. BackgroundWorker1.RunWorkerAsync()
    77. End If
    78. End If
    79. End Sub
    81. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    82. If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\directory.a3") Then
    83. directory = My.Computer.FileSystem.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\directory.a3")
    84. Else
    85. MsgBox("Bitte wählen Sie das Arma3 Verzeichnis aus!", MsgBoxStyle.Information, "Priorität")
    86. End If
    87. End Sub
    89. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    90. Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Addons.rar")
    91. Dim TailleFichier As Integer = FichierInfo.Length
    92. Dim size As Integer = My.Computer.FileSystem.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\size.txt")
    93. pbarvalue = TailleFichier / size * 100
    94. FlatProgressBar1.Value = pbarvalue
    95. If pbarvalue = 100 Then
    96. FlatButton6.Visible = True
    97. Timer3.Stop()
    98. Timer1.Stop()
    99. MsgBox("Es sind keine neuen Updates verfügbar!", MsgBoxStyle.Information, "Beenden")
    101. End If
    102. End Sub
    104. Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click
    105. If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\version-OLD.txt") Then
    106. My.Computer.Network.DownloadFile("http://www.meinewebsite.de/download/download/version.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\version.txt")
    107. If My.Computer.FileSystem.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\version.txt") = My.Computer.FileSystem.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\version-OLD.txt") Then
    108. My.Computer.FileSystem.DeleteFile(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\version.txt")
    109. MsgBox("Es sind keine neuen Updates verfügbar!", MsgBoxStyle.Information, "Addons Update")
    110. ElseIf My.Computer.FileSystem.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\version.txt") <> My.Computer.FileSystem.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\version-OLD.txt") Then
    111. My.Computer.FileSystem.DeleteFile(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\version-OLD.txt")
    112. My.Computer.FileSystem.RenameFile(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\version.txt", "version-OLD.txt")
    113. My.Computer.FileSystem.DeleteFile(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\size.txt")
    114. My.Computer.FileSystem.DeleteFile(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Addons.rar")
    115. tEcoule = 0
    116. PictureBox1.Visible = False
    117. FlatProgressBar1.Visible = True
    118. FlatLabel1.Visible = True
    119. FlatLabel2.Visible = True
    120. FlatLabel3.Visible = True
    121. Timer2.Start()
    122. BackgroundWorker1.RunWorkerAsync()
    123. End If
    124. Else
    125. MsgBox("Bitte laden sie sich den Haupt Mod runter!", MsgBoxStyle.Exclamation, "Fehler")
    126. End If
    127. End Sub
    129. Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
    130. Timer1.Start()
    131. Timer3.Start()
    132. Timer2.Stop()
    133. End Sub
    135. Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    136. My.Computer.Network.DownloadFile("http://www.meinewebsite.de/download/download/size.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\size.txt")
    137. My.Computer.Network.DownloadFile("http://www.meinewebsite.de/download/download/Addons.rar", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Addons.rar")
    138. If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\version.txt") Then
    139. My.Computer.FileSystem.DeleteFile(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\version.txt")
    140. ElseIf My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\version-OLD.txt") Then
    141. My.Computer.FileSystem.DeleteFile(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\version-OLD.txt")
    142. End If
    143. My.Computer.Network.DownloadFile("http://www.meinewebsite.de/download/download/version.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\version-OLD.txt")
    144. End Sub
    146. Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
    147. Dim size As Integer = My.Computer.FileSystem.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\size.txt")
    148. tEcoule += 1
    149. FlatLabel1.Text = "Vergangene Zeit : " & tEcoule
    150. If seconde = True Then
    151. Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Addons.rar")
    152. TailleFichier = FichierInfo.Length
    153. FlatLabel3.Text = "Download-Geschwindigkeit : " & (TailleFichier - TailleFichier2) / 1000 & " Kb/s"
    154. tRestant = (size - TailleFichier) / (TailleFichier - TailleFichier2)
    155. seconde = False
    156. ElseIf seconde = False Then
    157. Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Addons.rar")
    158. TailleFichier2 = FichierInfo.Length
    159. FlatLabel3.Text = "Download-Geschwindigkeit : " & (TailleFichier2 - TailleFichier) / 1000 & " Kb/s"
    160. seconde = True
    161. tRestant = (size - TailleFichier) / (TailleFichier2 - TailleFichier)
    162. End If
    163. FlatLabel2.Text = "Übrige Zeit: " & tRestant
    164. End Sub
    166. Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click
    167. MsgBox("Credits :" & vbNewLine & vbNewLine & "" & vbNewLine & vbNewLine & "" & vbNewLine & vbNewLine & "Erstelltvon """"", MsgBoxStyle.Information, "Credits")
    168. End Sub
    170. Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles FlatButton6.Click
    171. If My.Computer.FileSystem.DirectoryExists(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\LauncherArma") Then
    172. My.Computer.FileSystem.DeleteDirectory(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\LauncherArma", FileIO.DeleteDirectoryOption.DeleteAllContents)
    173. End If
    174. If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\modsname.txt") Then
    175. My.Computer.FileSystem.DeleteFile(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\modsname.txt")
    176. End If
    177. My.Computer.FileSystem.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\LauncherArma")
    178. UnRar(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Addons.rar", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\LauncherArma")
    179. Dim ligne As String
    180. My.Computer.Network.DownloadFile("http://www.meinewebsite.de/download/download/modsname.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\modsname.txt")
    181. Dim sr As New StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\modsname.txt")
    182. While sr.Peek <> -1
    183. ligne = sr.ReadLine()
    184. My.Computer.FileSystem.CopyDirectory(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\LauncherArma\" & ligne, directory & "\" & ligne, True)
    185. End While
    186. PictureBox1.Visible = True
    187. FlatButton6.Visible = False
    188. FlatProgressBar1.Visible = False
    189. FlatLabel1.Visible = False
    190. FlatLabel2.Visible = False
    191. FlatLabel3.Visible = False
    192. End Sub
    193. End Class

    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Die Routine ist aber die Selbe.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Ach ja? Willst Du also lieber ins Verderben rennen und eine riesige Sicherheitslücke einbauen? Damit könntest Du Dir einen Haufen Probleme einfangen, wenn Dein Programm der Verteiler von Malware ist. Sei froh, dass Du solche Hinweise bekommst. ;)
    Ich würde Dir zum System raten, denn sorry, aber der Code ist nur so von Fehlern übersäht und unsauber gecoded, was sehr sehr leicht zu Abstürzen führt (Option Strict Off etc.).

    Damit hättest Du eine automatisierte und sichere Lösung.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Wie meinst Du das?
    Ich meine ja nur, denn dann sparst Du Dir den Aufwand und bist gut unterwegs. Sagt ja niemand, dass man es nicht machen soll, das schon, aber richtig.
    Das hat btw mit Anfänger nichts zu tun, so einen Tipp bekommt jeder, wenn sowas der Fall sein sollte.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Nein, lies Dir dem verlinkten Thread mal durch.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    patcher für ein game sollte man heutzutage sowieso nicht mehr selber bauen wenn man nicht der entwickler des games ist!!!
    diese arbeit übernimmt der publisher des games!
    beispiele die automatisch games updaten/patchen sind
    Steam,origin,games for windoof live,gamespy,ubinet,voobly,...
    wieso sich also einen patcher bauen wenn die meisten games das sowieso schon anbieten? versteh ich nit...

    @VincentTB
    windoof.org/ <<< willst du jetz zu mir sagen das ich windoof nicht mehr sagen darf? fängste jetz genau so an wie die politiker? sagste auch das ichn nazi bin wenn ich lügenpresse sage?
    wieso spammst du sinnlose beiträge die dem TE nicht weiterhelfen?

    @Vacarian
    was genau soll denn der patcher machen? wieso findet er die version.txt nicht mehr? was spricht dagegen den original patcher zu benutzen wenn es diesen gibt?

    Ich würde einfach nur gerne wissen wie ich den patcher mit dem updatesystem verbinden kann das war auch schon alles und das streiten ob mann nun windoof sagt oder nicht ist doch Jacke wie Hose hilft mir auch net weiter.....
    Leider ist das updatesystem für mich Neuland ich freue mich über jegliche Informationen die ihr mir geben könntet

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

    ich hab mir den code nicht genauer angekuckt aber ich finde das hier

    VB.NET-Quellcode

    1. http://www.meinewebsite.de/download/download/version.txt

    dir ist schon bewusst das du den code bzw die website anpassen musst?
    ist es vllt so das du eine eigene website brauchst auf diese du die dateien hochlädst und das programm diese runterläd?
    gibt es für dne patcher auch eine doku?

Facebook
Telefonspende