|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Ограничение использования "горячих кнопок" по времени... Очень интересный вопрос... |
|
[решено] Ограничение использования "горячих кнопок" по времени... Очень интересный вопрос...
|
Старожил Сообщения: 379 |
Профиль | Отправить PM | Цитировать
после запуска программы вылазит окно, в котором вводишь какой-нибудь текст и после нажатия кнопки 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 |
|
Отправлено: 14:06, 23-03-2009 |
Старожил Сообщения: 379
|
Профиль | Отправить PM | Цитировать Я пробЫвал использовать "ProcessWaitClose"... Запускалась программа с кодом: sleep (60000) и моя программа ждала пока вторая программа не завершиться.... Но HOME всё равно работала....
|
------- Отправлено: 16:54, 23-03-2009 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать 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 |
------- Отправлено: 23:14, 23-03-2009 | #3 |
Старожил Сообщения: 379
|
Профиль | Отправить PM | Цитировать спасибо!!! Всё работает!!! +1
|
------- Отправлено: 10:38, 24-03-2009 | #4 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Использование - "Положение об использовании ПО" и "Правила использования ПО" на предприятии | netochka | Лицензирование продуктов Microsoft | 7 | 27-06-2013 09:01 | |
Разное - [решено] Особенности использования кабеля "USB TO IDE" или почему ничего не работает | Dabaduch | Накопители (SSD, HDD, USB Flash) | 11 | 21-11-2009 18:25 | |
Прочие - Переназначение дополнительных кнопок мышки (Mouse4="Enter", Mouse5="Delete", etc) | DreadMaster | Программное обеспечение Windows | 2 | 01-01-2009 17:54 | |
Приоритет в диспетчере: "реального времени", "средний", "выше среднего" | alhimik PC | Хочу все знать | 3 | 28-11-2006 05:29 | |
[решено] Инверсия цветов и эффект "нажатых" кнопок в Win 2k3 Server SP1 | MoRoman | Microsoft Windows NT/2000/2003 | 5 | 11-04-2006 13:10 |
|