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
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)
