Problem VB 10 Patcher Script Problem

07/30/2010 00:55 schido91#1
Hayho liebe Com.
ich habe mal wieder einen ganz netten Patcher gescriptet, für einen metin2 P Server,
da es nicht mein erster is, hab ich echt kp was da vorliegt, Hier der Script an sich:
Code:
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

    End Sub

    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 = "patchlist.php wird geprüft."
        If My.Computer.FileSystem.FileExists("patchlist.php") Then
            My.Computer.FileSystem.DeleteFile("patchlist.php")
            TextBox1.Text = "patchlist.php wurde gelöscht."
        End If
        My.Computer.Network.DownloadFile("http://www.secondworld-foru.square7.ch/Patch/patchlist.php", "patchlist.php")
        TextBox1.Text = "Neue patchlist.php 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
        ProgressBar1.Value = "4"
        My.Computer.Network.DownloadFile("http://www.secondworld-foru.square7.ch/Patch/locale_de.eix", "pack/locale_de.eix")
        TextBox1.Text = "Neue locale_de.eix runtergeladen."
        '-------------------------------------------ETC.eix----------------------------------------------
        TextBox1.Text = "ETC.eix wird geprüft."
        If My.Computer.FileSystem.FileExists("pack/ETC.eix ") Then
            My.Computer.FileSystem.DeleteFile("pack/ETC.eix ")
            TextBox1.Text = "ETC.eix wurde gelöscht."
        End If
        ProgressBar1.Value = "5"
        My.Computer.Network.DownloadFile("http://www.secondworld-foru.square7.ch/Patch/ETC.eix ", "ETC.eix")
        TextBox1.Text = "ETC.eix runtergeladen."
        '-------------------------------------------ETC.epk----------------------------------------------
        TextBox1.Text = "ETC.epk wird geprüft."
        If My.Computer.FileSystem.FileExists("pack/ETC.epk ") Then
            My.Computer.FileSystem.DeleteFile("pack/ETC.epk ")
            TextBox1.Text = "ETC.epk wurde gelöscht."
        End If
        ProgressBar1.Value = "6"
        My.Computer.Network.DownloadFile("http://www.secondworld-foru.square7.ch/Patch/ETC.epk ", "ETC.epk")
        TextBox1.Text = "ETC.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
        ProgressBar1.Value = "7"
        My.Computer.Network.DownloadFile("http://www.secondworld-foru.square7.ch/Patch/icon.eix ", "icon.eix")
        TextBox1.Text = "icon.eix 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
        ProgressBar1.Value = "8"
        My.Computer.Network.DownloadFile("http://www.secondworld-foru.square7.ch/Patch/icon.eix ", "icon.eix")
        TextBox1.Text = "icon.eix runtergeladen."
        '-------------------------------------------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
        ProgressBar1.Value = "9"
        My.Computer.Network.DownloadFile("http://www.secondworld-foru.square7.ch/Patch/icon.epk ", "icon.epk")
        TextBox1.Text = "icon.epk runtergeladen."
        '-------------------------------------------index------------------------------------------------
        TextBox1.Text = "index wird geprüft."
        If My.Computer.FileSystem.FileExists("pack/index ") Then
            My.Computer.FileSystem.DeleteFile("pack/index ")
            TextBox1.Text = "index wurde gelöscht."
        End If
        ProgressBar1.Value = "10"
        My.Computer.Network.DownloadFile("http://www.secondworld-foru.square7.ch/Patch/index ", "index")
        TextBox1.Text = "index runtergeladen."
        '-------------------------------------------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 = "11"
        My.Computer.Network.DownloadFile("http://www.secondworld-foru.square7.ch/Patch/locale_de.epk ", "locale_de.epk")
        TextBox1.Text = "locale_de.epk runtergeladen."
        '-------------------------------------------Monster.eix-------------------------------------------
        TextBox1.Text = "Monster.eix wird geprüft."
        If My.Computer.FileSystem.FileExists("pack/Monster.eix ") Then
            My.Computer.FileSystem.DeleteFile("pack/Monster.eix ")
            TextBox1.Text = "Monster.eix wurde gelöscht."
        End If
        ProgressBar1.Value = "12"
        My.Computer.Network.DownloadFile("http://www.secondworld-foru.square7.ch/Patch/Monster.eix ", "Monster.eix")
        TextBox1.Text = "Monster.eix runtergeladen."
        '-------------------------------------------Monster.epk-------------------------------------------
        TextBox1.Text = "Monster.epk wird geprüft."
        If My.Computer.FileSystem.FileExists("pack/Monster.epk ") Then
            My.Computer.FileSystem.DeleteFile("pack/Monster.epk ")
            TextBox1.Text = "Monster.epk wurde gelöscht."
        End If
        ProgressBar1.Value = "13"
        My.Computer.Network.DownloadFile("http://www.secondworld-foru.square7.ch/Patch/Monster.epk ", "Monster.epk")
        TextBox1.Text = "Monster.epk runtergeladen."
        '-------------------------------------------monster2.eix-------------------------------------------
        TextBox1.Text = "monster2.eix wird geprüft."
        If My.Computer.FileSystem.FileExists("pack/monster2.eix ") Then
            My.Computer.FileSystem.DeleteFile("monster2.eix ")
            TextBox1.Text = "monster2.eix wurde gelöscht."
        End If
        ProgressBar1.Value = "14"
        My.Computer.Network.DownloadFile("http://www.secondworld-foru.square7.ch/Patch/monster2.eix ", "monster2.eix")
        TextBox1.Text = "monster2.eix runtergeladen."
        '-------------------------------------------monster2.epk-------------------------------------------
        TextBox1.Text = "monster2.epk wird geprüft."
        If My.Computer.FileSystem.FileExists("pack/monster2.epk ") Then
            My.Computer.FileSystem.DeleteFile("monster2.epk ")
            TextBox1.Text = "monster2.epk wurde gelöscht."
        End If
        ProgressBar1.Value = "15"
        My.Computer.Network.DownloadFile("http://www.secondworld-foru.square7.ch/Patch/monster2.epk ", "monster2.epk")
        TextBox1.Text = "monster2.epk runtergeladen."
        '-------------------------------------------NPC.eix------------------------------------------------
        TextBox1.Text = "NPC.eix wird geprüft."
        If My.Computer.FileSystem.FileExists("pack/NPC.eix ") Then
            My.Computer.FileSystem.DeleteFile("NPC.eix ")
            TextBox1.Text = "NPC.eix wurde gelöscht."
        End If
        ProgressBar1.Value = "16"
        My.Computer.Network.DownloadFile("http://www.secondworld-foru.square7.ch/Patch/NPC.eix ", "NPC.eix")
        TextBox1.Text = "NPC.eix runtergeladen."
        '-------------------------------------------NPC.epk------------------------------------------------
        TextBox1.Text = "NPC.epk wird geprüft."
        If My.Computer.FileSystem.FileExists("pack/NPC.epk ") Then
            My.Computer.FileSystem.DeleteFile("NPC.epk ")
            TextBox1.Text = "NPC.epk wurde gelöscht."
        End If
        ProgressBar1.Value = "17"
        My.Computer.Network.DownloadFile("http://www.secondworld-foru.square7.ch/Patch/NPC.epk ", "NPC.epk")
        TextBox1.Text = "NPC.epk runtergeladen."

        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 = "Client exsistiert nicht!"
            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
        Process.Start("http://www.seven-world.de/index.php")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Process.Start("http://newtownmt2-board.square7.ch/index.php?page=Index")
    End Sub
End Class
Soweit is mein Script ansich (wenn ich irgendwas zensieren soll, sagt es mir bitte)

aber ich bekomme immer eine Fehlermeldung beim Starten also beim Patchen
Ich Debuge mein Patcher und VB 10 sagt mir vollgendes
Code:
		locale_de	"locale_de" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden.
Ich habe die Befürtung das mein Webspace in diesem falle Square7.ch keine downloads also Patchs zulässt
Hatte jemand schon mal so ein problem?

Mfg:
__________
Schido1991
07/30/2010 11:51 P-a-i-n#2
wenn man schon das liest "Script "
du machst visual Basic das ist kein script
visual script gibt es aber auch ;D

und wenn man so viele datein hat würd ich die niemals einzeln runterladen zu dem gehen manche links nicht mach ein selbst entpackende zip datei wo alles drin ist die sich im startpath des programmes entpacken soll ist weit einfacher

wieso auch 20 bierflaschen einzeln kaufen wenn es sie im kasten gibt ;)
07/30/2010 12:07 Mr.Black.Data#3
Versuch mal von der Besagten Datei die Sicherheitsstufe runterzu nehmen

Also von Administrator zu Gast
07/30/2010 12:52 P-a-i-n#4
sein problem liegt da wenn man ein link aufruft von seinen angegeben kriegt man auf der seite diese meldung

Square7.ch Zugriff verweigert, Fehler 403. Sorry, access forbidden, error 403.
07/30/2010 14:13 Demon-777#5
Ich kann nur eins sagen, so macht man kein Patcher fur ein Spiel. PM me falls du hilfe brauchst, da ich dir bestimmt weiterhelfen kann. lol
07/30/2010 15:01 schido91#6
ich habe bissher alle Patcher von mir so aufgebaut,
ich bin noch kein Pro. nur bissher hatte ich andere Webspace's, und haben bissher alle geklapt,
ja, wenn du mir die Befehle schreiben köntest, das er sie runterläd und entpackt, wäre es ganz Liebt ;)
07/30/2010 15:45 Demon-777#7
Ja ich bin auch kein Pro, aber generell ist dein patcher schlecht aufgebaut. Es wird nicht mal gepruft ob die Datei aktuell ist oder nicht. Ich werde nix fur dich schreiben, allerding kann ich dir helfen es besser zu machen. Wenn du meine hilfe willst dann pm mich und ich gebe dir mein icq nummer. Vll. konnen wir es sogar besser als musicinsturctor machen :P
07/30/2010 16:27 schido91#8
Danke =)

Hast ne Pn
09/20/2010 21:07 darkkiller202lol#9
Also dieser "Patcher" löscht alle forhandenen Dateien und läd diese dann runter und das macht meiner meinung nach keinen Sinn :confused:
Wenn du einen Richigen patcher machen willst empfejle ich dir hier nachzuschauen: [Only registered and activated users can see links. Click Here To Register...]