Что нового

[Мышь, клавиатура] Автонажатие кнопок клавиатуры

DeMo(azov)

Новичок
Сообщения
9
Репутация
0
Версия AutoIt: 3.хх

Описание:
День добрый! К сожалению, пользуясь форумом, так и не могу сделать так, чтобы при запуске скрипта происходило:
1)нажатие кнопки 2 (и далее ее спам через каждые 10 сек)
2)пауза в 0,5 сек и нажатие кнопки 3 (и далее ее спам через каждые 10 сек)
Есть 1ый вариант скрипта
Код:
HotKeySet("5","Play");старт скрипта при нажатии кнопки 5
HotKeySet("6","Stop");остановка выполнения скрипта
HotKeySet("7", "_Exit");закрытие скрипта
Global $schetchik=1
While 1
WEnd

Func Play()
   If $schetchik=1 Then
        AdlibRegister("Button2", 10000)
        Sleep(500)
        AdlibRegister("Button3", 10000)
          EndIf
EndFunc

Func Button2()
   Send("{2}")
   $i_atack = False
EndFunc

Func Button3()
   Send("{3}")
   $i_atack = False
EndFunc

Func Stop()
    $b_play = False
    AdlibUnRegister("Button2")
    AdlibUnRegister("Button3")
EndFunc

Func _Exit()
    Exit
 EndFunc

Запуск, остановка, закрытие происходят как надо. Но первый прожим кнопок идет через 10 сек, а не сразу при запуске скрипта.
2ой вариант
Код:
HotKeySet("5","Play");старт скрипта при нажатии кнопки 5
HotKeySet("6","Stop");остановка выполнения скрипта
HotKeySet("7", "_Exit");закрытие скрипта

While 1
WEnd

Func Play()
While 1
        AdlibRegister("Button2")
        Sleep(500)
        AdlibRegister("Button3")

WEnd
EndFunc

Func Button2()
While 1
   Send("{2}");каждые 10 сек должна нажиматься кнопка 2
        Sleep(10000)
WEnd
EndFunc

Func Button3()
While 1
   Send("{3}");каждые 10 сек должна нажиматься кнопка 3
        Sleep(10000)
WEnd
EndFunc

Func Stop()
    $b_play = False
    AdlibUnRegister("Button2")
    AdlibUnRegister("Button3")
EndFunc

Func _Exit()
    Exit
 EndFunc

прожимает кнопку 2 сразу, но не прожимает кнопкку 3, а лишь спамит дальше каждые 10 сек кнопку 2.
Помогите, пожалуйста, сделать чтоб работало как надо.
 

InnI

AutoIT Гуру
Сообщения
4,950
Репутация
1,445
DeMo(azov)
Для первого варианта
Код:
Func Play()
   If $schetchik=1 Then
        Button2() ; <= добавить
        AdlibRegister("Button2", 10000)
        Sleep(500)
        Button3() ; <= добавить
        AdlibRegister("Button3", 10000)
   EndIf
EndFunc
 
Верх