[AutoIt]Tutorial zu Browsergamebots (Packetbots und IEbots)

HotKeySet("{ESC}","close")
#include<IE.au3>
#include<String.au3>

$input = InputBox ("Ja oder Nein?", "Ich bestätige mit der eingabe von Ja das ich keine Ansprüche stelle wenn mein System schaden vom nutzen des Programmes trägt")

If $input = "ja" Then
MsgBox (0, "Ja", "Bot wird gestartet...")
ElseIf $input = "nein" Then
MsgBox (0, "Nein", "Dann geh lieber Pokemon spielen")
Exit


Else
MsgBox (0, "", "Was verstehst du an 'Antworte nur mit Ja oder Nein' eigentlich nicht?!...")
Exit
EndIf

GuiCreate("© by Skollhunter",166,405,987,50)
$button1=GuiCtrlCreateButton("Start Login",22,41,118,38)
$button2=GuiCtrlCreateButton("In Shows eintragen",12,90,138,45)
$button3=GuiCtrlCreateButton("EXIT",12,157,129,73)
$button4=GuiCtrlCreateButton("Credits",5,378,50,20)
$label1=GuiCtrlCreateLabel("Wrestlegame.de-Bot",33,8,96,15)
$label2=GuiCtrlCreateLabel("http://www.elitepvpers.com",20,355,123,15)
GuiSetState()

While 1
$msg=GuiGetMsg()
If $msg=-3 Then Exit
If $msg=$button1 Then button1()
If $msg=$button2 Then button2()
If $msg=$button3 Then button3()
If $msg=$button4 Then button4()
Wend








Func button3()
	Exit
EndFunc

Func button4()
	MsgBox(0,"© by Skollhunter","Credits:")
EndFunc



$name=Inputbox("Benutzername","Bitte gib deinen Benutzernamen ein")
$passwort=Inputbox("Passwort","Bitte gib dein Passwort ein")

Func button1()
$oIE=_IECreate("www.wrestlegame.de") 

$oForm = _IEFormGetCollection($oIE,0) 

 $oUsername = _IEFormElementGetObjByname($oForm,"username")
    $oPassword = _IEFormElementGetObjByName($oForm,"password")
    _IEFormElementSetValue ($oUsername,$name)
    _IEFormElementSetValue ($oPassword,$passwort)  

_IEFormSubmit($oForm)

_IELinkClickByText ( $oIE, "Shows") 
_IeLoadWait($oIE)
_IENavigate($oIE,"http://wrestlegame.de/show.php?showid=2")
$HTML = _IEDocReadHTML ($oIE)
$session=_StringBetween($HTML,'<a href="','";<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">')
_IENavigate($oIE,"http://wrestlegame.de/show.php="&$session[0])
_IeLoadWait($oIE,0,8000)
Endfunc
Func button2()
while 1
_IENavigate($oIE,"http://wrestlegame.de/show.php?showid=2")
$HTML = _IEDocReadHTML ($oIE)
$session=_StringBetween($HTML,'<a href="','";<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">')
_IENavigate($oIE,"http://wrestlegame.de/show.php="&$session[0])
_IeLoadWait($oIE,0,5000)
_IENavigate($oIE,"http://wrestlegame.de/show.php?showid=7")
$HTML = _IEDocReadHTML ($oIE)
$session=_StringBetween($HTML,'<a href="','";<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">')
_IENavigate($oIE,"http://wrestlegame.de/show.php="&$session[0])
_IeLoadWait($oIE,0,5000)

Wend
Endfunc
Func close()
	MsgBox (0, "Sinnloses Teil^^", "Bot wird beendet")
	Exit
Endfunc