Hallo ihr lieben ! <3 wieder einmal bauche ich eure Hilfe. Es geht um ein Patcher denn ich mit Visual Basic am erstellen bin das problem ist wie folgt:
Der patcher liest mir die patch.txt nicht aus das heißt er ladet mir alles neu runter obwohl im Client bereits die neuste version vorhanden ist, nun meine frage ist welche Zeilen soll ich verändern damit er mir erst die patch.txt ausliest dann wenn was vorhanden ist in der patch.txt wie z.b. root.eix/epk nur das patcht was in der patch.txt drinne steht.
Hier ist die Programmierung:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Enabled = False
Button1.Text = "Bitte Warten..."
TextBox1.Text = "Patch wurde gestartet."
ProgressBar1.Value = "1"
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = "2"
TextBox1.Text = "patch.txt wird geprüft."
If My.Computer.FileSystem.FileExists("patch.txt") Then
My.Computer.FileSystem.DeleteFile("patch.txt")
TextBox1.Text = "patch.txt wurde gelöscht."
End If
My.Computer.Network.DownloadFile("http://XXXXXXX/Patch/patch.txt", "patch.txt")
TextBox1.Text = "Neue patch.txt runtergeladen."
ProgressBar1.Value = "3"
'-------------------------------------------ROOT.EPK----------------------------------------
TextBox1.Text = "root.epk wird geprüft."
If My.Computer.FileSystem.FileExists("pack/root.epk") Then
My.Computer.FileSystem.DeleteFile("pack/root.epk")
TextBox1.Text = "root.epk wurde gelöscht."
End If
ProgressBar1.Value = "4"
My.Computer.Network.DownloadFile("http://XXXXXXX/Patch/root.epk/", "pack/root.epk")
TextBox1.Text = "Neue root.epk runtergeladen."
TextBox1.Text = "Patchen erfolgreich"
'-------------------------------------------ROOT.EIX----------------------------------------
TextBox1.Text = "root.eix wird geprüft."
If My.Computer.FileSystem.FileExists("pack/root.eix") Then
My.Computer.FileSystem.DeleteFile("pack/root.eix")
TextBox1.Text = "root.eix wurde gelöscht."
End If
ProgressBar1.Value = "4"
My.Computer.Network.DownloadFile("http://XXXXXXX/Patch/root.eix/", "pack/root.eix")
TextBox1.Text = "Neue root.eix runtergeladen."
TextBox1.Text = "Patchen erfolgreich"
ProgressBar1.Value = "100"
Timer1.Stop()
End Sub
End Class
Schonmal ein Danke an alle die mir versuchen Zu Helfen <3