Что нового

Создание бота: Пара вопросов.

Alex Loony

Новичок
Сообщения
6
Репутация
0
И так с AutoIt работаю чуть более суток и полностью с ней не разобрался. Одним словом нуб.

при создании бота возникла пара вопросов, думаю тут мне помогут..

Смотрите вот что я создал, ковырялся часов 5 в этом тыкал, тыкал и вот что получилось.

Global $Paused
HotKeySet("{ESC}", "Terminate")

Func Terminate()
Exit 0
EndFunc

$VAR=0
$HWND1=_PROCESSGETWINDOW("123.exe") ; Здесь естественно имя процесса к которому обращается бот.
WHILE 1
CONTROLSEND($HWND1,"","","{Клавиша}") ; Здесь клавиша без которой бот работать вообще не будет.
$RANDOM=RANDOM(-100,100,0)
SLEEP(200+$RANDOM)
CONTROLSEND($HWND1,"","","{Оналогично}")
$RANDOM=RANDOM(-100,100,0)
SLEEP(1000+$RANDOM)
WEND
FUNC _PROCESSGETWINDOW($IPID,$IRET=1)
LOCAL $AWINLIST=WINLIST()
LOCAL $ARET[2]
IF ISSTRING($IPID)THEN
$IPID=PROCESSEXISTS($IPID)
ENDIF
FOR $I=1 TO UBOUND($AWINLIST)-1
IF WINGETPROCESS($AWINLIST[$I][1])=$IPID THEN
$ARET[0]=$AWINLIST[$I][0]
$ARET[1]=$AWINLIST[$I][1]
IF $IRET=0 THEN
RETURN $ARET[0]
ENDIF
IF $IRET=1 THEN
RETURN $ARET[1]
ENDIF
RETURN $ARET
ENDIF
NEXT
RETURN SETERROR(1,0,$ARET)
ENDFUNC
FUNC PAUSEFUNC()
IF $VAR=0 THEN
$VAR=1
PAUSEFUNC2()
ELSE
$VAR=2
ENDIF
ENDFUNC
FUNC PAUSEFUNC2()
WHILE 1
IF $VAR=2 THEN
$VAR=0
EXITLOOP
ENDIF
SLEEP(500)
WEND
ENDFUNC


Теперь суть вопроса данного нуба к понимающим людям.
Что мне нужно сюда вписать что бы работала ещё одна клавиша через определённое время и весь выше процес не относился к нему и анологично обратно.

Пытался вписать это

While 1
Send("{F2}")
Sleep(220000)
WEnd

Но весь процес начинает сбиваться. помогите.
Если кто не понял опишу так.
Мне нужно зайдествовать ещё 2-3 клавиши, что бы они работали через определённое колличество секунд, 60-100-160(сек.)
Но при этом не относили к процессу выше и работали в одном exe фаиле.

Заранее спасибо. :IL_AutoIt_1:
 

zoxer1

Знающий
Сообщения
72
Репутация
6
так?
Код:
While 1
	Sleep(60000)
	Send("{F2}")
	Sleep(100000)
	Send("{F3}")
	Sleep(160000)
	Send("{F2}")
WEnd
 
Верх