#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 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
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
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
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
Was hast du nun für ein Problem?
Du rufst einfach mit der TCP_Request Funktion die übersicht.php auf und die Funktion gibt dir ja dann den Source zurück. In dem kannst du dann einfach mit StringRegExp oder eben alternativ mit _StringBetween nach deiner userid suchen und für die nächste Seite genau so.
Ich habe aber das Gefühl, dass du deinen Quellcode gar nicht verstehst, da du ihn wohl nicht selbst geschrieben hast. Du solltest erst einmal selbst verstehen was dein Script bis jetzt macht und wie es funktioniert bevor du weitermachst.
ich was was es bis jetzt macht es wurde von jemanden aus einem anderen forum gekürzt nun bin ich neu dran rauszufinden wie alles funkt aber erstmal danke
Packetbot in vb 08 08/19/2010 - .NET Languages - 2 Replies Hallo,
Ich wollte mal anfangen über Winsock Packet Bots zu programmieren und habe dazu dieses Tutorial gefunden :http://www.elitepvpers.com/forum/gamehacking-tutor ials/161132-tutorial-packets-sniffing-analysis.htm l
Es ist mir auch gelungen Loginpackete für das Spiel zu finden und diese zu entschlüsseln, aber wie soll ich jetzt weiter machen? Ich weiß nicht wie man diese Packete in vb senden kann, kann mir das jemand vll erklären?
habe natürlich schon sufu benutzt und gegoogled aber ohne...
Problem mit Layer Ads und Quelltext! 07/21/2010 - Main - 0 Replies Hallo! Vorab, ich wusste nicht ob dieses Forum das richtige ist oder ob ich diese Frage lieber bei Coders stellen sollte, aber dachte da es sich dort ja um Programme und nicht ums Web handelt, wär ich hier richtig!
Eine kleine Frage an die Experten hier...
Ich habe soeben eine neue Seite erstellt: Das Youtube Geheimnis Exklusiv!
Anschliessend habe ich mich bei BinLayer V4 angemeldet um ein Layer einblenden zu lassen, ich sollte folgenden Code verwenden und im Quelltext optimal vor dem ...
quelltext 05/16/2009 - Browsergames - 2 Replies hey
hab mal ne frage und zwar
geht es nicht einfach mit quelltext(mit opera) sich geld oder flaschen zu geben?
für was dan die ganzen bots und so ...xD
AutoIT Quelltext 02/03/2009 - General Coding - 6 Replies hi leute
ich wollte euch mal fragen, ob es irgendwie möglich ist, den quelltext eines 1.5MB - AutoIT programmes anzuschauen?
also ich habe dieses programm und möchte den quelltext anschauen, geht das?
wenn ja wie?
Spike
ps: gibt auch n thx ;)
seite die user id auslesen das ist das unterstrichene <a href="user.php?userid=13719">
