ich hab nen neues Problem mittlerweile klapt das mit dem Einloggen vom Bot aber jetzt bekomme ich die Fehlermeldung:
Code:
Your web browser musst have JavaScript enabled in order for this application to display correctly.
Hier mal das Script soweit, ist bestimmt nicht perfekt aber ich bin am Lernen
Code:
#include <WinHTTP.au3> #include <Array.au3> #include <String.au3> Global $HTML = "" global $sHTML = "" Global $WinHTTP_Host = "battleofcrowns.com" Global $WinHTTP_Host1 = "belize3.de.battleofcrowns.com" Global $WinHTTP_Client = _WinHttpOpen("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:22.0) Gecko/20100101 Firefox/22.0") Global $WinHTTP_Connect1 = _WinHttpConnect($WinHTTP_Client, $WinHTTP_Host1) Global $WinHTTP_Connect = _WinHttpConnect($WinHTTP_Client, $WinHTTP_Host) Global $sToken = "" Global $Gamelink = "" Global $OAuth = 'Authorization: Bearer ' Global $sID = "" While 19 ; Die "normale" Hauptschleife ; Wir führen nacheinander die Funktionen aus _Login() ClipPut(_Abfrage()) ; Die Ergebnisse - Code den packen wir uns zum Testen immer in den Zwischenspeicher (finde ich besser als FileWrite!) Exit WEnd Func _Login() $HTML = Win_GET_To("battleofcrowns.com", "/de/") ;STARTSEITE $HTML = Win_GET_To("battleofcrowns.com", "/de/?popup=login") ;POPUP $HTML = Win_POST_To("battleofcrowns.com", "/public/api/login",'{"email":"","password":"12345678"}') $tokenabfrage = StringRegExp($HTML , '"token":"(.+?)"', 3) ; Token wird ausgelesen If IsArray($tokenabfrage) Then $sToken = $tokenabfrage[0] EndIf $deine_Id = StringRegExp($HTML , '"playerId":(.+?),"', 3) ; PlayerId wird ausgelesen If IsArray($deine_Id) Then $sID = $deine_Id[0] EndIf $HTML = _WinHttpSimpleRequest($WinHTTP_Connect,"GET", "/public/api/player/"& $sID & "/gameclientlink?domain=belize3.de.battleofcrowns.com&_=1377532546574","/de/?page=serverList" & @CRLF & $OAuth & $sToken) $Si = StringRegExp($HTML , '/gameserver/game.jsp\?user=(.+?)%3D%3D', 3) ; Gamelink wird ausgelesen If IsArray($Si) Then $Gamelink = $Si[0] EndIf $sHTML = _WinHttpSimpleRequest($WinHTTP_Connect1,"GET",'/gameserver/game.jsp?user=' & $Gamelink & '%3D%3D&w=1920&h=1080&pixelRatio=1',"/de/?page=serverList" & "&useCookies=1&url=") ;$a = _StringBetween($HTML,'<html style="overflow: hidden;">"','"</html>') ;ConsoleWrite($HTML) ;<------------ hier bleibe ich hängen >------------------------------------------------------- MsgBox(0, "POST-Login", $sHTML) ; nur zum Testen FileWrite("Login.html", $sHTML) ; nur zum Testen ;$sHTML = _WinHttpSimpleRequest($WinHTTP_Connect1,"GET",'/gameserver/cc/service/init', '/gameserver/game.jsp?user=' & $Gamelink & '%3D%3D&w=1920&h=1080&pixelRatio=1') EndFunc Func _Abfrage() MsgBox(0, "Token.txt", $sToken) ; nur zum Testen MsgBox(0, "playerId", $sID) ; nur zum Testen MsgBox(0, "Gamelink", $Gamelink) ; nur zum Testen ;$aReturn = StringRegExp($shtml , '<div class="HudProfile-Gold-Icon">(\d+?)</div>', 3) ;MsgBox(64, "Goldbetrag", $aReturn[0]) ; nur zum Testen EndFunc Func Win_GET_To($sHost, $sSite) If Not ($sHost = $WinHTTP_Host) Then $WinHTTP_Host = $sHost $WinHTTP_Connect = _WinHttpConnect($WinHTTP_Client, $WinHTTP_Host) EndIf $WinHTTP_Request = _WinHttpOpenRequest($WinHTTP_Connect, "GET", $sSite, "HTTP/1.1", $sHost) _WinHttpSendRequest($WinHTTP_Request) _WinHttpReceiveResponse($WinHTTP_Request) Local $sHTML = "" Do $sHTML &= _WinHttpReadData($WinHTTP_Request) Until @error Return $sHTML EndFunc ;==>Win_GET_To1 Func Win_POST_To($sHost, $sSite, $sPost) If Not ($sHost = $WinHTTP_Host) Then $WinHTTP_Host = $sHost ; Neuen Host bestimmen $WinHTTP_Connect = _WinHttpConnect($WinHTTP_Client, $WinHTTP_Host) EndIf $WinHTTP_Request = _WinHttpOpenRequest($WinHTTP_Connect, "POST", $sSite, "HTTP/1.1", $sHost) _WinHttpSendRequest($WinHTTP_Request, "Content-Type: application/json; charset=UTF-8" & @CRLF, $sPost) _WinHttpReceiveResponse($WinHTTP_Request) Local $sHTML = "" Do $sHTML &= _WinHttpReadData($WinHTTP_Request) Until @error Return $sHTML EndFunc ;==>Win_POST_To _WinHttpCloseHandle($WinHTTP_Connect, $WinHTTP_Connect1) _WinHttpCloseHandle($WinHTTP_Client)