AutoHotInterception/Combined Example.ahk
2018-03-12 20:38:59 +00:00

59 lines
1.2 KiB
AutoHotkey

#SingleInstance force
#Persistent
#include Lib\AutoHotInterception.ahk
VID := 0x04F2, PID := 0x0112
global Interception := AutoHotInterception_Init()
devices := Interception.GetDeviceList()
if (!devices){
msgbox Device List Check failed
ExitApp
}
keyboardId := Interception.GetDeviceId(VID, PID)
if (keyboardId == 0){
MsgBox % "Could not find keyboard with VID " VID " PID " PID
ExitApp
}
;~ clipboard := devices
;~ MsgBox % devices
result := Interception.SubscribeKey(GetKeySC("2"), true, Func("KeyEvent"), VID, PID)
if (result != -1){
msgbox Subscribe failed
ExitApp
}
result := Interception.SetContextCallback(VID, PID, Func("SetKb1Context"))
if (result != -1){
msgbox Context request failed
ExitApp
}
return
KeyEvent(state){
static ctrlCode := GetKeySC("Ctrl")
global keyboardId
Interception.SendKeyEvent(ctrlCode, state, keyboardId)
;~ ToolTip % "State: " state
}
SetKb1Context(state){
global isKeyboard1Active
Sleep 0 ; We seem to need this for hotstrings to work, not sure why
isKeyboard1Active := state
}
#if isKeyboard1Active
::aaa::JACKPOT
1::
ToolTip % "KEY DOWN EVENT @ " A_TickCount
return
1 up::
ToolTip % "KEY UP EVENT @ " A_TickCount
return
#if
^Esc::
ExitApp