Packetbot URL Ansteuern

[autoit]#include
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",218,478,987,37)
$Start=GuiCtrlCreateButton("Start",16,55,185,130)
$Exit=GuiCtrlCreateButton("EXIT [ESC]",16,199,184,127)
$credits=GuiCtrlCreateButton("Credits",12,438,187, 25)
$info=GuiCtrlCreateButton("Info",15,343,187,78)
$label1=GuiCtrlCreateLabel("Wrestlegame.de",63,12, 80,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()
Wend




Func EXITT()

MsgBox (0, "Exit", "Bot wird beendet")
Exit
EndFunc

Func Credits()
MsgBox (0, "Credits", "Shadow992 "&@CRLF&"Skollhunter")
EndFunc

Func Info()
MsgBox (0, "Info", "Release xx.06.2010")
EndFunc


Func Start()

TCPStartup()
$ip = TCPNameToIP("www.wrestlegame.de")
TCPShutdown()

$source = TCPRequest($ip, "www.wrestlegame.de", "/login.php", $post)
$cookies = GetCookies($source)
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, '')
TCPCloseSocket($iSocket)
TCPShutdown()
Return $sRecv
EndFunc ;==>TCPRequest
;===============hier===================Func
TCPRequest("www.wrestlegame.de", "/show.php?showid=4", $post)
Endfunc;===================hier================Fun c 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
[/autoit]