Quelltext auslesen Packetbot

Ich muss f�r eine Funktion die den Gesundheitszustands des Accounts auslesen muss. hier mein aktueller code

PHP Code:


			
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=logo.ico
#AutoIt3Wrapper_Compression=4
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <String.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#RequireAdmin
;;$EncryptPW = "0175874" ;Hier bitte das PW anpassen, kannst nehmen was du willst. Wird aber f�r die Verschl�sselung gebraucht


Enum $MainGUI, $hMainGUI, $InputUsername, $InputPw, $Anz
Global $aCheckboxes[13][3], $GUI[$Anz]
Global $UserDaten[3] = ["Default","Default",0]
Global $ini[2] = [@ScriptDir & "\config.ini","0175874"]
Global $TCPInfos[2] = ["www.wrestlegame.de",0];index 1 f�r Mastecookie

Check_Update()
_GUICreate()
Load_Config()

While 1
    If $UserDaten[2] Then
        For $i = 0 To UBound($aCheckboxes)-1
            ;�berpr�fung ob jeweilige show aktiviert
            If $aCheckboxes[$i][1] Then
                ;Laden der zu sohw seite durch zuvor zugewiesenen show link $aCheckboxes[$i][2]
                $aTmpPage = _TCP_Send_Request("GET", $TCPInfos[0], "/show.php?" & $aCheckboxes[$i][2],"http://" & $TCPInfos[0] & "/uebersicht.php",$TCPInfos[1])
                If IsArray($aTmpPage) Then
                    ;MsgBox(0,"",$aCheckboxes[$i][2] & @CRLF & $i)
                    $aTmpShowsStart = StringRegExp($aTmpPage[1],'<a href="\?(action=compete&' & $aCheckboxes[$i][2] & '&c=[^"]+)',3)
                    ;_ArrayDisplay($aTmpShowsStart)
                    If IsArray($aTmpShowsStart) Then
                        _TCP_Send_Request("GET", $TCPInfos[0], "/show.php?" & $aTmpShowsStart[0],"http://" & $TCPInfos[0] & "/" & $aCheckboxes[$i][2],$TCPInfos[1])
                    EndIf
                EndIf
            EndIf
        Next
    EndIf
    Sleep(100)
WEnd

Func Check_Update()
    Ping("wrestlegame-bot.pytalhost.de",2000)
    If @error Then Return
    Local $aHostVer = StringSplit(BinaryToString(InetRead("http://wrestlegame-bot.pytalhost.de/Wrestlegamebot/update.txt")),";")
    If IsArray($aHostVer) Then
        Local $aLocalVer = StringSplit(IniRead($ini[0],"Version","Version","0;1.0"),";")
        If $aHostVer[1] <> $aLocalVer[1] Then
            If MsgBox(48+4,"Update","Es steht ein Update zur verf�gung, wollen sie dies nun installieren?") = 6 Then Run(@ScriptDir & "\Updater.exe")
        EndIf
    EndIf
EndFunc

Func _GUICreate()
    Local $aCheckPos[3][13]= [[32,32,32,32,32,32,32,32,200,200,200,200,200],[72,96,48,120,144,168,192,216,48,72,96,120,144], _
                              ["Accelerate","Night of Glory","Initiative","Beatdown","War Zone","Wildcard Roulette","Doomsday Lite", _
                              "Doomsday","Championsnite","TT-Accelerate","TT-Beatdown","TT-War Zone","TT-Championsnite"]]
    #Region ### START Koda GUI section ### Form=C:\Users\Peter Lampke\Desktop\Wrestlegamebots\Wrestlegame Bot\Neuer Ordner\Form2.kxf
    ;Load Version aus der Config
    Local $aLocalVer = StringSplit(IniRead($ini[0],"Version","Version","0;1.0"),";")
    Opt("GUIOnEventMode",1)
    $GUI[$MainGUI] = GUICreate("Wrestlegame-Bot version v." & $aLocalVer[2], 489, 319, 304, 181)
    $GUI[$hMainGUI] = WinGetHandle($GUI[$MainGUI])
    GUISetFont(8, 400, 0, "Arial",$GUI[$hMainGUI])
    GUISetOnEvent(-3,"_exit");-3 entspricht $GUI_EVENT_CLOSE
    ;GUISetIcon("D:\005.ico")
    $PageControl1 = GUICtrlCreateTab(8, 8, 396, 256)
    GUICtrlCreateTabItem("Main")
        GUICtrlCreateLabel("Skollhunter`s Wrestlegame Bot v." & $aLocalVer[2], 104, 40, 179, 18)
        GUICtrlCreateLabel("� Skollhunter", 32, 232, 68, 18)
        $source =_INetGetSource("http://wrestlegame.de/user.php?userid=13719")
        $gesundheitszustand = _stringbetween($source,'<td align="center" colspan="1" height="60" width="100">','<br />')
GUICtrlCreateLabel("Dein Gesundheitszustand:"&$gesundheitszustand 48, 50, 300, 17)
        ;;$Pic1 = GUICtrlCreatePic("C:\Users\Peter Lampke\Desktop\wrestlegame ava\656.jpg", 40, 104, 316, 68, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
        GUICtrlSetState(-1,$GUI_DISABLE);Damit die Ctrls dar�ber anklickbar und benutzbar sind
    GUICtrlCreateTabItem("W�hle deine Show")
        For $i = 0 To UBound($aCheckPos,2)-1
            $aCheckboxes[$i][0] = GUICtrlCreateCheckbox($aCheckPos[2][$i], $aCheckPos[0][$i], $aCheckPos[1][$i], 97, 17)
        Next
        GUICtrlCreateButton("Shows speichern", 200, 176, 139, 25, $WS_GROUP)
        GUICtrlSetOnEvent(-1,"SaveConfig")
        GUICtrlCreateLabel("� Skollhunter", 32, 240, 68, 18)
    GUICtrlCreateTabItem("Account Einstellungen")
        GUICtrlCreateGroup("Account",20,50,160,130)
            $GUI[$InputUsername] = GUICtrlCreateInput("",50,90,100,20)
            $GUI[$InputPw] = GUICtrlCreateInput("",50,140,100,20,0x0020)
            GUICtrlCreateLabel("Benutzername",50,70)
            GUICtrlCreateLabel("Passwort",50,120)
        GUICtrlCreateGroup("", -99, -99, 1, 1) ; Gruppe schliessen
        GUICtrlCreateButton("Account speichern",50,200,98,25)
        GUICtrlSetOnEvent(-1,"SaveConfig")
    GUICtrlCreateTabItem("Credits")
        GUICtrlCreateLabel("Skollhunter", 48, 56, 57, 18)
        GUICtrlCreateLabel("Shadow992", 48, 88, 63, 18)
        GUICtrlCreateLabel("Darter", 48, 120, 94, 17)
        GUICtrlCreateLabel("� Skollhunter", 32, 232, 68, 18)
    GUICtrlCreateTabItem("Hilfe")
        GUICtrlCreateLabel("1.Shows ausw�hlen", 48, 50, 150, 17)
        GUICtrlCreateLabel("2.Shows speichern", 48, 70, 150, 17)
        GUICtrlCreateLabel("3.Benutzernamen - Passwort eingeben", 48, 90, 280, 17)
        GUICtrlCreateLabel("4.Benutzernamen - Passwort speichern", 48, 110, 280, 17)
        GUICtrlCreateLabel("5. Bot starten", 48, 130, 150, 17)
        GUICtrlCreateLabel("Wer Fragen hat soll Fragen:", 48, 152, 135, 17)
        GUICtrlCreateLabel("Elitepvpers-Marox59", 208, 152, 100, 17)
        GUICtrlCreateLabel("*************-Skollhunter", 208, 176, 119, 17)
        GUICtrlCreateLabel("� Skollhunter", 32, 232, 69, 17)
    GUICtrlCreateTabItem("")
        GUICtrlCreateButton("&Start", 222, 224, 75, 25, $WS_GROUP)
        GUICtrlSetOnEvent(-1,"Login")
        GUICtrlCreateButton("&Exit", 310, 224, 75, 25, $WS_GROUP)
        GUICtrlSetOnEvent(-1,"_exit")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
EndFunc

Func Login()
    _TCP_Send_Request("GET", $TCPInfos[0], "/entry.php","","","",1)
    ;_TCP_Send_Request($sTyp, $sHost, $sPage, $sReferer = "", $sCookie = "", $sPost = "", $bWontReturn = 0)
    Local $aLogin = _TCP_Send_Request("POST", $TCPInfos[0], "/login.php", "http://" & $TCPInfos[0] & "/entry.php", "", "username=" & $UserDaten[0] & "&password=" & $UserDaten[1] & "&x=" & Random(0,70,1) & "&y=" & Random(0,30,1))
    If IsArray($aLogin) Then
        ;TODO eine �berpr�fung, ob der Username und das pw passen
        $TCPInfos[1] = $aLogin[2] ;Set Mastercookie
        $UserDaten[2] = 1 ;Setze start auf 1
        _TCP_Send_Request("GET", $TCPInfos[0], "/uebersicht.php","",$TCPInfos[1])
    Else
        MsgBox(48,"Fehler","Fehler beim Login aufgetreten.")
    EndIf
EndFunc

Func Logout()
    _TCP_Send_Request("GET", $TCPInfos[0], "/logout.php", "http://" & $TCPInfos[0] & "/uebersicht.php", $TCPInfos[1])
EndFunc

Func Change($string)
    local $aPatternRep[37][2] = [["%","%25"],["†","%E2%80%A0"],["�","%C3%A4"],["�","%C3%B6"],["�","%C3%BC"],["!","%21"],['"',"%22"],["�","%C2%A7"], _
                                ["$","%24"],["&","%26"],["/","%2F"],["+","%2B"],[" ","+"],["(","%28"],[")","%29"],["=","%3D"],["?","%3F"],["[","%5B"], _
                                ["]","%5D"],["{","%7B"],["}","%7D"],["�","%C3%9F"],[",","%2C"],[":","%3A"],[";","%3B"],["#","%23"],["~","%7E"],["�","%C2%B2"], _
                                ["�","%C2%B3"],["<","%3C"],[">","%3E"],["|","%7C"],["^","%5E"],["�","%C2%B0"],["�","%C2%B4"],["@","%40"],["€","%E2%82%AC"]]
    For $i = 0 to UBound($aPatternRep)-1
        $string = StringReplace($string, $aPatternRep[$i][0], $aPatternRep[$i][1])
    Next
    Return $string
EndFunc   ;==>Change

Func SaveConfig()
    #region Save Shows
    Local $sSavestring
    For $i = 0 To UBound($aCheckboxes)-1
        If GUICtrlRead($aCheckboxes[$i][0]) = $GUI_CHECKED Then
            $sSavestring &= "1:"
        Else
            $sSavestring &= "0:"
        EndIf
    Next
    IniWrite($ini[0],"Show","Cheboxstates",StringTrimRight($sSavestring,1))
    #endregion

    #region Save Userdaten
    IniWrite($ini[0],"Login","Name",_StringEncrypt(1, GUICtrlRead($GUI[$InputUsername]), $ini[1], 3))
    IniWrite($ini[0],"Login","PW",_StringEncrypt(1, GUICtrlRead($GUI[$InputPw]), $ini[1], 3))
    #endregion
    Load_Config();Damit das Programm nicht neu gestartet werden muss um Einstellungen zu �bernehmen
    MsgBox(0,"Fertig","Einstellungen wurden gepeichert")
EndFunc

Func Load_Config()
    Local $aShowsPages[13] = ["showid=1","showid=2","showid=17","showid=16","showid=3","showid=6","showid=7","showid=8","showid=14", _
                            "showid=10","showid=19","showid=12","showid=15"]
    If IniRead($ini[0],"Show","Cheboxstates","") <> "" Then
        #region Load Shows
        $aConf_Checkboxstates = StringSplit(IniRead($ini[0],"Show","Cheboxstates",""),":",2)
        For $i = 0 To UBound($aConf_Checkboxstates)-1
            If $aConf_Checkboxstates[$i] = "1" Then
                GUICtrlSetState($aCheckboxes[$i][0],$GUI_CHECKED)
                $aCheckboxes[$i][1] = 1
            Else
                $aCheckboxes[$i][1] = 0
            EndIf
            ; Zuweisung des Showlinks zu dem jeweiligen Show
            $aCheckboxes[$i][2] = $aShowsPages[$i]
        Next
        #endregion

        #region Load Userdaten
        GUICtrlSetData($GUI[$InputUsername],_StringEncrypt(0, IniRead($ini[0],"Login","Name","Default"), $ini[1], 3))
        GUICtrlSetData($GUI[$InputPw],_StringEncrypt(0, IniRead($ini[0],"Login","Pw","Default"), $ini[1], 3))
        $UserDaten[0] = _StringEncrypt(0, IniRead($ini[0],"Login","Name","Default"), $ini[1], 3)
        $UserDaten[1] = _StringEncrypt(0, IniRead($ini[0],"Login","Pw","Default"), $ini[1], 3)
        #endregion
    EndIf
EndFunc

Func _exit()
    If $UserDaten[2] Then
        If MsgBox(48+4,"Achtung","Sie sind noch eingeloggt, soll sie der Bot vor dem Beenden ausloggen?") = 6 Then Logout()
    EndIf
    Exit
EndFunc

Func _TCP_Send_Request($sTyp, $sHost, $sPage, $sReferer = "", $sCookie = "", $sPost = "", $bWontReturn = 0)
    ;==> Autor: Darter - *************
    Local  $sPacket, $Recv,$aCookies, $aRecv, $sHeader, $sBody, $aReturn[3], $sCookies
    TCPStartup()
    $Socket = TCPConnect(TCPNameToIP($sHost),80)

    Switch $sTyp
        Case "GET"
            $sPacket =  "GET " & $sPage & " HTTP/1.1" & @CRLF & _
                        "Host: " & $sHost & @CRLF & _
                        "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.4) Gecko/20100611 AskTbUT2V5/3.8.0.12304 Firefox/3.6.4" & @CRLF & _
                        "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
                        "Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
                        "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
                        "Keep-Alive: 115" & @CRLF & _
                        "Connection: keep-alive" & @CRLF
            If $sReferer <> "" Then $sPacket &= "Referer: " & $sReferer & @CRLF
            If $sCookie <> "" Then $sPacket &= "Cookie: " & $sCookie & @CRLF
            ;$sPacket &= "Cache-Control: max-age=0" & @CRLF & @CRLF
            $sPacket &=  @CRLF
        Case "POST"
            $sPacket =  "POST " & $sPage & " HTTP/1.1" & @CRLF & _
                        "Host: " & $sHost & @CRLF & _
                        "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.4) Gecko/20100611 AskTbUT2V5/3.8.0.12304 Firefox/3.6.4" & @CRLF & _
                        "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
                        "Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
                        "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
                        "Keep-Alive: 115" & @CRLF & _
                        "Connection: keep-alive" & @CRLF
            If $sReferer <> "" Then $sPacket &= "Referer: " & $sReferer & @CRLF
            If $sCookie <> "" Then $sPacket &= "Cookie: " & $sCookie & @CRLF
            $sPacket &= "Content-Type: application/x-www-form-urlencoded" & @CRLF & _
                        "Content-Length: " & StringLen($sPost) & @CRLF & @CRLF & $sPost
        Case Else
            Return SetError(1, "", "0")
    EndSwitch

    consoleWrite($sPacket & @CRLF)

    TCPSend($Socket, $sPacket)

    If not $bWontReturn Then
        Local $Timeout_Timer = TimerInit()
        Do
            $Recv = TCPRecv($Socket,1024)
        Until $Recv <> "" Or TimerDiff($Timeout_Timer) > 5000

        $Timeout_Timer = TimerInit()

        Do
            $Recv &= TCPRecv($Socket,1024)
        Until @error Or StringInStr($Recv,"</html>") Or TimerDiff($Timeout_Timer) > 5000

        $aRecv = StringSplit($Recv,@CRLF,1)
        If IsArray($aRecv) Then
            For $i = 1 To $aRecv[0]
                If $aRecv[$i] <> "" Then
                    $sHeader &= $aRecv[$i] & @CRLF
                Else
                    ExitLoop
                EndIf
            Next
            For $a = $i To $aRecv[0]
                $sBody &= $aRecv[$a] & @CRLF
            Next
            $aReturn[0] = $sHeader
            $aReturn[1] = $sBody
            ;ConsoleWrite($sBody & @CRLF)
        Else
            Return SetError(2,"",0)
        EndIf

        If StringInStr($Recv, "Set-Cookie: ") Then
            $aCookies = StringRegExp($Recv,"Set-Cookie: ([^;]+)",3)
            For $i = 0 To $aCookies[0]
                $sCookies &= $aCookies[$i] & ";"
            Next
            $aReturn[2] = StringTrimRight($sCookies,1)
        EndIf

        TCPCloseSocket($Socket)
        TCPShutdown()

        Return $aReturn
    EndIf
    TCPCloseSocket($Socket)
    TCPShutdown()
EndFunc   ;==>_TCP_Send_Request

Also er muss nach dem einloggen in den quelltext schauen und von der [Only registered and activated users can see links. Click Here To Register...] seite die user id auslesen das ist das unterstrichene <a href="user.php?userid=13719">

dann muss er von folgender seite "http://wrestlegame.de/user.php"&$userid
aus dem quelltext das unterstrichene auslesen <td align="center" colspan="1" height="60">144.12%<br /> </td>
dann m�sste er es in der gui anzeigen das d�rfte so machbar sein glaub ich

PHP Code:


			
GUICtrlCreateLabel("Dein Gesundheitszustand:"&$gesundheitszustand 48, 50, 300, 17)

bitte helft mir w�r echt nett