Habe einige Probleme und sachen die ich trotz tuts einfach nicht alleine realisieren kann. Wäre sehr froh wenn ihr mir zum warscheinlich 10x150³ mal helft^^
hier mein erneuerter code
hier mein erneuerter code
Code:
#include <String.au3>
#include<IE.au3>
HotKeySet("{ESC}","_Exit")
;================Benutzername&Passwort speichern======================
$name=""
$pw=""
$name1=""
$pw1=""
$EncryptPW = "0175874" ;Hier bitte das PW anpassen, kannst nehmen was du willst. Wird aber für die Verschlüsselung gebraucht
$ini = "config.ini"
$iniread = IniRead($ini,"Nutzung","ja/nein","NotFound")
If $iniread = "ja" Then
$EncryName = IniRead($ini,"Login","Name","")
$EncryPW = IniRead($ini,"Login","PW","")
$name = _StringEncrypt(0, $EncryName, $EncryptPW, 7)
$pw = _StringEncrypt(0, $EncryPW, $EncryptPW, 7)
Else
Global $input[2]
$input[0] = InputBox("Username","Geben sie bitte hier ihren Benutzernamen ein", "","#" )
$input[1] = InputBox("Password","Geben sie bitte hier ihr Passwort ein", "", "#")
IniWrite($ini,"Login","Name",_StringEncrypt(1, $input[0], $EncryptPW, 3))
IniWrite($ini,"Login","PW",_StringEncrypt(1, $input[1], $EncryptPW, 3))
IniWrite($ini,"Nutzung","ja/nein","ja")
EndIf
Func _Exit()
Exit
EndFunc
;============================Login Script==========================================
$post = "username=" & $name1 & "&password=" & $pw1 & "&x=" & Random(10, 40, 1) & "&y=" & Random(5, 18, 1)
GuiCreate("Wrestlegame.de Bot",321,294,947,6)
$Start=GuiCtrlCreateButton("Start",6,38,131,42)
$choose=GuiCtrlCreateButton("Shows auswählen",7,85,130,39)
$info=GuiCtrlCreateButton("Anleitung",2,203,317,48)
$credits=GuiCtrlCreateButton("Credits",5,252,314,40)
$Exit=GuiCtrlCreateButton("Exit",170,40,122,150)
$link=GuiCtrlCreateButton("www.elitepvpers.com",7,129,130,45)
$label1=GuiCtrlCreateLabel("Build No.0.0.1",110,6,54,15)
GuiSetState()
While 1
$msg=GuiGetMsg()
If $msg=-3 Then Exit
If $msg=$Start Then Start()
If $msg=$Exit Then EXITT()
If $msg=$credits Then Credits()
If $msg=$info Then Info()
If $msg=$link then link()
If $msg=$choose then choose()
Wend
Func Info()
MsgBox (0, "Anleitung", "1.Klicke auf Show wählen")
MsgBox (0, "Anleitung", "2.Klicke auf Start")
MsgBox (0, "Anleitung", "3.Es öffnet sich kein Fenster aber keine Angst zu diesem Zeitpunkt bottest du schon^^")
Endfunc
Func link()
$oIE=_IECreate("www.elitepvpers.com")
Endfunc
Func choose()
Global $input[16];hier soll mann auswählen welche urls dann aufgerufen werden sollen
$input[2] = Inputbox ("Initiative","Ja oder Nein")
$input[3] = Inputbox("Accelerate","Ja oder Nein")
$input[4] = Inputbox("Night of Glory","Ja oder Nein")
$input[5] = Inputbox("Beatdown","Ja oder Nein")
$input[6] = Inputbox("War Zone","Ja oder Nein")
$input[7] = Inputbox("Wildcard Roulette","Ja oder Nein")
$input[8] = Inputbox("Doomsday Lite","Ja oder Nein")
$input[9] = Inputbox("Doomsday","Ja oder Nein")
$input[10] = Inputbox("Championsnite","Ja oder Nein")
$input[11] = Inputbox("TT-Accelerate","Ja oder Nein")
$input[12] = Inputbox("TT-Beatdowm","Ja oder Nein")
$input[13] = Inputbox("TT-War Zone","Ja oder Nein")
$input[14] = Inputbox("TT-Free 4 all","Ja oder Nein")
$input[15] = Inputbox("TT-Championsnite","Ja oder Nein")
IniWrite($ini,"Initiative","Ja oder Nein"(1, $input[2],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"Accelerate","Ja oder Nein"(1, $input[3],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"Night of Glory","Ja oder Nein"(1, $input[4],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"Beatdown","Ja oder Nein"(1, $input[5],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"War Zone","Ja oder Nein"(1, $input[6],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"Wildcard Roulette","Ja oder Nein"(1, $input[7],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"Doomsday Lite","Ja oder Nein"(1, $input[8],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"Doomsday","Ja oder Nein"(1, $input[9],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"Championsnite","Ja oder Nein"(1, $input[10],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"TT-Accelerate","Ja oder Nein"(1, $input[11],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"TT-Beatdowm","Ja oder Nein"(1, $input[12],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"TT-War Zone","Ja oder Nein"(1, $input[13],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"TT-Free 4 all","Ja oder Nein"(1, $input[14],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"TT-Championsnite","Ja oder Nein"(1, $input[15],, 3));hier kommt missing right bracket wo liegt der fehler?
Endfunc
Func EXITT()
MsgBox (0, "Exit", "Bot wird beendet")
Exit
EndFunc
Func Credits()
MsgBox (0, "Credits", "Shadow992 "&@CRLF&"Skollhunter")
EndFunc
Func Start()
TCPStartup()
$ip = TCPNameToIP("www.wrestlegame.de")
TCPShutdown()
$source = TCPRequest($ip, "www.wrestlegame.de", "/login.php", $post)
$cookies = GetCookies($source)
;===========================================================
;Ich hab keine Ahnung wie ich weitermachen muss also wo ich die urls hinpacken muss die nach dem login aufgerufen werden sollen?!
;Also hier soll auch die config.ini ausgelesen werden und halt wenn oben bei der show mit ja geantwortet wurde dann soll er die url aufrufen wenn nicht zur nächsten springen!
While 1
;das unterstrichene müsste er auslesen und an www.wrestlegame.de anfügen und aufrufen
<a href="[U]?action=compete&showid=4&c=ff333497ace6929e1277664151[/U]"><b style="text-align:center; vertical-align:middle; font-size:8pt; text-transform: uppercase; font-weight:bold; font-family:Tahoma; line-height:16pt; color:#FFFFFF">
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=17";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=1";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=2";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=3";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=4";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=6";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=7";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=8";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=9";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=10";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=11";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=12";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=13";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=14";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=15";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
Wend
;===========================================================
Endfunc
Func GetCookies($sQuellcode)
Local $sCookies, $i, $aCookies
$sCookies = ''
$aCookies = _StringBetween($sQuellcode, 'Set-Cookie: ', ';', 1)
For $i = 0 To UBound($aCookies) - 1
$sCookies &= $aCookies[$i] & ';'
Next
Return $sCookies
EndFunc ;==>GetCookies
Func TCPRequest($sIp, $sHost, $sSeite = "", $sPost = '', $sCookies = '', $sReferer = '', $iMaxTime = 10000)
Local $sPacket, $iSocket, $iTimer
If $sPost = '' Then
$sPacket = 'GET /' & $sSeite & ' HTTP/1.1' & @CRLF
Else
$sPacket = 'POST /' & $sSeite & ' HTTP/1.1' & @CRLF
EndIf
$sPacket &= 'Host: ' & $sHost & @CRLF & _
'User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.1.10) Gecko/20100504 Firefox/3.5.10 (.NET CLR 3.5.30729)' & @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: 300' & @CRLF & _
'Content-Type: application/x-www-form-urlencoded' & @CRLF & _
'Connection: keep-alive' & @CRLF
If $sReferer <> '' Then
$sPacket &= 'Referer: ' & $sReferer & @CRLF
EndIf
If $sCookies <> '' Then
$sPacket &= 'Cookie: ' & $sCookies & @CRLF
EndIf
If $sPost <> '' Then
$sPacket &= 'Content-Length: ' & StringLen($sPost) & @CRLF
EndIf
$sPacket &= @CRLF
If $sPost <> '' Then
$sPacket &= $sPost
EndIf
TCPStartup()
If @error Then Return SetError(1, 0, "")
$iSocket = TCPConnect($sIp, 80)
If @error Then Return SetError(2, 0, "")
TCPSend($iSocket, $sPacket)
If @error Then Return SetError(3, 0, "")
$iTimer = TimerInit()
Do
$sRecv = TCPRecv($iSocket, 1024)
If TimerDiff($iTimer) > $iMaxTime Then Return SetError(4, 0, "")
Until $sRecv <> ""
Do
$sRecv &= TCPRecv($iSocket, 1024)
Until @error Or StringInStr($sRecv, '</html>')
TCPCloseSocket($iSocket)
TCPShutdown()
Return $sRecv
EndFunc ;==>TCPRequest
Func Change($string)
$string = StringReplace($string, "%", "%25")
$string = StringReplace($string, "†", "%E2%80%A0")
$string = StringReplace($string, "ä", "%C3%A4")
$string = StringReplace($string, "ö", "%C3%B6")
$string = StringReplace($string, "ü", "%C3%BC")
$string = StringReplace($string, "!", "%21")
$string = StringReplace($string, '"', "%22")
$string = StringReplace($string, "§", "%C2%A7")
$string = StringReplace($string, "$", "%24")
$string = StringReplace($string, "&", "%26")
$string = StringReplace($string, "/", "%2F")
$string = StringReplace($string, "+", "%2B")
$string = StringReplace($string, " ", "+")
$string = StringReplace($string, "(", "%28")
$string = StringReplace($string, ")", "%29")
$string = StringReplace($string, "=", "%3D")
$string = StringReplace($string, "?", "%3F")
$string = StringReplace($string, "[", "%5B")
$string = StringReplace($string, "]", "%5D")
$string = StringReplace($string, "{", "%7B")
$string = StringReplace($string, "}", "%7D")
$string = StringReplace($string, "ß", "%C3%9F")
$string = StringReplace($string, ",", "%2C")
$string = StringReplace($string, ":", "%3A")
$string = StringReplace($string, ";", "%3B")
$string = StringReplace($string, "#", "%23")
$string = StringReplace($string, "~", "%7E")
$string = StringReplace($string, "²", "%C2%B2")
$string = StringReplace($string, "³", "%C2%B3")
$string = StringReplace($string, "<", "%3C")
$string = StringReplace($string, ">", "%3E")
$string = StringReplace($string, "|", "%7C")
$string = StringReplace($string, "^", "%5E")
$string = StringReplace($string, "°", "%C2%B0")
$string = StringReplace($string, "´", "%C2%B4")
$string = StringReplace($string, "@", "%40")
$string = StringReplace($string, "€", "%E2%82%AC")
Return $string
EndFunc ;==>Change