sasha23969
Новичок
- Сообщения
- 2
- Репутация
- 0
Здраствуйте, написал свой первый код, но после начала цикла Do...Until не могу его завершить кнопкой "stop".(Кнопки в GUI перестают работать)
Код:
#include <GUIConstants.au3>
GUICreate ("123", 200, 100)
$go = GUICtrlCreateButton ("Старт", 54, 65, 40, 29)
$stop = GUICtrlCreateButton ("Стоп", 114, 65, 40, 29)
$pic = GUICtrlCreatePic ("logo.jpg", 70, 0, 65, 65)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
case $msg = $go
MsgBox (0, "Инструкция", "123")
WinSetState("123", "", @SW_MINIMIZE)
Do
MouseMove( 990, 567, 5)
MouseClick("left")
Sleep (2200)
MouseMove( 595, 701, 5)
MouseClick("left")
Sleep (2200)
MouseMove( 755, 641, 5)
MouseClick("left")
Sleep (2200)
;Скролл вниз, менять У
MouseClickDrag("left", 1357, 382, 1357, 683)
MouseClick("left", 503, 191)
;Скролл вверх, менять У
MouseClickDrag("left", 1357, 683, 1357, 382)
MouseClick("left", 597, 219)
sleep (2200)
MouseClickDrag("left", 1357, 85, 1357, 500)
MouseClick("left", 600, 362)
sleep (900000)
until $msg = $stop
MsgBox (0, "Конец", "123")
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd