Hallo
ich wolte mal einen loginbot für spiele machen.
Ich will das er das "sendet" was in den Imputboxen steht.
ich kann den fehler nicht finden.
Vllt findet ihr den fehler
Code :
und ich will das alles ohne den "While " Befehl
ich wolte mal einen loginbot für spiele machen.
Ich will das er das "sendet" was in den Imputboxen steht.
ich kann den fehler nicht finden.
Vllt findet ihr den fehler
Code :
Code:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("LoginBot by .FreakY", 300, 200, 200, 200)
$Button1 = GUICtrlCreateButton("Einloggen", 70, 80, 161, 35, 0)
GUICtrlSetBkColor(-1, 0x00FFFF)
GUICtrlSetFont(-1, 17, 400, 0, "Rosewood Std Regular")
GUICtrlSetCursor (-1, 0)
$Button3 = GUICtrlCreateButton("ENDE", 100, 120, 100, 0)
GUICtrlSetFont(-1, 17, 400, 0, "Rosewood Std Regular")
GUICtrlSetBkColor(-1, 0x00FFFF)
GUICtrlSetCursor (-1, 0)
$Button4 = GUICtrlCreateButton("INFO", 5, 160, 75, 30)
GUICtrlSetBkColor(-1, 0x00FFFF)
GUICtrlSetFont(-1, 17, 400, 0, "Rosewood Std Regular")
GUICtrlSetCursor (-1, 0)
$Button5 = GUICtrlCreateButton("E*PvP", 220, 160, 75, 30)
GUICtrlSetBkColor(-1, 0x00FFFF)
GUICtrlSetFont(-1, 17, 400, 0, "Rosewood Std Regular")
GUICtrlSetCursor (-1, 0)
GUISetBkColor(0x008000)
GUICtrlSetFont(-1, 16, 400, 0, "Rosewood Std Regular")
$Input1 = GUICtrlCreateInput("", 75, 10, 200, 21)
$Input2 = GUICtrlCreateInput("", 75, 40, 200, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$id = GUICtrlCreateLabel("ID", 16, 16, 44, 17)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$pw = GUICtrlCreateLabel("PW", 16, 40, 36, 17)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
guictrlsetstate($button1,$gui_enable)
guictrlsetstate($button3,$gui_enable)
$state = false
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
case $button3
guictrlsetstate($button3,$gui_enable)
Exit
case $button4
MsgBox(0, "Info", _
@CRLF & _
@CRLF & _
"Infos" & @CRLF & _
"" & @CRLF & _
"Dieser Bot ist hilfreich wenn man kb hat" & @CRLF & _
"seine Daten immer einzugeben" & @CRLF & _
"Das ist zu 100% kein Keylogger" & @CRLF & _
@CRLF & _
"Powert by .FreakY for ElitePvPers")
case $button5
ShellExecute("http://www.elitepvpers.com/", 1)
EndSwitch
if $state = false then
send (GUICtrlRead("{$id}"))
send ("{Enter}")
send (GUICtrlRead($pw))
send ("{Enter}")
sleep(10000)
EndIf
WEnd