AHK: Дополнительные кнопки USB устройств через HID-протокол

Process, Priority, , A  ; приоритет процесса скрипта
#Persistent   ; держать скрипт запущенным
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
        ; Отменяет проверку для пустых переменных, не являются ли они переменными окружения (рекомендуется для всех новых скриптов).
;#Warn  ; Recommended for catching common errors.
#Singleinstance, force  ; Определяет, разрешено ли скрипту запускаться снова, если он уже выполняется.
#UseHook, off  ; Заставляет скрипт использовать хук для реализации всех или некоторых горячих клавиш.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability. ускорренный ввод
                ; Делает Send синонимом SendInput или SendPlay вместо SendEvent (по умолчанию).
                ; Это также заставляет команды Click и MouseMove/Click/Drag использовать указанный метод посылки. 
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
                             ; Изменяет текущую рабочую папку скрипта. 
SetKeyDelay, -1, -1   ; Устанавливает величину паузы, которая вставляется после каждого нажатия, посылаемого командами Send и ControlSend.
SetMouseDelay, -1     ; Задаёт паузу после каждого движения или щелчка мыши.
SetBatchLines, -1

;======================== Меню ===================================
Menu, Tray, NoStandard
Menu, Tray, Icon, %A_WinDir%\system32\shell32.dll, 121, 1
Menu, Tray, Tip, Мouse
Menu, Tray, Add, Off, sub1
Menu, Tray, Add, Help, sub2
Menu, Tray, Add
Menu, Tray, Add, Exit%a_tab%, sub3
;=================================================================

; Задаются значения соответствующие отдельно нажатой кнопки устройства, для подсчета нажатий
k1:=0x0001
k2:=0x0100
k3:=0x0200
k4:=0x0400
k5:=0x0800
k6:=0x1000
k7:=0x2000
k8:=0x4000
k9:=0x8000

Codp:=0x0000        ; Код предыдущего нажатия
Codr:=0x0000        ; Код используемый для расчета нажатий
Codi:=0x0000        ; Код текущего нажатия
;kk5:=0             ;Задается переменная для счета в части для чередования нажатий
;////

DetectHiddenWindows, On  ; Определяет, будут ли скрытые (невидимые) окна видимы для скрипта. 
Process, Exist  ; Выполняет над процессом одну из следующих операций: проверяет существование, изменяет приоритет, закрывает, ожидает закрытия. 
hwnd := WinExist("ahk_class AutoHotkey ahk_pid " ErrorLevel) 
DetectHiddenWindows, Off 
OnMessage(0xFF, "WM_INPUT") 

;Данные HID устройства, можно взять из скрипта "AutoHotkeyRemoteControlDLL", требуется библиотека "AutohotkeyRemoteControl.dll"
Usage       = 1 
UsagePage   = 65280 
;////

;Дальше взято из подобных программ, так что корректно описать действия не могу, далек до программиста
VarSetCapacity(dev, 12, 0) 
NumPut(UsagePage,   dev, 0, "UShort") 
NumPut(Usage,       dev, 2, "UShort") 
NumPut(0x100,       dev, 4) ; dwFlags = RIDEV_INPUTSINK (don't require foreground) 
NumPut(hwnd,        dev, 8) 
 
ret := DllCall("RegisterRawInputDevices" 
    , "uint", &dev ; pRawInputDevices (pointer to an array of RAWINPUTDEVICE) 
    , "uint", 1     ; uiNumDevices 
    , "uint", 12)   ; cbSize (size of a RAWINPUTDEVICE structure) 
if (ErrorLevel or !ret) { 
;    MsgBox, RegisterRawInputDevices failed. 
    ExitApp 
    } 
 
WM_INPUT(wParam, lParam) 
{ 
    global
    Critical 
    ; Get required buffer size. 
    DllCall("GetRawInputData", "uint", lParam, "uint", 0x10000003 
        , "uint", 0, "uint*", size, "uint", 16) 

    VarSetCapacity(raw, size, 0) 
    
    ; Get raw input data from handle (lParam) 
    ret := DllCall("GetRawInputData", "uint", lParam, "uint", 0x10000003 
        , "uint", &raw, "uint*", size, "uint", 16, "int") 
  
    if (ErrorLevel or ret = -1) { 
;        MsgBox, Ошибка получения данных 
        return 
        } 

    SetFormat, INTEGER, H 
        count := NumGet(raw, 20) ; dwCount 
        n = 0 
        Loop, %count% 
        { 
            size := NumGet(raw, 16) ; dwSizeHid 
            VarSetCapacity(hex, size*3) 
            Loop, %size% 
            { 
                char := SubStr(NumGet(raw, 24+n+A_Index-1, "UChar"), 3) 
                StringUpper, char, char 
                if (StrLen(char) < 2) 
                    char = 0%char% 
                hex = %hex%%char%

            } 
            n += size 
            if !size 
                hex = "--" 
;//// 

Cod := SubStr(hex, 3 , 4)      ;Вырезается часть получаемого кода, достаточную для просчета клавиш,
                               ;тут можно вырезать и другую информацию, соответствующую какой либо функции,
                               ;например переключение профилей (аля мыши A-TECH серии XL)
;ToolTip hex=%hex%             ;Это для того, что бы посмотреть весь код
Cod = 0x%Cod%                  ;делаем символьную строку числовой, формата Hex

;       Тут, что придумал, то придумал для вычисления нажатий, отжатий и их комбинаций, вроде работает нормально

if Cod = 0
{
;   SetTimer, Counter9, off
   SetTimer, Counter8, off
   SetTimer, Counter7, off
   SetTimer, Counter6, off
   SetTimer, Counter5, off
   SetTimer, Counter4, off
   SetTimer, Counter3, off
   SetTimer, Counter2, off
;   SetTimer, Counter1, off 
}

Codi:=Cod

if (Codi-Codp) > 0 ; нажатие кнопок
Codi:=Codi-Codp
else
Codi:=Codp-Codi

Codr:=Codi


  if (Codr-k9) >= 0
     gosub kkk9
     else Codr:=Codr+k9
 
  if (Codr-(k9+k8)) >=0
     gosub kkk8
     else Codr:=Codr+k8

  if (Codr-(k9+k8+k7)) >= 0
     gosub kkk7
     else Codr:=Codr+k7

  if (Codr-(k9+k8+k7+k6)) >= 0
     gosub kkk6
     else Codr:=Codr+k6

  if (Codr-(k9+k8+k7+k6+k5)) >= 0
     gosub kkk5
     else Codr:=Codr+k5

  if (Codr-(k9+k8+k7+k6+k5+k4)) >= 0
     gosub kkk4
     else Codr:=Codr+k4

  if (Codr-(k9+k8+k7+k6+k5+k4+k3)) >= 0
     gosub kkk3
     else Codr:=Codr+k3

  if (Codr-(k9+k8+k7+k6+k5+k4+k3+k2)) >= 0
     gosub kkk2
     else Codr:=Codr+k2

  if (Codr-(k9+k8+k7+k6+k5+k4+k3+k2+k1)) >= 0
     gosub kkk1
     else Codr:=Codr+k1

Codp:=Cod

         } 
} 

return


;Тут сами действия для конретной клавиши

kkk9:

if (Cod-Codp) > 0
   {
   Send {Numpad6}
   }
else
   {
   
   }
return


kkk8:
if (Cod-Codp) > 0
   {
   SetTimer, Counter8, 50
   }
else
{
   SetTimer, Counter8, off
}
 return
Counter8:
   Send {Numpad5}
return

kkk7:
if (Cod-Codp) > 0
   {
   SetTimer, Counter7, 50
   }
else
{
   SetTimer, Counter7, off
}
 return
Counter7:
   Send {F12}
return


kkk6:
if (Cod-Codp) > 0
{
   SetTimer, Counter6, 50
}
else
{
   SetTimer, Counter6, off
}
 return
Counter6:
   Send {Numpad8}
return



kkk5:
if (Cod-Codp) > 0
{
   SetTimer, Counter5, 50
}
else
{
   SetTimer, Counter5, off
}
 return
Counter5:
   Send {NumpadDiv}{NumpadMult}
return

/*
kkk5:
if But-ButAll=k5
   {
    if kk5=0
       {
        Send {NumpadMult}
        kk5=1
        SetTimer, Counter5, 3000
       }
    else
       {
        if kk5=1
           {
            Send {NumpadDiv}
            kk5=0
            SetTimer, Counter5, off
           }
       }
  }
return
return
Counter5:
kk5=0
return
*/


kkk4:
if (Cod-Codp) > 0
{
   SetTimer, Counter4, 50
}
else
{
   SetTimer, Counter4, off
}
 return
Counter4:
   Send {Numpad9}
return


kkk3:
if (Cod-Codp) > 0
{
   SetTimer, Counter3, 50
}
else
{
   SetTimer, Counter3, off
}
 return
Counter3:
   Send {Numpad0}
return



kkk2:
if (Cod-Codp) > 0
{
   SetTimer, Counter2, 50
}
else
{
   SetTimer, Counter2, off
}
 return
Counter2:
   Send {Numpad7}
return


kkk1:
if (Cod-Codp) > 0
{
   Send , {Numpad4}
}
return



MButton::
  KeyWait, MButton, D
   SetTimer, CounterM, 50
  KeyWait, MButton, U
   SetTimer, CounterM, off
 return
CounterM:
   Send , {Numpad3}
return


WheelUp::
send {Numpad1}
return

WheelDown::
send {Numpad2}
return

XButton1::
  KeyWait, XButton1, D
   Send {Space Down}
  KeyWait, XButton1, U
   Send {Space Up} 
return


XButton2::
  KeyWait, XButton2, D
   SetTimer, CounterX2, 50
  KeyWait, XButton2, U
   SetTimer, CounterX2, off
 return
CounterX2:
   Send , A
   Send , E
return


sub1:
*CapsLock::
Suspend
If A_IsSuspended = 1
    {
    Menu, Tray, Icon, %A_WinDir%\system32\shell32.dll, 220, 1
    menu, tray, rename, Off, On
    }
Else
    {
    menu, tray, icon, %A_WinDir%\system32\shell32.dll, 121, 1
    menu, tray, rename, On, Off
    }
return

sub2:

return

sub3:
Exitapp
return


/*
;///// Пример нажатия и отжатия кнопки
kkk9:
 if But-ButAll=Butk9
   {
   Send {Numpad5 Down}
   }
 if ButAll-But=Butk9 or But=0
   Send {Numpad5 Up}
 return
; /////


;///// Пример цикличного нажатия при удержании кнопки
kkk9:
 if But-ButAll=Butk9
   {
   SetTimer, Counter9, 200
   }
 if ButAll-But=Butk9 or But=0
   SetTimer, Counter9, off
 return
Counter9:
   Send {Numpad5}
return
;/////


;///// Пример при первом нажатии кномпки происходит нажатие Num7,
;      при повторном нажатии кнопки, в течении 2 сек, происходит нажатие Num1 и дальнейшее чередование,
;      после 2 сек, без нажатия, происходит снова первое нажатие Num7
kkk9:
if But-ButAll=Butk9
   {
    if k=0
       {
        Send {Numpad7}
        k=1
        SetTimer, Counter9, 2000
       }
    else
       {
        if k=1
           {
            Send {Numpad1}
            k=0
            SetTimer, Counter9, off
           }
       }
   }
return
return

Counter9:
k=0
return
;/////


;///// Пример первым нажатием включается скрипт, повторным нажатием отключается
kkk9:
 if But-ButAll=Butk9
      {
    if k=0
       {
        k=1
        SetTimer, Counter9, 500
       }
    else
       {
        if k=1
           {
            k=0
            SetTimer, Counter9, off
           }
       }
   }
return
return

Counter9:
Send , 9
return
;/////



XButton1::
    {
    Send {Space Down}
    SetTimer, CounterX, 32
    }
return
CounterX:
Send {Space Up}
SetTimer, CounterX, off
return

*/