Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для beve

Старожил


Сообщения: 307
Благодарности: 137

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
#include <Misc.au3>

While 1
    If _IsPressed("A2") Then  _function() ;если нажата клавиша - левый Ctrl то...
    Sleep (50)
WEnd

Func _function()
;тут производится обработка, если клавиша - левый ctrl была просто нажата меньше секунды и отпущена то вызов функции
    $tHandle = TimerInit()
    While _IsPressed("A2")
    Sleep(50)
    WEnd
    If TimerDiff($tHandle) <500 Then
        _next()
;если же клавиша левый ctrl была удержана больше секунды то выход из функции
    Else
        Return
    EndIf
EndFunc ;_function()

Func _next()
    MsgBox(0,"","тест",1)
EndFunc ;_next()

-------
Не в кількості знань полягає освіта, а в повному розумінні і вмілому використанні того, що знаєш.


Отправлено: 14:24, 27-08-2009 | #6