AutoHotkey Community

; List all of the "Raw Input" devices available for use and allow
; capture of output
;
; There may be more than one 'raw' device per device actually attached
; to the system. This is because these devices generally represent
; "HID Collections", and there may be more than one HID collection per
; USB device. For example, the Natural Keyboard 4000 supports a normal
; keyboard HID collection, plus an additional HID collection that can
; be used for the zoom slider and other important buttons

; Replace any previous instance
#SingleInstance force

DetectHiddenWindows, on
OnMessage(0x00FF, "InputMessage")

SizeofRawInputDeviceList := 8
SizeofRidDeviceInfo := 32
SizeofRawInputDevice := 12

RIM_TYPEMOUSE := 0
RIM_TYPEKEYBOARD := 1
RIM_TYPEHID := 2

RIDI_DEVICENAME := 0x20000007
RIDI_DEVICEINFO := 0x2000000b

RIDEV_INPUTSINK := 0x00000100

RID_INPUT       := 0x10000003

DoCapture := 0

Gui, Add, Edit, HScroll w460 h300 vInfoOut -Wrap ReadOnly HwndInfoHwnd
Gui, Add, Edit, HScroll w460 h300 vEditOut -Wrap ReadOnly HwndEditHwnd
Gui, Add, Button, Default gCapture vCaptureButton w150, &Capture
Gui, Show, , HIDList

HWND := WinExist("HIDList")

Res := DllCall("GetRawInputDeviceList", UInt, 0, "UInt *", Count, UInt, SizeofRawInputDeviceList)

InfoOutput("There are " . Count . " raw input devices`r`n`r`n")

VarSetCapacity(RawInputList, SizeofRawInputDeviceList * Count)

Res := DllCall("GetRawInputDeviceList", UInt, &RawInputList, "UInt *", Count, UInt, SizeofRawInputDeviceList)

MouseRegistered := 0
KeyboardRegistered := 0

Loop %Count% {
   Handle := NumGet(RawInputList, (A_Index - 1) * SizeofRawInputDeviceList)
   Type := NumGet(RawInputList, (A_Index - 1) * SizeofRawInputDeviceList + 4)
   if (Type = RIM_TYPEMOUSE)
      TypeName := "RIM_TYPEMOUSE"
   else if (Type = RIM_TYPEKEYBOARD)
      TypeName := "RIM_TYPEKEYBOARD"
   else if (Type = RIM_TYPEHID)
      TypeName := "RIM_TYPEHID"
   else
      TypeName := "RIM_OTHER"

   InfoOutput("Device " . A_Index . ": Handle " . Handle . " Type " . Type . " (" . TypeName . ") ")
   
   Res := DllCall("GetRawInputDeviceInfo", UInt, Handle, UInt, RIDI_DEVICENAME, UInt, 0, "UInt *", Length)
   
   VarSetCapacity(Name, Length + 2)
   
   Res := DllCall("GetRawInputDeviceInfo", UInt, Handle, UInt, RIDI_DEVICENAME, "Str", Name, "UInt *", Length)
   
   InfoOutput("Name " . Name . "`r`n")
   
   VarSetCapacity(Info, SizeofRidDeviceInfo)   
   NumPut(SizeofRidDeviceInfo, Info, 0)
   Length := SizeofRidDeviceInfo
   
   Res := DllCall("GetRawInputDeviceInfo", UInt, Handle, UInt, RIDI_DEVICEINFO, UInt, &Info, "UInt *", SizeofRidDeviceInfo)

   if (Type = RIM_TYPEMOUSE)
      InfoOutput("Buttons " . NumGet(Info, 4 * 3) . " Sample rate " . NumGet(Info, 4 * 4) . "`r`n")
   else if (Type = RIM_TYPEKEYBOARD)
      InfoOutput("Mode " . NumGet(Info, 4 * 4) . " Function keys " . NumGet(Info, 4 * 5) . "`r`n")
   else if (Type = RIM_TYPEHID)
   {     
      InfoOutput("Vendor " . NumGet(Info, 4 * 2) . " Product " . NumGet(Info, 4 * 3) . " Version " . NumGet(Info, 4 * 4) . " ")
      UsagePage := NumGet(Info, (4 * 5), "UShort")
      Usage := NumGet(Info, (4 * 5) + 2, "UShort")
      InfoOutput("Usage " . Usage . " Usage Page " . UsagePage . "`r`n")     
   }
   
   ; Keyboards are always Usage 6, Usage Page 1, Mice are Usage 2, Usage Page 1,
   ; HID devices specify their top level collection in the info block   

   VarSetCapacity(RawDevice, SizeofRawInputDevice)
   NumPut(RIDEV_INPUTSINK, RawDevice, 4)
   NumPut(HWND, RawDevice, 8)
   
   DoRegister := 0
   
   if (Type = RIM_TYPEMOUSE && MouseRegistered = 0)
   {
      DoRegister := 1
      ; Mice are Usage 2, Usage Page 1
      NumPut(1, RawDevice, 0, "UShort")
      NumPut(2, RawDevice, 2, "UShort")
      MouseRegistered := 1
   }
   else if (Type = RIM_TYPEKEYBOARD && KeyboardRegistered = 0)
   {
      DoRegister := 1
      ; Keyboards are always Usage 6, Usage Page 1
      NumPut(1, RawDevice, 0, "UShort")
      NumPut(6, RawDevice, 2, "UShort")
      KeyboardRegistered := 1
   }
   else if (Type = RIM_TYPEHID)
   {
      DoRegister := 1
      NumPut(UsagePage, RawDevice, 0, "UShort")
      NumPut(Usage, RawDevice, 2, "UShort")     
   }
   
   if (DoRegister)
   {
      Res := DllCall("RegisterRawInputDevices", "UInt", &RawDevice, UInt, 1, UInt, SizeofRawInputDevice)
      if (Res = 0)
         InfoOutput("Failed to register for this device!`r`n")
      else
         InfoOutput("Registered for this device`r`n")
   }
}


Count := 1

InputMessage(wParam, lParam, msg, hwnd)
{
   global DoCapture
   global RIM_TYPEMOUSE, RIM_TYPEKEYBOARD, RIM_TYPEHID
   global RID_INPUT
   
   if (DoCapture = 0)
      return
   
   Res := DllCall("GetRawInputData", UInt, lParam, UInt, RID_INPUT, UInt, 0, "UInt *", Size, UInt, 16)
     
   VarSetCapacity(Buffer, Size)
   
   Res := DllCall("GetRawInputData", UInt, lParam, UInt, RID_INPUT, UInt, &Buffer, "UInt *", Size, UInt, 16)

   ; AppendOutput(Mem2Hex(&Buffer, Size))
   
   Type := NumGet(Buffer, 0 * 4)
   Size := NumGet(Buffer, 1 * 4)
   Handle := NumGet(Buffer, 2 * 4)
   
   ;AppendOutput("Got Input with " . Res . " size " . Size . " Type " . Type . " Handle " . Handle . "`r`n")
   if (Type = RIM_TYPEMOUSE)
   {
      LastX := NumGet(Buffer, (16 + (4 * 3)), "Int")
      LastY := NumGet(Buffer, (16 + (4 * 4)), "Int")
      AppendOutput("HND " . Handle . " MOUSE LastX " . LastX . " LastY " . LastY . "`r`n")
   }
   else if (Type = RIM_TYPEKEYBOARD)
   {
      ScanCode := NumGet(Buffer, (16 + 0), "UShort")
      VKey := NumGet(Buffer, (16 + 6), "UShort")
      Message := NumGet(Buffer, (16 + 8))
      AppendOutput("HND " . Handle . " KBD ScanCode " . ScanCode . " VKey " . VKey . " Msg " . Message . "`r`n")
   }
   else if (Type = RIM_TYPEHID)
   {
      SizeHid := NumGet(Buffer, (16 + 0))
      InputCount := NumGet(Buffer, (16 + 4))
      AppendOutput("HND " . Handle . " HID Size " . SizeHid . " Count " . InputCount . " Ptr " . &Buffer . "`r`n")
      Loop %InputCount% {
         Addr := &Buffer + 24 + ((A_Index - 1) * SizeHid)
         BAddr := &Buffer
         ;MsgBox, BAddr %BAddr% Addr %Addr%
         AppendOutput("Input " . Mem2Hex(Addr, SizeHid) . "`r`n")
      }
   }
   else
   {
      AppendOutput("HND " . Handle . " Unknown Type " . Type)
   }
   
   return
}
return

Exit

Capture:
{
   if (DoCapture = 0)
   { 
      GuiControl, , CaptureButton, Stop &Capture
      DoCapture := 1
   }
   else
   {
      GuiControl, , CaptureButton, &Capture
      DoCapture := 0
   }
   return
}


GuiClose:
ExitApp

Mem2Hex( pointer, len )
{
 A_FI := A_FormatInteger
 SetFormat, Integer, Hex
 Loop, %len%  {
                   Hex := *Pointer+0
                   StringReplace, Hex, Hex, 0x, 0x0
                   StringRight Hex, Hex, 2           
                   hexDump := hexDump . hex
                   Pointer ++
                 }
 SetFormat, Integer, %A_FI%
 StringUpper, hexDump, hexDump
Return hexDump
}

InfoOutput(Text)
{
   global InfoHwnd
   GuiControlGet, InfoOut
   NewText := InfoOut . Text
   GuiControl, , InfoOut, %NewText%
   return
}

AppendOutput(Text)
{
   global EditHwnd
   GuiControlGet, EditOut
   NewText := EditOut . Text
   GuiControl, , EditOut, %NewText%
   ; WM_VSCROLL (0x115), SB_BOTTOM (7)
   ;MsgBox, %EditHwnd%
   SendMessage, 0x115, 0x0000007, 0, , ahk_id %EditHwnd%
   return
}

; Capture input from the "Zoom" slider on the Natural Keyboard 4000
; and use it to scroll up and scroll down

; The HID top level collection for the Natural Keyboard 4000 is:
;   Usage         1
;   Usage Page   12

#NoTrayIcon

; Replace any previous instance
#SingleInstance force

DetectHiddenWindows, on
OnMessage(0x00FF, "InputMessage")

SizeofRawInputDeviceList := 8
SizeofRidDeviceInfo := 32

RIM_TYPEMOUSE := 0
RIM_TYPEKEYBOARD := 1
RIM_TYPEHID := 2

RIDI_DEVICENAME := 0x20000007
RIDI_DEVICEINFO := 0x2000000b

RIDEV_INPUTSINK := 0x00000100

RID_INPUT       := 0x10000003

Usage := 1
UsagePage := 12

Gui, Show, Hide, NaturalCapture

HWND := WinExist("NaturalCapture")

; Keyboards are always Usage 6, Usage Page 1, Mice are Usage 2, Usage Page 1,
; HID devices specify their top level collection in the info block   

VarSetCapacity(RawDevice, 12)
NumPut(RIDEV_INPUTSINK, RawDevice, 4)
NumPut(HWND, RawDevice, 8)
NumPut(UsagePage, RawDevice, 0, "UShort")
NumPut(Usage, RawDevice, 2, "UShort")     

Res := DllCall("RegisterRawInputDevices", "UInt", &RawDevice, UInt, 1, UInt, 12)
if (Res = 0)
   MsgBox, Failed to register for Natural Keyboard

InputMessage(wParam, lParam, msg, hwnd)
{
   global DoCapture
   global RIM_TYPEMOUSE, RIM_TYPEKEYBOARD, RIM_TYPEHID
   global RID_INPUT
   
   if (DoCapture = 0)
      return
   
   Res := DllCall("GetRawInputData", UInt, lParam, UInt, RID_INPUT, UInt, 0, "UInt *", Size, UInt, 16)
     
   VarSetCapacity(Buffer, Size)
   
   Res := DllCall("GetRawInputData", UInt, lParam, UInt, RID_INPUT, UInt, &Buffer, "UInt *", Size, UInt, 16)
   
   Type := NumGet(Buffer, 0 * 4)
   Size := NumGet(Buffer, 1 * 4)
   Handle := NumGet(Buffer, 2 * 4)
   
   ;AppendOutput("Got Input with " . Res . " size " . Size . " Type " . Type . " Handle " . Handle . "`r`n")
   
   if (Type = RIM_TYPEHID)
   {
      SizeHid := NumGet(Buffer, (16 + 0))
      InputCount := NumGet(Buffer, (16 + 4))
      ;Debug("HND " . Handle . " HID Size " . SizeHid . " Count " . InputCount . " Ptr " . &Buffer . "`r`n")
      Loop %InputCount% {
         Addr := &Buffer + 24 + ((A_Index - 1) * SizeHid)
         BAddr := &Buffer
         ;MsgBox, BAddr %BAddr% Addr %Addr%
         Input := Mem2Hex(Addr, SizeHid)
         ;Debug("Input " . Input . "`r`n")
         if (IsLabel(Input))
            Gosub, %Input%
      }
   }
   
   return
}
return

Exit

GuiClose:
ExitApp

; 1 = UP, 2 = DOWN
ScrollDir := 0

DoScroll:
ControlGetFocus, fcontrol, A
; WM_VSCROLL = 0x115, SB_LINEUP = 0, SB_LINEDOWN = 1

WinGetClass, ClassName, A
;Debug("Class " . ClassName)
if (InStr(ClassName, "Mozilla"))
{
   IsMozilla := 1
}
else
{
   IsMozilla := 0
}
Loop 3 {
   if (ScrollDir = 1)
   {
      if (IsMozilla)
         SendInput, {Up}
      else
         SendMessage, 0x115, 0, 0, %fcontrol%, A
   }
   else
   {
      if (IsMozilla)
         SendInput, {Down}
      else
         SendMessage, 0x115, 1, 0, %fcontrol%, A
   }
}
;Debug("Done")
Return

; Zoom down
012E020000010000:
ScrollDir := 2
GoSub, DoScroll
SetTimer, DoScroll, 80
return

; Zoom up
012D020000010000:
ScrollDir := 1
GoSub, DoScroll
SetTimer, DoScroll, 80
return

; All up
0100000000010000:
ScrollDir := 0
SetTimer, DoScroll, Off
return

Debug(msg)
{
   OutputDebug, %msg%
   return
}

Mem2Hex( pointer, len )
{
 A_FI := A_FormatInteger
 SetFormat, Integer, Hex
 Loop, %len%  {
                   Hex := *Pointer+0
                   StringReplace, Hex, Hex, 0x, 0x0
                   StringRight Hex, Hex, 2           
                   hexDump := hexDump . hex
                   Pointer ++
                 }
 SetFormat, Integer, %A_FI%
 StringUpper, hexDump, hexDump
Return hexDump
}

<C319 Type="6" Activator="ScrollUp" />
<C320 Type="6" Activator="ScrollDown" />

;numpad=
0100006700010000:
msgbox equal
return

;numpad(
010000B600010000:
msgbox (
return

;numpad)
010000B700010000:
msgbox )
return

; My Favorites
0182010000010000:
   MsgBox My Favorites Button
return
; Favorites 1
0100000000050000:
   MsgBox Favorites 1
return
; Favorites 2
0100000000090000:
   MsgBox Favorites 2
return
; Favorites 3
0100000000110000:
   MsgBox Favorites 3
return
; Favorites 4
0100000000210000:
   MsgBox Favorites 4
return
; Favorites 5
0100000000410000:
   MsgBox Favorites 5
return

; Capture various button presses from Wireless Media Desktop 1000 (Keyboard).

; The HID top level collection for the Wireless Media Desktop 1000 (Keyboard) is:
;   Usage         1
;   Usage Page   12


#NoTrayIcon

; Replace any previous instance
#SingleInstance force

DetectHiddenWindows, on
OnMessage(0x00FF, "InputMessage")

SizeofRawInputDeviceList := 8
SizeofRidDeviceInfo := 32

RIM_TYPEMOUSE := 0
RIM_TYPEKEYBOARD := 1
RIM_TYPEHID := 2

RIDI_DEVICENAME := 0x20000007
RIDI_DEVICEINFO := 0x2000000b

RIDEV_INPUTSINK := 0x00000100

RID_INPUT       := 0x10000003

Usage := 1
UsagePage := 12

; Use the script's main window rather than creating a GUI. DetectHiddenWindows must be ON.
HWND := WinExist("ahk_class AutoHotkey ahk_pid " DllCall("GetCurrentProcessId"))

; Keyboards are always Usage 6, Usage Page 1, Mice are Usage 2, Usage Page 1,
; HID devices specify their top level collection in the info block   

VarSetCapacity(RawDevice, 12)
NumPut(RIDEV_INPUTSINK, RawDevice, 4)
NumPut(HWND, RawDevice, 8)
NumPut(UsagePage, RawDevice, 0, "UShort")
NumPut(Usage, RawDevice, 2, "UShort")     

Res := DllCall("RegisterRawInputDevices", "UInt", &RawDevice, "UInt", 1, "UInt", 12)
if (Res = 0)
   MsgBox, Failed to register for Natural Keyboard

InputMessage(wParam, lParam, msg, hwnd)
{
   global DoCapture
   global RIM_TYPEMOUSE, RIM_TYPEKEYBOARD, RIM_TYPEHID
   global RID_INPUT
   static LastKeyBits := 0
   Critical ; May help responsiveness.
   
   if (DoCapture = 0)
      return
   
   Res := DllCall("GetRawInputData", "UInt", lParam, "UInt", RID_INPUT, "UInt", 0, "UInt *", Size, "UInt", 16)
     
   VarSetCapacity(Buffer, Size)
   
   Res := DllCall("GetRawInputData", "UInt", lParam, "UInt", RID_INPUT, "UInt", &Buffer, "UInt *", Size, "UInt", 16)
   
   Type := NumGet(Buffer, 0)
   Size := NumGet(Buffer, 4)
   Handle := NumGet(Buffer, 8)
   
   if (Type = RIM_TYPEHID)
   {
      SizeHid := NumGet(Buffer, 16)
      if SizeHid != 8 ; Only interested in inputs 8 bytes long.
          return
      InputCount := NumGet(Buffer, 20)
      Loop %InputCount%
      {
         ; NumGet is faster with (variable, offset) than (address).
         Offset := 24 + ((A_Index - 1) * SizeHid)
         
         ; DECODING BASED ON MICROSOFT WIRELESS MEDIA DESKTOP 1000
         
         ; Events beginning with 04 or 05 seem to be meaningless spam.
         ; We are only interested in events beginning with 01.
         if NumGet(Buffer, Offset, "Char") != 1
            continue
         
         ; Some key-presses are identified by the second and third bytes.
         Key := NumGet(Buffer, Offset + 1, "UShort")
         ; Some key states are stored in a bitfield.
         KeyBits := NumGet(Buffer, Offset + 5, "UChar")
         
         ; Interpret 0000 as "some key released", but only if key bits haven't changed.
         if (Key || KeyBits = LastKeyBits)
         {
            VarSetCapacity(KeyHex, 4)
            DllCall("msvcrt\sprintf_s", "str", KeyHex, "uint", 5, "str", "%04X", "int", Key)
            if IsLabel("HID" KeyHex)
               ;Gosub HID%KeyHex%
               SetTimer, HID%KeyHex%, -1 ; Use a timer to avoid "locking" the message handler.
            Debug("HID" KeyHex)
         }
         ; Continue in case keys represented by "key bits" have also been pressed or released.
         if (KeyBits != LastKeyBits)
         {
            ; 1000000: F-lock ON/F-lock OFF.
            ; 0100000: F-lock pressed. Not updated immediately on release, therefore not useful.
            ; 0010000: [1]
            ; ...
            ; 0000010: [5]
            ; 0000001: Unused on this keyboard, but maybe used on others.
            Loop 8
            {
               KeyBit := (1<<(A_Index-1))
               if (KeyBits & KeyBit != LastKeyBits & KeyBit)
               {
                  KeyBitLabel := "HID"
                  Loop % A_Index-1
                     KeyBitLabel .= "0"
                  KeyBitLabel .= "1"
                  Loop % 8-A_Index
                     KeyBitLabel .= "0"
                 
                  if !(KeyBits & KeyBit)
                     KeyBitLabel .= "_UP"

                  if IsLabel(KeyBitLabel)
                     ;Gosub %KeyBitLabel%
                     SEtTimer, %KeyBitLabel%, -1
                  Debug(KeyBitLabel " (" LastKeyBits " -> " KeyBits ")")
               }
            }
            LastKeyBits := KeyBits
         }
         ; The last byte appears to contain modifier key state (LCtrl, LShift, LAlt, etc.)
         ; but it is easier to handle modifier keys using standard AutoHotkey functions.
         Debug("mod " NumGet(Buffer, Offset + 7, "Char"))
      }
   }
   
   return
}
return

Debug(msg)
{
;    OutputDebug, %msg%
;    ToolTip % msg
   return
}

HID10000000: ; F-lock ON
SoundPlay, F:\Downloads\Customization\Sounds\Wurt\user_free.wav
return
HID10000000_UP: ; F-lock OFF
SoundPlay, F:\Downloads\Customization\Sounds\Wurt\user_na.wav
return

HID00100000: ; [1]
HID00100000_UP:
HID00010000: ; [2]
HID00010000_UP:
HID00001000: ; [3]
HID00001000_UP:
HID00000100: ; [4]
HID00000100_UP:
HID00000010: ; [5]
HID00000010_UP:
   MsgBox % A_ThisLabel
return

HID0199: ; Messenger
FKey("")
   Send #e
return

HID0182: ; Favourites
FKey("")
   Send #q
return

HID01A2: ; Flip-3D
FKey("HID01A2_UP:") ; Run HID01A2_UP when FKey() is called with a different value.
   Send {LWin Down}{Tab}
return
HID01A2_UP: ; The next HIDxxxx where xxxx is not 01A2.
   Send {LWin Up}
return

HID0095:
FKey("F1")
return
HID021A:
FKey("F2")
return
HID0279:
FKey("F3")
return
HID0201:
FKey("F4")
return
HID0202:
FKey("F5")
return
HID0203:
FKey("F6")
return
HID0289:
FKey("F7")
return
HID028B:
FKey("F8")
return
HID028C:
FKey("F9")
return
HID01AB:
FKey("F10")
return
HID0207:
FKey("F11")
return
HID0208:
FKey("F12")
return
HID0000:
FKey("")
return

FKey(k)
{
   static last_k := ""

   if last_k && last_k != k
   {
      if SubStr(last_k,0) = ":" && IsLabel(SubStr(last_k,1,-1))
         Gosub % SubStr(last_k,1,-1)
      else
         Send {Blind}{%last_k% Up}
      last_k := ""
   }
   if k && (SubStr(last_k,0) != ":" || !IsLabel(SubStr(last_k,1,-1)))
      Send {Blind}{%k% Down}
   last_k := k
}

HND 65637 HID Size 8 Count 1 Ptr 43656788
Input 0182010000010000
HND 65637 HID Size 8 Count 1 Ptr 43656788
Input 0100000000010000

0100000000050008:
   MsgBox Windows Favorites 1
   ; The Windows button press still goes to the OS
return