Metin2 Patcher

hallo

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 ???