[Автоматизация] Управление авто нажатием на кнопки в дос-программах
- Автор темы forbrock
- Дата начала
Вот то, что у меня получилось.
Кстати, как можно занести цикл проверки в функцию, чтобы потом вызывать, а не писать несколько раз?
Да и вообще может у кого будут идеи получше этой...
Кстати, как можно занести цикл проверки в функцию, чтобы потом вызывать, а не писать несколько раз?
Да и вообще может у кого будут идеи получше этой...
Код:
Opt ("pixelcoordmode", 0)
Run ("g:\run.bat")
sleep(3000)
WinActivate ("C:\WINDOWS\system32\cmd.exe", "")
While 1
PixelSearch (160, 90, 190, 105, 0xFFFF00)
If @error == 0 Then
controlsend("C:\WINDOWS\system32\cmd.exe","","","{enter}")
Sleep (250)
Else
ExitLoop
EndIf
WEnd
Sleep(150)
controlsend("C:\WINDOWS\system32\cmd.exe","","","{f11}")
Sleep (250)
While 1
PixelSearch (160, 90, 190, 105, 0xFFFF00)
If @error == 0 Then
controlsend("C:\WINDOWS\system32\cmd.exe","","","{enter}")
Sleep (250)
Else
ExitLoop
EndIf
WEnd
sleep(500)
controlsend("C:\WINDOWS\system32\cmd.exe","","","{DOWN 4}")
sleep(500)
controlsend("C:\WINDOWS\system32\cmd.exe","","","{Enter}{Right}{Enter}")
sleep(1000)
While 1
PixelSearch (161, 90, 226, 145, 0xFFFF00)
If @error == 0 Then
controlsend("C:\WINDOWS\system32\cmd.exe","","","{enter}")
Sleep (500)
Else
ExitLoop
EndIf
WEnd
controlsend("C:\WINDOWS\system32\cmd.exe","","","{Enter}")
sleep(500)
controlsend("C:\WINDOWS\system32\cmd.exe","","","!x")
sleep(500)
C2H5OH
AutoIT Гуру
- Сообщения
- 1,473
- Репутация
- 333
Код:
Opt("PixelCoordMode", 0)
FOR $v IN $a
run ("g:\run.bat " & $v)
sleep(3000)
WinActivate ("C:\WINDOWS\system32\cmd.exe", "")
PixelSearch (160, 90, 190, 105, 0xFFFF00)
If @error = 0 Then
controlsend("C:\WINDOWS\system32\cmd.exe","","","{enter}")
Sleep (250)
EndIf
Sleep(150)
controlsend("C:\WINDOWS\system32\cmd.exe","","","{f11}")
Sleep (250)
PixelSearch (160, 90, 190, 105, 0xFFFF00)
If @error = 0 Then
controlsend("C:\WINDOWS\system32\cmd.exe","","","{enter}")
Sleep (250)
EndIf
sleep(500)
controlsend("C:\WINDOWS\system32\cmd.exe","","","{DOWN 4}")
sleep(500)
controlsend("C:\WINDOWS\system32\cmd.exe","","","{Enter}{Right}{Enter}")
sleep(1000)
PixelSearch (161, 90, 226, 145, 0xFFFF00)
If @error = 0 Then
controlsend("C:\WINDOWS\system32\cmd.exe","","","{enter}")
Sleep (250)
EndIf
controlsend("C:\WINDOWS\system32\cmd.exe","","","{Enter}")
sleep(500)
controlsend("C:\WINDOWS\system32\cmd.exe","","","!x")
sleep(500)
Next
