Тема: AHK: Ожидание нажатия
Решено, код убрал из своих соображений.
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Решено, код убрал из своих соображений.
Вариант, если из 3 можно нажать 2 раза любую.
#SingleInstance Force
#NoEnv
#if !wait && (wait := 1)
1::
Traytip,, Нажмите Num1`,2`,3
SetTimer, reset, -5000
Return
#if wait
Numpad1::
Numpad2::
Numpad3::
SetTimer, reset, % ((wait := wait + 1 = 3 ? 0 : wait + 1) = 3 ? "Off" : -5000)
Traytip,, % "Нажали " (A_ThisHotkey = "Numpad1" ? "Num1" : A_ThisHotkey = "Numpad2" ? "Num2" : "Num3")
Return
reset:
Traytip,, Время истекло
wait := 0
Return
#if
Почти так.
#SingleInstance Force
#NoEnv
#if !wait && (wait := 1)
1::
addChatMessage("Нажмите Num1, Num2 или Num3")
SetTimer, reset, -5000
Return
#if wait
Numpad1::
Numpad2::
Numpad3::
SetTimer, reset, % (!(wait := ++wait = 3 ? 0 : wait) ? "Off" : -5000)
AddChatMessage("Нажали " (A_ThisHotkey = "Numpad1" ? "Num1" : A_ThisHotkey = "Numpad2" ? "Num2" : "Num3"))
Gosub % (A_ThisHotkey = "Numpad1" ? "proc1" : A_ThisHotkey = "Numpad2" ? "proc2" : "proc3")
Return
#if
proc1:
MsgBox,,,% A_ThisLabel,0.4
Return
proc2:
MsgBox,,,% A_ThisLabel,0.4
Return
proc3:
MsgBox,,,% A_ThisLabel,0.4
Return
reset:
AddChatMessage("Время истекло")
wait := 0
Return
#SingleInstance Force
#NoEnv
#if !wait && (wait := 1, arr := {})
1::
addChatMessage("Нажмите Num1, Num2 или Num3")
SetTimer, reset, -5000
Return
#if wait && !arr[A_ThisHotkey] && arr[A_ThisHotkey] := 1
Numpad1::
Numpad2::
Numpad3::
SetTimer, reset, % (!(wait := ++wait = 3 ? 0 : wait) ? "Off" : -5000)
AddChatMessage("Нажали " (A_ThisHotkey = "Numpad1" ? "Num1" : A_ThisHotkey = "Numpad2" ? "Num2" : "Num3"))
Gosub % (A_ThisHotkey = "Numpad1" ? "proc1" : A_ThisHotkey = "Numpad2" ? "proc2" : "proc3")
Return
#if
proc1:
MsgBox,,,% A_ThisLabel,0.4
Return
proc2:
MsgBox,,,% A_ThisLabel,0.4
Return
proc3:
MsgBox,,,% A_ThisLabel,0.4
Return
reset:
AddChatMessage("Время истекло")
wait := 0
Return
serzh82saratov
Спасибо большое за помощь, что старались.
Нашел более простой и удобный способ.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться