[решено] Ограничение использования "горячих кнопок" по времени... Очень интересный вопрос...

[sashadeg]

после запуска программы вылазит окно, в котором вводишь какой-нибудь текст и после нажатия кнопки HOME(возле DELITE) программа сама печатает этот текст.

Но мне нужно вот что... Нужно ограничить использование кнопки HOME не больше чем 1 раз в минуту. То есть: Нажал HOME и сиди жди пока пройдёт минута, чтобы можно было нажать ещё раз Как это осуществить??? ВОПРОС ПРОСТО АРХИВАЖНЫЙ

Обьясните пожалуйста вот на этом простом примере...



Код:

Код: Выделить всё

MsgBox(0, "HotKey", "Активация: HOME , Выход из программы: Alt+HOME")
Opt("TrayMenuMode", 1)
$uzi = InputBox ("HotKey","Введите число")
If @Error = 1 Then
    MsgBox(4096, "HotKey", "OK.  Bye!")
    Exit
EndIf
HotKeySet("!{home}", "Terminate")
HotKeySet("{home}", "gun")
While 1
    Sleep(100)
WEnd
Func Terminate() 
    MsgBox(4096, "HotKey", "OK.  Bye!", 1)
	Exit 0 
EndFunc
Func gun()
send($uzi) 
EndFunc

[sashadeg]

Я пробЫвал использовать "ProcessWaitClose"... Запускалась программа с кодом: sleep (60000) и моя программа ждала пока вторая программа не завершиться.... Но HOME всё равно работала....

[Creat0R]

Код:

Код: Выделить всё

Opt("TrayMenuMode", 1)
MsgBox(0, "HotKey", "Активация: HOME , Выход из программы: Alt+HOME")
Global $iTimer = 0
Global $iTime_Interval = 5
$Uzi = InputBox("HotKey", "Введите число")
If @Error = 1 Then
    MsgBox(4096, "HotKey", "OK.  Bye!")
    Exit
EndIf
HotKeySet("!{HOME}", "Terminate")
HotKeySet("{HOME}", "Gun")
While 1
    Sleep(100)
WEnd
Func Terminate()
    MsgBox(4096, "HotKey", "OK.  Bye!", 1)
    Exit 0
EndFunc
Func Gun()
    If TimerDiff($iTimer) >= $iTime_Interval * 1000 Then $iTimer = 0
    If $iTimer = 0 Then
        Send($Uzi)
        $iTimer = TimerInit()
    EndIf
EndFunc

[sashadeg]

спасибо!!! Всё работает!!! +1