Multigamebot --> Monstersgame

[Multi-Gaming-Bot]

Erste erscheinung monstersgame eingebaut

[Multi-Gaming-Bot]

Fehlerhaddt

ich arbeite am problem, irgendwie hat sich da ein Bug eingeschlichen dasb der derzeit garnicht funktioniert, ich kanns mir noch nicht erklären da ich den vor dem compilieren einige stunden getestet habe

vielleicht lag es am compilieren oder an sonnst irgendwelche flüchticheitsfehler



Der fehler liegt irgendwo vor den trainingsstart und nach der emailüberprüfung aber er zeigt es mir leider schlecht an nur das e meint eine Variabel die meines erachtens nach Deklariert ist nicht deklariert zu sein scheint

[THEGO90]

und das jetz bitte nochma in deutsch und nicht in skriptersprache -_-

[Shadow992]

Originally Posted by THEGO90

und das jetz bitte nochma in deutsch und nicht in skriptersprache -_-

Auf deutsch :
Es gibt einen Bug , der das richtige Funktionieren des Botes verhindert .
Er ist aber schon am Suchen und weiß auch so ungefähr wo der Fehler liegt , aber er findet ihn anscheinend nicht .

@Multi-Gaming-Bot
Probiers mal ohne Obfuscator , vielleciht läuft es dann besser .

[Beppo78]

Gibts den noch ???

[*Anima*]

Wieso pusht du alte Themen?
Der TE hat sich schon lang nicht mehr gemeldet,da danke ich ist das Thema auch schon zu.
closerrrequest#

[Beppo78]

weil ich einen Benötige und mal nachgefragt habe , ist das ein Verbrechen ???

[*Anima*]

Nein aber ,aber denn such dir liebers ein Thema aus das erst vorkurzen erstellt wurde oder frag in Shaddow992 sein thread.

Doppelposten oder das Pushen von wirklich veralteten Threads nur zum Spaß wird mit einer Infraction geahndet (einer Warning beim ersten Mal)

Ich weis das war nicht zum Spaß,aber sollte es liebers lassen & die neuen Themen benutzen & da nachfragen.

[Beppo78]

ich habe Shadow schon gefragt , er baut keinen mehr

und es konnte ja sein das evtl , jemand anders noch einen hat der jetzt nach dem update funktioniert ...

ich habe mich schon damit beschäftigt , bekomme es aber nicht hin ...
irgenwo ist hier noch der Wurm drinne aber wo ???

PHP Code:

        Dim Link As String
        Dim Zahl As Integer
        Dim MenschenJagt As Integer
        Link = ("spielwelt" & ComboBox1.Text & ".monstersgame.net/")
        Zahl = "0"
        MenschenJagt = "0"

        ListBox1.Items.Add("[" & System.DateTime.Now & "]:" & " Die Seite wird Angepeilt..")
        Button2.Enabled = False

        ListBox1.Items.Add("[" & System.DateTime.Now & "]:" & " Einloggen..")
        WebBrowser1.Navigate("spielwelt" & ComboBox1.Text & ".monstersgame.net")

        Application.DoEvents()

        Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
        Loop

        WebBrowser1.Refresh()

        WebBrowser1.Document.GetElementById("user").InnerText = (TextBox1.Text)
        WebBrowser1.Document.GetElementById("password").InnerText = (TextBox2.Text)
        WebBrowser1.Document.Forms(0).InvokeMember("submit")

        Application.DoEvents()

        Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
        Loop

        ListBox1.Items.Add("[" & System.DateTime.Now & "]:" & " Eingeloggt!")

        Do Until Zahl = "6"

            WebBrowser1.Navigate("spielwelt" & ComboBox1.Text & ".monstersgame.net/index.php?ac=raubzug")

            Application.DoEvents()

            Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
                Application.DoEvents()
            Loop

            Dim httpRequest As HttpWebRequest = HttpWebRequest.Create("http://spielwelt22.monstersgame.net/index.php?ac=raubzug")
            Dim httpResponse As HttpWebResponse = httpRequest.GetResponse()
            Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
            Dim httpContent As String = reader.ReadToEnd


            Dim aGold As New Regex("Dein Goldbestand\: (?<string>(.*))")
            Dim Gold As String = aGold.Match(httpContent).Groups("string").ToString()

            ListBox1.Items.Add("[" & System.DateTime.Now & "]:" & " 10 min MenschenJagt")
            TextBox3.Text = Gold


            WebBrowser1.Document.Forms(0).InvokeMember("submit")

            System.Threading.Thread.Sleep(601000)

            WebBrowser1.Navigate("spielwelt" & ComboBox1.Text & ".monstersgame.net/index.php?ac=raubzug")

            Application.DoEvents()

            Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
                Application.DoEvents()
            Loop

            ListBox1.Items.Add("[" & System.DateTime.Now & "]:" & " Du warst nun schon" & MenschenJagt + 10 & " min auf der Jagt")
            Zahl = Zahl + 1
        Loop 


[Beppo78]

suche immernoch