Not a member yet? Register for your free account!

 

Go Back   elitepvpers > General Stuff > epvp*coders
Problem VB 10 Patcher Script Problem Problem VB 10 Patcher Script Problem
Register Blogs FAQ Social Groups Search Today's Posts Mark Forums Read

 

Problem VB 10 Patcher Script Problem

This is a discussion on Problem VB 10 Patcher Script Problem within the epvp*coders forum part of the General Stuff category; Hayho liebe Com. ich habe mal wieder einen ganz netten Patcher gescriptet, für einen metin2 P Server, da es nicht ...

Reply
 
LinkBack Thread Tools
Old 07-30-2010, 00:55   #1
Senior Member
 
schido91's Avatar
 
Join Date: Jan 2010
Posts: 355
Received Thanks: 73
Problem VB 10 Patcher Script Problem
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.***********/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.***********/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.***********/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.***********/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.***********/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.***********/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.***********/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.***********/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.***********/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.***********/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.***********/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.***********/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.***********/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.***********/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.***********/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.***********/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 *********** keine downloads also Patchs zulässt
Hatte jemand schon mal so ein problem?

Mfg:
__________
Schido1991

schido91 is offline  
Old 07-30-2010, 11:51   #2
|°41|\| 7|-|3 1Ð107
 
P-a-i-n's Avatar
 
Join Date: Nov 2009
Posts: 422
Received Thanks: 133
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
P-a-i-n is offline  
The Following User Says Thank You to P-a-i-n For This Useful Post:
schido91 (07-30-2010)
Old 07-30-2010, 12:07   #3
There is Always a Way
 
Mr.Black.Data's Avatar
 
Join Date: Jul 2010
Posts: 30
Received Thanks: 7
Versuch mal von der Besagten Datei die Sicherheitsstufe runterzu nehmen

Also von Administrator zu Gast
Mr.Black.Data is offline  
Old 07-30-2010, 12:52   #4
|°41|\| 7|-|3 1Ð107
 
P-a-i-n's Avatar
 
Join Date: Nov 2009
Posts: 422
Received Thanks: 133
sein problem liegt da wenn man ein link aufruft von seinen angegeben kriegt man auf der seite diese meldung

*********** Zugriff verweigert, Fehler 403. Sorry, access forbidden, error 403.
P-a-i-n is offline  
Old 07-30-2010, 14:13   #5
Junior Member
 
Join Date: Nov 2007
Posts: 24
Received Thanks: 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
Demon-777 is offline  
Old 07-30-2010, 15:01   #6
Senior Member
 
schido91's Avatar
 
Join Date: Jan 2010
Posts: 355
Received Thanks: 73
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
Last edited by schido91; 07-30-2010 at 15:12.
schido91 is offline  
Old 07-30-2010, 15:45   #7
Junior Member
 
Join Date: Nov 2007
Posts: 24
Received Thanks: 5
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
Demon-777 is offline  
Old 07-30-2010, 16:27   #8
Senior Member
 
schido91's Avatar
 
Join Date: Jan 2010
Posts: 355
Received Thanks: 73
Danke =)

Hast ne Pn
schido91 is offline  
Reply

« ReadPrcessMemory gibt nur NULL zurück | Zufallszahl warscheinlichkeitsbereich beeinflussen. »
Thread Tools




All times are GMT +2. The time now is 11:05.

Contact Us - elitepvpers - play less, get more - Top

Powered by vBulletin® Version 3.8.2
Copyright ©2000 - 2010, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO 3.3.0