Part two
FUNCTION GetDeviceInfo(Device AS STRING) AS LONG
LOCAL zClassName AS ASCIIZ * %MAX_CLASS_NAME_LEN '=128
LOCAL DeviceInfoData AS SP_DEVINFO_DATA
LOCAL hDeviceInfoSet AS DWORD
LOCAL RequiredSize AS DWORD
LOCAL DevCount AS LONG
LOCAL Retval AS LONG
zClassName = Device
DevCount = 0
'The SetupDiClassGuidsFromName function retrieves the GUID(s) associated with the specified class name.
'This list is built based on the classes currently installed on the system.
Retval = SetupDiClassGuidsFromName(zClassName, BYVAL 0, BYVAL 0, RequiredSize) 'Ask for array size
TextAdd(hEdit, "SetupDi devices" & $TAB) 'DeviceCount
REDIM GuidArray(1 TO RequiredSize) AS GUIDAPI
Retval = SetupDiClassGuidsFromName(zClassName, GuidArray(1), _ 'Ask for GUID associated with the class name
SIZEOF(GUIDAPI) * RequiredSize, RequiredSize)
'SetupDiGetClassDevs retrieves a device information set that contains all devices of a specified class.
'Get info by ClassGUID, like GUID$("{4D36E978E325-11CE-BFC1-08002BE10318})" for "Ports"
hDeviceInfoSet = SetupDiGetClassDevs(GuidArray(1), BYVAL %NULL, BYVAL %NULL, %DIGCF_PRESENT)
IF hDeviceInfoSet <> %INVALID_HANDLE_VALUE THEN
DeviceInfoData.cbSize = SIZEOF(DeviceInfoData)
DO 'Loop to get all devices of a class
'Get a device based on DevCount, exit if no more
IF SetupDiEnumDeviceInfo(hDeviceInfoSet, DevCount, DeviceInfoData) THEN 'Return True if success
TextAdd(hEdit, $Line)
TextAdd(hEdit, "Device no.: " & $TAB & FORMAT$(DevCount))
TextAdd(hEdit, "ClassName: " & zClassName)
TextAdd(hEdit, "GUID: " & GUIDTXT$(GuidArray(1)))
TextAdd(hEdit, SetupDiGetDeviceRegistryPropertyCall(hDeviceInfoSet, DeviceInfoData, %SPDRP_FRIENDLYNAME, "FriendlyName: "))
TextAdd(hEdit, SetupDiGetDeviceRegistryPropertyCall(hDeviceInfoSet, DeviceInfoData, %SPDRP_DEVICEDESC, "Desc: "))
TextAdd(hEdit, SetupDiGetDeviceRegistryPropertyCall(hDeviceInfoSet, DeviceInfoData, %SPDRP_DRIVER, "Driver: "))
TextAdd(hEdit, SetupDiGetDeviceRegistryPropertyCall(hDeviceInfoSet, DeviceInfoData, %SPDRP_HARDWAREID, "HardId: "))
TextAdd(hEdit, SetupDiGetDeviceRegistryPropertyCall(hDeviceInfoSet, DeviceInfoData, %SPDRP_ENUMERATOR_NAME, "Enum: "))
TextAdd(hEdit, SetupDiGetDeviceRegistryPropertyCall(hDeviceInfoSet, DeviceInfoData, %SPDRP_MFG, "MFG: "))
TextAdd(hEdit, SetupDiGetDeviceRegistryPropertyCall(hDeviceInfoSet, DeviceInfoData, %SPDRP_SERVICE, "Servcice: "))
TextAdd(hEdit, SetupDiGetDeviceRegistryPropertyCall(hDeviceInfoSet, DeviceInfoData, %SPDRP_PHYSICAL_DEVICE_OBJECT_NAME, "PhyObj: "))
ELSE
EXIT DO
END IF
INCR DevCount
LOOP
SetupDiDestroyDeviceInfoList(hDeviceInfoSet) ': hDeviceInfoSet = 0
END IF
TextAdd(hEdit, $Line)
END FUNCTION
'______________________________________________________________________________
CALLBACK FUNCTION DlgProc
LOCAL CurPos AS POINTAPI
LOCAL index AS LONG
LOCAL RidDeviceInfo AS RID_DEVICE_INFO
LOCAL RawInputDevCount AS LONG
LOCAL MouseCount AS LONG
LOCAL DataSize AS LONG
LOCAL ByteCount AS LONG
LOCAL RidDeviceInfoSize AS DWORD 'RID_DEVICE_INFO
SELECT CASE CBMSG
CASE %WM_INITDIALOG
'Edit -------------------------------------------------------------------
hEdit = GetDlgItem(CBHNDL, %Edit)
SendMessage(hEdit, %EM_LIMITTEXT, 0, 0)
PostMessage(hEdit, %EM_SETSEL, -1, -1)
PostMessage(CBHNDL, %WM_APP, 0, 0)
CASE %WM_APP
'SetupDi ----------------------------------------------------------------
GetDeviceInfo("Mouse")
'Raw --------------------------------------------------------------------
GetRawInputDeviceList(BYVAL %NULL, RawInputDevCount, SIZEOF(RAWINPUTDEVICELIST)) 'Get hid count
DIM RawInputDevList(0 TO RawInputDevCount - 1) AS RAWINPUTDEVICELIST 'Prepare hid array
GetRawInputDeviceList(RawInputDevList(0), RawInputDevCount, SIZEOF(RAWINPUTDEVICELIST)) 'Get array
TextAdd(hEdit, "All RawInputDevCount" & $TAB & STR$(RawInputDevCount))
TextAdd(hEdit, $Line)
DIM RawInputDev(0 TO RawInputDevCount) AS RAWINPUTDEVICE 'Prepare hid register array
TextAdd(hEdit, "RawInputDevice Mouse" & $TAB)
TextAdd(hEdit, $Line)
RidDeviceInfoSize = SIZEOF(RID_DEVICE_INFO)
FOR index = 0 TO RawInputDevCount - 1 'Loop
GetRawInputDeviceInfo(RawInputDevList(index).hDevice, %RIDI_DEVICEINFO, RidDeviceInfo, SIZEOF(RID_DEVICE_INFO)) 'Get hid info
SELECT CASE RidDeviceInfo.dwtype 'Poll hid type
CASE %RIM_TYPEMOUSE 'Mouse
LOCAL zDeviceName AS ASCIIZ * 128
GetRawInputDeviceInfo(RawInputDevList(index).hDevice, %RIDI_DEVICENAME, BYVAL VARPTR(zDeviceName), SIZEOF(zDeviceName))
GetRawInputDeviceInfo(RawInputDevList(index).hDevice, %RIDI_DEVICEINFO, RidDeviceInfo, RidDeviceInfoSize)
TextAdd(hEdit, "DeviceName: " & $TAB & zDeviceName)
TextAdd(hEdit, "Type: " & $TAB & "Mouse")
TextAdd(hEdit, "index: " & $TAB & STR$(MouseCount))
TextAdd(hEdit, "hDevice: " & $TAB & HEX$(RawInputDevList(index).hDevice))
TextAdd(hEdit, "Moude id:" & $TAB & STR$(RidDeviceInfo.mouse.dwId))
TextAdd(hEdit, "Button count:" & $TAB & STR$(RidDeviceInfo.mouse.dwNumberOfButtons))
TextAdd(hEdit, "Sample rate data points per second:" & $TAB & STR$(RidDeviceInfo.mouse.dwSampleRate))
TextAdd(hEdit, "Horizontal wheel scrolling:" & $TAB & STR$(RidDeviceInfo.mouse.fHasHorizontalWheel))
DataSize = GetRawInputDeviceInfo(RawInputDevList(index).hDevice, %RIDI_PREPARSEDDATA, BYVAL %NULL, VARPTR(DataSize))
TextAdd(hEdit, "Preparsed data byte count " & $TAB & STR$(DataSize))
' 1 - generic desktop controls // we use this
' 2 - simulation controls
' 3 - vr
' 4 - sport
' 5 - game
' 6 - generic device
' 7 - keyboard
' 8 - LEDs
' 9 - button
RawInputDev(MouseCount).usUsagePage = 1
'usUsage values when usUsagePage is 1:
' 0 - undefined
' 1 - pointer
' 2 - mouse
' 3 - reserved
' 4 - joystick
' 5 - game pad
' 6 - keyboard // we use this
' 7 - keypad
' 8 - multi-axis controller
' 9 - Tablet PC controls
RawInputDev(MouseCount).usUsage = 2
RawInputDev(MouseCount).dwFlags = %RIDEV_EXINPUTSINK 'Always capture nofreezw
'RawInputDev(MouseCount).dwFlags = %RIDEV_NOLEGACY 'Add mouse and ignores legacy mouse messages freeze
'RawInputDev(MouseCount).dwFlags = %RIDEV_CAPTUREMOUSE 'nofreeze
RawInputDev(MouseCount).hwndTarget = hDlg
TextAdd(hEdit, $Line)
INCR MouseCount
CASE %RIM_TYPEKEYBOARD 'Keyboard, the presenter shows up as a keyboard too
CASE %RIM_TYPEHID 'Other devices 'Other raw input device, game controllers, joysticks, etc.
END SELECT
NEXT
TextAdd(hEdit, $Line)
RegisterRawInputDevices(RawInputDev(0), MouseCount, SIZEOF(RAWINPUTDEVICE)) 'Register hids
CASE %WM_INPUT 'Sent to the window that is getting raw input. By default, no application receives raw input.
'The first step is therefore to register the input devices that will be providing the
'desired raw data, and associate them with the window that will be handling this data.
'wParam = The input code. This parameter can be one of the following values.
' RIM_INPUT 0 Input occurred while the application was in the foreground.
' The application must call DefWindowProc so the system can perform cleanup.
' RIM_INPUTSINK 1 Input occurred while the application was not in the foreground.
' The application must call DefWindowProc so the system can perform the cleanup.
'lParam A handle to the RAWINPUT for GetRawInputData that contains the raw input from the device.
STATIC zRawInput AS STRING * 4096 'Faster than building a ~40 bytes string every time
LOCAL pRawInput AS RAWINPUT POINTER
LOCAL ByteCountF AS LONG
pRawInput = VARPTR(zRawInput)
ByteCount = LEN(zRawInput)
ByteCountF = GetRawInputData(CBLPARAM, %RID_INPUT, BYVAL pRawInput, ByteCount, SIZEOF(RAWINPUTHEADER))'Get hid input
IF @pRawInput.data.mouse.usButtonFlags THEN
TextAdd(hEdit, "RawInput.Header.hDevice = " & HEX$(@pRawInput.header.hDevice, 8))
TextAdd(hEdit, "RawInput.Header.dwType = " & CHOOSE$(@pRawInput.header.dwType + 1, _ '0 for mouse, 1 key, 2 hid
"RIM_TYPEMOUSE", "RIM_TYPEKEYBOARD", "RIM_TYPEHID")) '0 for mouse, 1 key, 2 hid
TextAdd(hEdit, "RawInput.Header.wParam = " & HEX$(@pRawInput.header.wParam, 8)) 'The value passed in the wParam parameter of the WM_INPUT message.
TextAdd(hEdit, "RawInput.data.mouse.usFlags = " & MouseStateGet(@pRawInput.data.mouse.usFlags)) '
TextAdd(hEdit, "RawInput.data.mouse.usButtonFlags = " & MouseTransitionStateGet(@pRawInput.data.mouse.usButtonFlags)) '
TextAdd(hEdit, "RawInput.data.mouse.usButtonData = " & HEX$(@pRawInput.data.mouse.usButtonData, 4)) '
TextAdd(hEdit, "RawInput.data.mouse.ulRawButtons = " & FORMAT$(@pRawInput.data.mouse.ulRawButtons)) 'Reserved
TextAdd(hEdit, "RawInput.data.mouse.lLastX = " & FORMAT$(@pRawInput.data.mouse.lLastX)) 'The motion in the X direction. This is signed relative motion or absolute motion, depending on the value of usFlags.
TextAdd(hEdit, "RawInput.data.mouse.lLastY = " & FORMAT$(@pRawInput.data.mouse.lLastY)) 'The motion in the Y direction. This is signed relative motion or absolute motion, depending on the value of usFlags.
TextAdd(hEdit, "RawInput.data.mouse.ulExtraInformation = " & HEX$(@pRawInput.data.mouse.ulExtraInformation)) '
GetCursorPos(CurPos)
TextAdd(hEdit, "Cursor: " & FORMAT$(CurPos.x) & " x " & FORMAT$(CurPos.x))
TextAdd(hEdit, $Line)
END IF
DefWindowProc(hDlg, CBMSG, CBWPARAM, CBLPARAM)
FUNCTION = 0 : EXIT FUNCTION
CASE %WM_INPUT_DEVICE_CHANGE 'RIDEV_DEVNOTIFY Sent to the window that registered to receive raw input.
'wParam This parameter can be one of the following values.
' GIDC_ARRIVAL 1 A new device has been added to the system.
' GIDC_REMOVAL 2 A device has been removed from the system.
'lParam The handle to the raw input device. Call GetRawInputDeviceInfo to get more information regarding the device.
CASE %WM_COMMAND
SELECT CASE LOWRD(CBWPARAM)
CASE %ButtonAdd
IF CBCTLMSG = %BN_CLICKED OR CBCTLMSG = 1 THEN
END IF
CASE %ButtonDel
IF CBCTLMSG = %BN_CLICKED OR CBCTLMSG = 1 THEN
TextDel(hEdit)
END IF
CASE %IDCANCEL, %IDOK
IF CBCTLMSG = %BN_CLICKED OR CBCTLMSG = 1 THEN
DIALOG END CBHNDL, 0
END IF
END SELECT
CASE %WM_SETCURSOR
'hwnd = (HWND) wParam; // handle of window with cursor
'nHittest = LOWORD(lParam); // hit-test code
'wMouseMsg = HIWORD(lParam); // mouse-message identifier
GetCursorPos(CurPos)
CONTROL SET TEXT hDlg, %StaticCurPos, FORMAT$(CurPos.x) & " x " & FORMAT$(Curpos.y)
CASE %WM_SIZE 'Dialog size have changed
'CBWPARAM = Resizing requested: SIZE_MAXHIDE SIZE_MAXIMIZED SIZE_MAXSHOW SIZE_MINIMIZED SIZE_RESTORED
'LO(WORD, CBLPARAM) is client area width in pixels.
'HI(WORD, CBLPARAM) is client area height in pixels.
LOCAL ClientSizeX AS LONG
LOCAL ClientSizeY AS LONG
IF CBWPARAM <> %SIZE_MINIMIZED THEN
ClientSizeX = LO(WORD, CBLPARAM)
ClientSizeY = HI(WORD, CBLPARAM)
MoveWindow(hEdit, 3, 3, ClientSizeX - 8, ClientSizeY - 40 - 00, %TRUE)
MoveWindow(GetDlgItem(hDlg, %ButtonAdd), 10, ClientSizeY - 30, 180, 25, %TRUE)
MoveWindow(GetDlgItem(hDlg, %ButtonDel), 200, ClientSizeY - 30, 80, 25, %TRUE)
MoveWindow(GetDlgItem(hDlg, %StaticCurPos), 320, ClientSizeY - 25, 80, 25, %TRUE)
END IF
END SELECT
END FUNCTION
'______________________________________________________________________________
FUNCTION PBMAIN
LOCAL hIcon AS DWORD
DIALOG NEW %HWND_DESKTOP, $AppNmae, , , 450, 600, _
%WS_CAPTION OR %WS_MINIMIZEBOX OR %WS_MAXIMIZEBOX OR %WS_SYSMENU OR %WS_THICKFRAME, 0 TO hDlg
hIcon = ExtractIcon(GETMODULEHANDLE(""), "Shell32.dll", 294)
SetClassLong(hDlg, %GCL_HICON,hIcon)
CONTROL ADD TEXTBOX, hDlg, %Edit, "", 2, 2, 196, 96, %WS_CHILD OR %WS_VISIBLE OR _
%WS_TABSTOP OR %WS_HSCROLL OR %WS_VSCROLL OR %ES_LEFT OR %ES_MULTILINE OR _
%ES_NOHIDESEL OR %ES_AUTOHSCROLL OR %ES_AUTOVSCROLL OR %ES_WANTRETURN, _
%WS_EX_CLIENTEDGE OR %WS_EX_LEFT OR %WS_EX_LTRREADING OR %WS_EX_RIGHTSCROLLBAR
CONTROL ADD BUTTON, hDlg, %ButtonAdd, "&Add string at the end and scrool", 10, 86, 130, 15
CONTROL ADD BUTTON, hDlg, %ButtonDel, "&Delete text", 150, 86, 55, 15
CONTROL ADD LABEL, hDlg, %StaticCurPos, "CurPos", 230, 86, 55, 15
DIALOG SHOW MODAL hDlg CALL DlgProc
DestroyIcon(hIcon)
END FUNCTION
'______________________________________________________________________________
'
