You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
250 lines
6.2 KiB
Plaintext
250 lines
6.2 KiB
Plaintext
/*
|
|
Script to show data flowing from Interception
|
|
*/
|
|
#SingleInstance force
|
|
Persistent
|
|
#include Lib\AutoHotInterception.ahk
|
|
|
|
OutputDebug("DBGVIEWCLEAR")
|
|
|
|
mg := Gui("", "AutoHotInterception Monitor")
|
|
mg.MarginX := 0
|
|
mg.MarginY := 0
|
|
|
|
DeviceList := {}
|
|
filterMouseMove := 1
|
|
filterKeyPress := 0
|
|
|
|
AHI := AutoHotInterception()
|
|
|
|
; Device List
|
|
DeviceList := AHI.GetDeviceList()
|
|
|
|
marginX := 10
|
|
marginY := 10
|
|
idW := 50 ; Width of the ID text
|
|
vhOff := 7 ; Width to space VIDPID / Handle above/below ID row
|
|
copyW := 40 ; Width of the Copy buttons
|
|
outputH := 350 ; Height of the Output boxes
|
|
rowH := 35 ; Distance between each row of devices
|
|
|
|
maxWidths := Map("K", 0, "M", 0) ; Max Width of device entries for each column
|
|
totalWidths := Map("K", 0, "M", 0) ; Total Width of each column
|
|
tW := Map("K", 0, "M", 0)
|
|
devTypes := ["K", "M"] ; Lookup table for device type
|
|
starts := Map("K", 0, "M", 10) ; Start IDs for each device type
|
|
columnTitles := Map("K", "Keyboards", "M", "Mice") ; Column Titles
|
|
columnX := Map("K", 0, "M", 0)
|
|
|
|
|
|
Loop 2 {
|
|
strings := Map()
|
|
devType := devTypes[A_Index]
|
|
columnX[devType] := GetColX(devType)
|
|
|
|
start := starts[devType]
|
|
UpdateWidth(0, 1) ; Reset max width
|
|
|
|
; Add device entries
|
|
Loop 10 {
|
|
i := start + A_Index
|
|
if (!DeviceList.Has(i)){
|
|
continue
|
|
}
|
|
dev := DeviceList[i]
|
|
rowY := (marginY * 3) + ((A_Index - 1) * rowH)
|
|
|
|
chkDevice := mg.Add("Checkbox", "x" columnX[devType] " y" rowY " w" idW, "ID: " dev.id)
|
|
chkDevice.OnEvent("Click", CheckboxChanged.Bind(dev.id))
|
|
|
|
lowest := UpdateLowest(chkDevice)
|
|
strings[A_index] := {vid:FormatHex(dev.VID), pid: FormatHex(dev.PID), handle: dev.Handle}
|
|
|
|
textVidPid := mg.Add("Text", "x" columnX[devType] + idW " y" rowY - vhOff, "VID / PID:`t0x" strings[A_index].vid ", 0x" strings[A_index].pid)
|
|
maxWidths[devType] := UpdateWidth(textVidPid)
|
|
|
|
textHandle := mg.Add("Text", "x" columnX[devType] + idW " y" rowY + vhOff, "Handle:`t`t" StrReplace(strings[A_index].Handle, "&", "&&"))
|
|
maxWidths[devType] := UpdateWidth(textHandle)
|
|
}
|
|
|
|
; Add copy buttons
|
|
Loop 10 {
|
|
i := start + A_Index
|
|
if (!DeviceList.Has(i)){
|
|
continue
|
|
}
|
|
dev := DeviceList[i]
|
|
rowY := (marginY * 3) + ((A_Index - 1) * rowH)
|
|
xpos := columnX[devType] + idW + maxWidths[devType]
|
|
|
|
btnCopyVidPid := mg.Add("Button", "x" xpos " y" rowY - vhOff " h14 w" copyW, "Copy")
|
|
btnCopyVidPid.OnEvent("Click", CopyClipboard.Bind("0x" strings[A_index].vid ", 0x" strings[A_index].pid))
|
|
|
|
btnCopyHandle := mg.Add("Button", "x" xpos " y" rowY + vhOff " h14 w" copyW, "Copy")
|
|
btnCopyHandle.OnEvent("Click", CopyClipboard.Bind(strings[A_index].handle))
|
|
}
|
|
|
|
totalWidths[devType] := idW + maxWidths[devType] + copyW
|
|
mg.Add("Text", "x" columnX[devType] " y5 w" totalWidths[devType] " Center", columnTitles[devType])
|
|
}
|
|
|
|
lowest += 2 * MarginY
|
|
|
|
; Options
|
|
; Gui, Add, CheckBox, % "x" columnX.K " y" lowest " hwndhCbFilterPress", Only show key releases
|
|
; fn := Func("FilterPress")
|
|
; GuiControl, +g, % hCbFilterPress, % fn
|
|
|
|
; Gui, Add, CheckBox, % "x" columnX.M " w" totalWidths[devType] " yp hwndhCbFilterMove Checked", Filter Movement (Warning: Turning off can cause crashes)
|
|
; fn := Func("FilterMove")
|
|
; GuiControl, +g, % hCbFilterMove, % fn
|
|
|
|
lowest += 2 * MarginY
|
|
|
|
; Gui, Add, Button, % "x" columnX.K " y" lowest " w" totalWidths.K " Center gClearKeyboard", Clear
|
|
; Gui, Add, Button, % "x" columnX.M " yp w" totalWidths.M " gClearMouse Center", Clear
|
|
|
|
lowest += 30
|
|
|
|
; Output
|
|
; Gui, Add, ListView, % "x" columnX.K " y" lowest " w" totalWidths.K " h" outputH " hwndhLvKeyboard", ID|Code|State|Key Name
|
|
; LV_ModifyCol(4, 100)
|
|
; Gui, Add, ListView, % "x" columnX.M " yp w" totalWidths.M " h" outputH " hwndhLvMouse", ID|Code|State|X|Y|Info
|
|
; LV_ModifyCol(6, 200)
|
|
|
|
lowest += outputH
|
|
|
|
; Gui("Show", "w" (marginX * 3) + totalWidths.K + totalWidths.M " h" marginY + lowest, "AutoHotInterception Monitor")
|
|
mg.Show("w" (marginX * 3) + totalWidths["K"] + totalWidths["M"] " h" marginY + lowest)
|
|
|
|
;~ Monitor.Subscribe(Func("KeyboardEvent"), Func("MouseEvent"))
|
|
|
|
return
|
|
|
|
|
|
GetColX(devType){
|
|
global marginX, idW, maxWidths, copyW
|
|
if (devType == "K")
|
|
return marginX
|
|
else
|
|
return (marginX * 2) + idW + maxWidths["K"] + copyW
|
|
}
|
|
|
|
UpdateLowest(ctrl){
|
|
static max := 0
|
|
ctrl.GetPos(&cpX, &cpY, &cpW, &cpH)
|
|
pos := cpY + cpH
|
|
if (pos > max){
|
|
max := pos
|
|
}
|
|
return max
|
|
}
|
|
|
|
UpdateWidth(ctrl, reset := 0){
|
|
static max := 0
|
|
if (reset){
|
|
max := 0
|
|
return
|
|
}
|
|
ctrl.GetPos(&cpX, &cpY, &cpW, &cpH)
|
|
if (cpW > max){
|
|
max := cpW
|
|
}
|
|
return max
|
|
}
|
|
|
|
CheckboxChanged(id, ctrl, info){
|
|
global AHI
|
|
if (ctrl.Value){
|
|
if (id < 11){
|
|
AHI.SubscribeKeyboard(id, false, KeyboardEvent.Bind(id))
|
|
} else {
|
|
AHI.SubscribeMouseButtons(id, false, MouseButtonEvent.Bind(id))
|
|
AHI.SubscribeMouseMoveRelative(id, false, MouseAxisEvent.Bind(id, "Relative Move"))
|
|
AHI.SubscribeMouseMoveAbsolute(id, false, MouseAxisEvent.Bind(id, "Absolute Move"))
|
|
}
|
|
} else {
|
|
if (id < 11){
|
|
AHI.UnsubscribeKeyboard(id)
|
|
} else {
|
|
AHI.UnsubscribeMouseButtons(id)
|
|
AHI.UnsubscribeMouseMoveRelative(id)
|
|
AHI.UnsubscribeMouseMoveAbsolute(id)
|
|
}
|
|
}
|
|
}
|
|
/*
|
|
|
|
FilterMove(hwnd){
|
|
global filterMouseMove
|
|
GuiControlGet, state, , % hwnd
|
|
filterMouseMove := state
|
|
}
|
|
|
|
FilterPress(hwnd){
|
|
global filterKeyPress
|
|
GuiControlGet, state, , % hwnd
|
|
filterKeyPress := state
|
|
}
|
|
|
|
ClearKeyboard:
|
|
Gui, ListView, % hLvKeyboard
|
|
LV_Delete()
|
|
return
|
|
|
|
ClearMouse:
|
|
Gui, ListView, % hLvMouse
|
|
LV_Delete()
|
|
return
|
|
|
|
*/
|
|
|
|
FormatHex(num){
|
|
return Format("{:04X}", num)
|
|
}
|
|
|
|
|
|
KeyboardEvent(id, code, state){
|
|
ToolTip("Keyboard Event`nid: " id "`ncode: " code "`nstate: " state)
|
|
; global hLvKeyboard, filterKeyPress
|
|
; if (filterKeyPress && state)
|
|
; return
|
|
; Gui, ListView, % hLvKeyboard
|
|
; scanCode := Format("{:x}", code)
|
|
; keyName := GetKeyName("SC" scanCode)
|
|
; row := LV_Add(, id, code, state, keyName)
|
|
; LV_Modify(row, "Vis")
|
|
}
|
|
|
|
MouseButtonEvent(id, code, state){
|
|
; global hLvMouse
|
|
; Gui, ListView, % hLvMouse
|
|
; row := LV_Add(, id, code, state, "", "", "Button")
|
|
; LV_Modify(row, "Vis")
|
|
}
|
|
|
|
MouseAxisEvent(id, info, x, y){
|
|
; global hLvMouse, filterMouseMove
|
|
; if (filterMouseMove)
|
|
; return
|
|
; Gui, ListView, % hLvMouse
|
|
; row := LV_Add(, id, "", "", x, y, info)
|
|
; LV_Modify(row, "Vis")
|
|
}
|
|
|
|
CopyClipboard(str, ctrl, info){
|
|
A_Clipboard := str
|
|
Tooltip("Copied to Clipboard")
|
|
SetTimer(ClearTooltip, 1000)
|
|
}
|
|
|
|
ClearTooltip(){
|
|
ToolTip
|
|
}
|
|
|
|
^Esc::
|
|
{
|
|
GuiClose:
|
|
ExitApp
|
|
}
|