$number=3
$classBot="WindowsForms10.Window.8.app.0.19838334"
$classSBot="WindowsForms10.Window.8.app.0.19838332"
$EBot1=True
$EBot2=True
$EBot3=True
$winname1="****"
$acc1="****"
$pass1="****"
$dir1="****"
$winname2="****"
$acc2="****"
$pass2="****"
$dir2="****"
$winname3="****"
$acc3="****"
$pass3="****"
$dir3="****"
$bot1="****"
$bot2="****"
$bot3="****"
$exeBot1="****"
$exeBot2="****"
$exeBot3="****"
$titleBot1="****"
$titleBot2="****"
$titleBot3="****"
Opt("WinTitleMatchMode", 4)
Do
Sleep(1000)
$var = Ping("www.mail.ru", 1000)
Until $var
For $i = 1 to $number Step 1
$Test="$Ebot"+$i
$dir="$dir"+$i
If $Test==True then
Run($dir)
ElseIf
Next
Sleep(200000)
For $i = 1 to $number Step 1
$Test="$Ebot"+$i
$winname="$winname"+$i
$acc="$acc"+$i
If $Test==True then
ControlSend($winname, "", "", $acc)
EndIf
Next
Sleep(100)
For $i = 1 to $number Step 1
$Test="$Ebot"+$i
$winname="$winname"+$i
If $Test==True then
ControlSend($winname, "", "", "{TAB}")
EndIf
Next
Sleep(100)
For $i = 1 to $number Step 1
$Test="$Ebot"+$i
$winname="$winname"+$i
$pass="$pass"+$i
If $Test==True then
ControlSend($winname, "", "", $pass)
EndIf
Next
Sleep(100)
For $i = 1 to $number Step 1
$Test="$Ebot"+$i
$winname="$winname"+$i
If $Test==True then
ControlSend($winname, "", "", "{ENTER}")
EndIf
Next
Sleep(20000)
For $i = 1 to $number Step 1
$Test="$Ebot"+$i
$winname="$winname"+$i
If $Test==True then
ControlSend($winname, "", "", "{ENTER}")
Sleep(10000)
EndIf
Next
For $i = 1 to $number Step 1
$Test="$Ebot"+$i
$bot="$bot"+$i
$exeBot="$exeBot"+$i
If $Test==True then
FileChangeDir($bot)
Run($exeBot)
WinWait($exeBot,"statusStrip1")
Sleep(10000)
ControlClick($exeBot,"statusStrip1",$classBot)
Sleep(10000)
EndIf
Next
For $i = 1 to $number Step 1
$Test="Ebot"+$i
$titleBot="$titleBot"+$i
If $Test==True then
ControlClick($titleBot,"statusStrip1",$classSBot)
Sleep(2000)
EndIf
Next
Exit |
