ich hab ein prob mein patcher geht nicht so wie er gehen sollte -.-
code (VB.NET)
PHP Code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Enabled = False
Button1.Text = "Please Wait..."
TextBox1.Text = "Patch 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://****.de/patch/patch.txt", "patch.txt")
TextBox1.Text = "Neue patch.txt runtergeladen."
ProgressBar1.Value = "3"
'-------------------------------------------LOCALE_DE.EIX----------------------------------------
TextBox1.Text = "locale_de.eix wird geprüft."
If My.Computer.FileSystem.FileExists("pack/locale_de.eix") Then
My.Computer.FileSystem.DeleteFile("pack/locale_de.eix")
TextBox1.Text = "locale_de.eix wurde gelöscht."
End If
My.Computer.Network.DownloadFile("http://****.de/patch/locale_de.eix", "pack/locale_de.eix")
TextBox1.Text = "Neue locale_de.eix runtergeladen."
ProgressBar1.Value = "4"
'-------------------------------------------LOCALE_DE.EPK----------------------------------------
TextBox1.Text = "locale_de.epk wird geprüft."
If My.Computer.FileSystem.FileExists("pack/locale_de.epk") Then
My.Computer.FileSystem.DeleteFile("pack/locale_de.epk")
TextBox1.Text = "locale_de.epk wurde gelöscht."
End If
ProgressBar1.Value = "5"
My.Computer.Network.DownloadFile("http://****.de/patch/locale_de.epk", "pack/locale_de.epk")
TextBox1.Text = "Neue locale_de.epk runtergeladen."
'-------------------------------------------ICON.EIX----------------------------------------
TextBox1.Text = "icon.eix wird geprüft."
If My.Computer.FileSystem.FileExists("pack/icon.eix") Then
My.Computer.FileSystem.DeleteFile("pack/icon.eix")
TextBox1.Text = "icon.eix wurde gelöscht."
End If
My.Computer.Network.DownloadFile("http://****.de/patch/icon.eix", "pack/icon.eix")
TextBox1.Text = "Neue icon.eix runtergeladen."
ProgressBar1.Value = "6"
'-------------------------------------------ICON.EPK----------------------------------------
TextBox1.Text = "icon.epk wird geprüft."
If My.Computer.FileSystem.FileExists("pack/icon.epk") Then
My.Computer.FileSystem.DeleteFile("pack/icon.epk")
TextBox1.Text = "icon.epk wurde gelöscht."
End If
My.Computer.Network.DownloadFile("http://****.de/patch/icon.epk", "pack/icon.epk")
TextBox1.Text = "Neue icon.epk runtergeladen."
ProgressBar1.Value = "7"
'-------------------------------------------ITEM.EIX----------------------------------------
TextBox1.Text = "item.epk wird geprüft."
If My.Computer.FileSystem.FileExists("pack/item.eix") Then
My.Computer.FileSystem.DeleteFile("pack/item.eix")
TextBox1.Text = "item.eix wurde gelöscht."
End If
My.Computer.Network.DownloadFile("http://****.de/patch/item.eix", "pack/item.eix")
TextBox1.Text = "Neue item.eix runtergeladen."
ProgressBar1.Value = "8"
'-------------------------------------------ITEM.EPK----------------------------------------
TextBox1.Text = "item.eix wird geprüft."
If My.Computer.FileSystem.FileExists("pack/item.epk") Then
My.Computer.FileSystem.DeleteFile("pack/item.epk")
TextBox1.Text = "item.epk wurde gelöscht."
End If
My.Computer.Network.DownloadFile("http://****.de/patch/item.epk", "pack/item.epk")
TextBox1.Text = "Neue item.epk runtergeladen."
ProgressBar1.Value = "9"
'-------------------------------------------ERFOLGREICH----------------------------------------
TextBox1.Text = "Patchen erfolgreich"
ProgressBar1.Value = "100"
If My.Computer.FileSystem.FileExists("Metin2.exe") Then
Button1.Text = "Metin2 Starten"
If Button1.Text = "Metin2 Starten" Then
Shell("Metin2.exe")
End If
Else
Button1.Text = ""
TextBox1.Text = "Bitte laden Sie den Clienten runter"
End If
Timer1.Stop()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
was könnte falsch sein ???
