Тема: AHK: Отправить определенный код кнопки
#UseHook, On ; Предосторожность на случай, если клавиша должна будет
; посылать саму себя. Делает то же, что префикс $, только
; для всех гор. клавиш, которые ниже.
;----- Пример для клавиши Shift-Ctrl-Q -----------
+^vk51:: Gosub, PressCount ; Запускается счётчик нажатий.
+^vk51(1): ; Код для одиночного нажатия Shift-Ctrl-Q.
Send, icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111111||OnD uinoKeyPress").
Return
+^vk51(2): ; Код для двойного нажатия Shift-Ctrl-Q.
Send, icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111112||OnD uinoKeyPress").
Return
#UseHook, Off
;----- Общая часть кода (счётчик нажатий) ------
PressCount:
Pause_=500 ; Если пауза меньше этого количества миллисекунд, то нажатие
; двойное. Если больше, то оно расценивается как 2 одиночных.
If not Second
{
Second=1
SetTimer, DoublePress, -%Pause_%
}
Else
{
Second=0
SetTimer, %A_ThisHotkey%(2), -1
}
Return
DoublePress:
If not Second
Return
Second=0
SetTimer, %A_ThisHotkey%(1), -1
Return
Сама проблема в том,что команды не передаются в программу iCarDS.
Ссылка на эту тему:http://pccar.ru/showthread.php?t=14151&page=11
Если запускаю такой код ,все работает.
+^vk51:: ; Shift-Ctrl-Q
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111111||OnD uinoKeyPress"
Return
И еще если кого не затруднит добавить еще и удержание. Форум смотрел,читал так ни чего и не получилось.
Помогите,пожалуйста. За ранее спасибо.