Originally Posted by pikantokanto
oki ich danke dir, wollte mit dem bot eigentlich den quelltext auslesen zwecks verfügbarkeit der ressource, wollte mir per while schleife die genaue anzahl ressourcen in einem tooltip anzeigen lassen, damit ich genau weiss, okay jetzt kann ich wieder was bauen, so automatisch bauen lassen wollt ich des nicht :P aber ich schau mal was mit packetbots so geht =)
Also hab mal die ganze Sache mit den Packetbots ausprobiert, aufjedenfall macht er schonmal was. ^^ Nur hab ich keine Ahnung was ich aus meiner MsgBox rausfiltern soll, damit ich weiter komme und der bot sich endlich auch mal einloggt. :o
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]
hier auch gleich der Code, hoffe du kannst mir da weiterhelfen :o
Code:
#include<String.au3>
;$server=inputbox("Gib die Zahl von deinem Server ein!","Gib die Zahl von deinem Server ein!")
$name=inputbox("Accountname","Gib deinen Accountnamen ein!")
$passwort=inputbox("Passwort","Gib dein Passwort ein!")
TCPStartup()
$ip = TCPNameToIP("xxx.de")
TCPShutdown()
$post='uni=.%2F&username='&Change($name)&'&password='&Change($passwort)&'&submit=Login'
$source=TCPRequest($ip,"xxx.de",0, "//game.php?page=overview",$post, "", 'http://xxx.de//index.php')
$cookies=GetCookies($source)
MsgBox(0,"test","Die IP von xxx.de lautet:" & $ip & @crlf & $source)
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,$msg=0, $sSeite = "", $sPost = '', $sCookies = '', $sReferer = '', $iMaxTime = 10000)
Local $sPacket, $iSocket, $iTimer
If $sPost = '' Then
$sPacket = 'GET /' & $sSeite & ' HTTP/1.1' & @CRLF
Else
$sPacket = 'POST // HTTP/1.1' & @CRLF
EndIf
$sPacket &= 'Host: ' & $sHost & @CRLF & _
'User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.0; de; rv:1.9.2.10) Gecko/20100914 Firefox/3.6.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: 115' & @CRLF & _
'Content-Type: application/x-www-form-urlencoded' & @CRLF & _
'Connection: keep-alive' & @CRLF & _
'Accept-Encoding; gzip,deflate' & @CRLF
If $sReferer <> '' Then
$sPacket &= 'Referer: ' & $sReferer & @CRLF
EndIf
If $sCookies <> '' Then
$sCookies=StringStripCR($sCookies)
$sCookies=StringStripWS($sCookies,8)
$sPacket &= 'Cookie: ' & $sCookies & @CRLF
EndIf
If $sPost <> '' Then
$sPacket &= 'Content-Length: ' & StringLen($sPost) & @CRLF
EndIf
$sPacket &= @CRLF
If $sPost <> '' Then
$sPacket &= $sPost
EndIf
If $msg=1 Then
MsgBox(0,"Packet",$sPacket)
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
|