;written by freedomcaller gimme head (or karma)
;modified for jcgd
#include <GUIConstants.au3>
$inifile = "autotbot.ini"
$realid2 = iniRead ($inifile, "MAIN", "realid", "IDtbot")
$yourid2 = iniRead ($inifile, "MAIN", "yourid", "IDsro")
$vtbot2 = iniRead ($inifile, "MAIN", "vtbot", "TBotSro0901.exe")
$sleep2 = iniRead ($inifile, "MAIN", "sleep", "3")
$Wuser2 = IniRead ($inifile, "MAIN", "Wuser", "Tbot")
$Wpass2 = IniRead ($inifile, "MAIN", "Wpass", "123")
GUICreate("AutoTBOT", 200, 400)
$startbutton = GUICtrlCreateButton("Start", 70, 20, 60)
GUICtrlCreateLabel("Enter ID Tbot",30,60)
$realid3 = GUICtrlCreateInput( $realid2 ,30,75,150,20)
GUICtrlCreateLabel("Enter you ID",30,100)
$yourid3 = GUICtrlCreateInput( $yourid2 ,30,115,150,20)
GUICtrlCreateLabel("Enter Version Tbot",30,140)
$vtbot3 = GUICtrlCreateInput( $vtbot2 ,30,155,150,20)
GUICtrlCreateLabel("Enter Sleep Time",30,210)
$sleep3 = GUICtrlCreateInput( $sleep2 ,30,225,150,20)
GUICtrlCreateLabel("Enter user account windows",30,250)
$Wuser3 = GUICtrlCreateInput( $Wuser2 ,30,265,150,20)
GUICtrlCreateLabel("Enter PW user account windows",30,290)
$wpass3 = GUICtrlCreateInput( $Wpass2 ,30,305,150,20)
GUICtrlCreateLabel("Made By jcgd",50,340)
GUISetState ()
$msg = GUIGetMsg()
While $msg <> $startbutton
$msg = GUIGetMsg()
Select
Case $msg = $startbutton
$realid = GUICtrlRead ( $realid3 )
$yourid = GUICtrlRead ( $yourid3 )
$vtbot = GUICtrlRead ( $vtbot3 )
$sleep = GUICtrlRead ( $sleep3 )
$Wuser = GUICtrlRead ( $Wuser3 )
$Wpass = GUICtrlRead ( $Wpass3 )
EndSelect
Wend
GUIDelete ( "AutoTBOT" )
IniWrite ($inifile, "MAIN", "realid", $realid)
iniWrite ($inifile, "MAIN", "yourid", $yourid)
iniWrite ($inifile, "MAIN", "vtbot", $vtbot)
iniWrite ($inifile, "MAIN", "sleep", $sleep)
iniWrite ($inifile, "MAIN", "Wuser", $Wuser)
iniWrite ($inifile, "MAIN", "Wpass", $Wpass)
$sleep = $sleep * 1000
run ("cmd")
Sleep(500)
send("Runas /User:")
send($Wuser)
send(" ")
send($vtbot)
Send("{Enter}")
sleep(500)
Send($Wpass)
Send("{Enter}")
Sleep(500)
send("exit")
Send("{Enter}")
sleep ($sleep)
$handle1 = WinGetHandle("InterNationSilkRoadAss","")
run ($vtbot)
sleep ($sleep)
$handle2 = WinGetHandle("InterNationSilkRoadAss","")
ControlSetText("","", 1001, $realid )
sleep ($sleep)
ControlCommand ($handle2, "Login",1002,"Check", "")
sleep ($sleep)
ControlCommand ($handle1, "exit",1003,"Check", "")
run ("cmd")
Sleep(500)
send("Runas /User:")
send($Wuser)
send(" ")
send($vtbot)
Send("{Enter}")
sleep(500)
Send($Wpass)
Send("{Enter}")
Sleep(500)
send("exit")
Send("{Enter}")
sleep ($sleep)
$handle3 = WinGetHandle("InterNationSilkRoadAss","")
sleep ($sleep)
ControlSetText($handle3,"", 1001, "FCrox")
sleep (500)
ControlCommand ($handle3, "Login",1002,"Check", "")
sleep ($sleep)
ControlSetText($handle2,"", 1001, $yourid )
sleep(500)
ControlCommand ($handle2, "Login",1002,"Check", "")
sleep (500)
ControlCommand ($handle3, "exit",1003,"Check", "")
run ("cmd")
Sleep(500)
send("Runas /User:")
send($Wuser)
send(" ")
send($vtbot)
Send("{Enter}")
sleep(500)
Send($Wpass)
Send("{Enter}")
Sleep(500)
send("exit")
Send("{Enter}")
sleep ($sleep)
$handle4 = WinGetHandle("InterNationSilkRoadAss","")
ControlSetText($handle4,"", 1001, $realid )
sleep ($sleep)
ControlCommand ($handle4, "Login",1002,"Check", "")
sleep ($Sleep)
ControlCommand ($handle4, "exit",1003,"Check", "")
|