Figuring out how to access a device using Windows.Devices.HumanInterfaceDevice?

Question

Before I start, I would like to share this link I used to access windows RT libraries from Desktop applications (only the ones stated in MSDN documentation that are accessible from desktop applications):
http://blogs.msdn.com/b/cdndevs/archive/2013/10/02/using-windows-8-winrt-apis-in-net-desktop-applications.aspx .
After following the above instructions you can import some of the windows RT libraries in references. I have been trying to use the Windows.Devices.HumanInterfaceDevice library. I think my UsagePage and UsageId are off though. I am wondering
if someone good in hex can translate them from my report descriptor. I already have the VID and PID (this should be enough along with the path if I called write file or some of the other win32/OS api's). Here's the code I am using in VB.NET:
Public Class VirtualMouseDeviceOpen
Class Enumeration
' Enumerate HID devices
Public Async Function EnumerateHidDevices() As Task
Dim vendorId As UInt32 = &HBEEF
Dim productId As UInt32 = &HFEED
Dim usagePage As UInt32 = &HFF
Dim usageId As UInt32 = &H1
' Create a selector that gets a HID device using VID/PID and a
' VendorDefined usage
Dim selector As String = HidDevice.GetDeviceSelector(usagePage, usageId, vendorId, productId)
' Enumerate devices using the selector
Dim devices As Windows.Foundation.IAsyncOperation(Of Windows.Devices.Enumeration.DeviceInformationCollection) = DeviceInformation.FindAllAsync(selector)
Dim count As Integer = devices.GetResults.Count
If count > 0 Then
' Open the target HID device
' At this point the device is available to communicate with
' So we can send/receive HID reports from it or
' query it for control descriptions
Dim device As HidDevice = HidDevice.FromIdAsync(devices.GetResults.ElementAt(0).Id, FileAccessMode.ReadWrite)
Await Vendor.ReadWriteToHidDevice(device)
Else
' There were no HID devices that met the selector criteria
MsgBox("MUTT HID device not found!", MsgBoxStyle.Exclamation)
End If
End Function
Class Vendor
Public Shared Async Function ReadWriteToHidDevice(device As HidDevice) As Task
If device IsNot Nothing Then
' construct a HID output report to send to the device
Dim outReport As HidOutputReport = device.CreateOutputReport()
' Initialize the data buffer and fill it in
Dim buffer As Byte() = New Byte() {10, 20, 30, 40}
Dim dataWriter As New DataWriter()
dataWriter.WriteBytes(buffer)
outReport.Data = dataWriter.DetachBuffer()
' Send the output report asynchronously
Dim a As Windows.Foundation.IAsyncOperation(Of UInteger) = device.SendOutputReportAsync(outReport)
' Sent output report successfully
' Now lets try read an input report
Dim inReport As HidInputReport = device.GetInputReportAsync()
If inReport IsNot Nothing Then
Dim id As UInt16 = inReport.Id
Dim bytes = New Byte(3) {}
Dim dataReader__1 As DataReader = DataReader.FromBuffer(inReport.Data)
dataReader__1.ReadBytes(bytes)
Else
MsgBox("Invalid input report received")
End If
Else
MsgBox("device is NULL")
End If
End Function
End Class
End Class
Here's my report descriptor to avoid scrimmaging through everything trying to find it:
HID_REPORT_DESCRIPTOR G_DefaultReportDescriptor[] = {
0x06,0x00, 0xFF, // USAGE_PAGE (Vender Defined Usage Page)
0x09,0x01, // USAGE (Vendor Usage 0x01)
0xA1,0x01, // COLLECTION (Application)
0x85,CONTROL_FEATURE_REPORT_ID, // REPORT_ID (1)
0x09,0x01, // USAGE (Vendor Usage 0x01)
0x15,0x00, // LOGICAL_MINIMUM(0)
0x26,0xff, 0x00, // LOGICAL_MAXIMUM(255)
0x75,0x08, // REPORT_SIZE (0x08)
//0x95,FEATURE_REPORT_SIZE_CB, // REPORT_COUNT
0x96,(FEATURE_REPORT_SIZE_CB & 0xff), (FEATURE_REPORT_SIZE_CB >> 8), // REPORT_COUNT
0xB1,0x00, // FEATURE (Data,Ary,Abs)
0x09,0x01, // USAGE (Vendor Usage 0x01)
0x75,0x08, // REPORT_SIZE (0x08)
//0x95,INPUT_REPORT_SIZE_CB, // REPORT_COUNT
0x96,(INPUT_REPORT_SIZE_CB & 0xff), (INPUT_REPORT_SIZE_CB >> 8), // REPORT_COUNT
0x81,0x00, // INPUT (Data,Ary,Abs)
0x09,0x01, // USAGE (Vendor Usage 0x01)
0x75,0x08, // REPORT_SIZE (0x08)
//0x95,OUTPUT_REPORT_SIZE_CB, // REPORT_COUNT
0x96,(OUTPUT_REPORT_SIZE_CB & 0xff), (OUTPUT_REPORT_SIZE_CB >> 8), // REPORT_COUNT
0x91,0x00, // OUTPUT (Data,Ary,Abs)
0xC0, // END_COLLECTION
0x05, 0x01, // USAGE_PAGE (Generic Desktop)
0x09, 0x02, // USAGE (Mouse)
0xa1, 0x01, // COLLECTION (Application)
0x85, 0x02, // REPORT_ID (2)
0x09, 0x01, // USAGE (Pointer)
0xa1, 0x00, // COLLECTION (Physical)
0x05, 0x09, // USAGE_PAGE (Button)
0x19, 0x01, // USAGE_MINIMUM (Button 1)
0x29, 0x03, // USAGE_MAXIMUM (Button 3)
0x15, 0x00, // LOGICAL_MINIMUM (0)
0x25, 0x01, // LOGICAL_MAXIMUM (1)
0x95, 0x03, // REPORT_COUNT (3)
0x75, 0x01, // REPORT_SIZE (1)
0x81, 0x02, // INPUT (Data,Var,Abs)
0x95, 0x01, // REPORT_COUNT (1)
0x75, 0x05, // REPORT_SIZE (5)
0x81, 0x03, // INPUT (Cnst,Var,Abs)
0x05, 0x01, // USAGE_PAGE (Generic Desktop)
0x09, 0x30, // USAGE (X)
0x09, 0x31, // USAGE (Y)
0x15, 0x81, // LOGICAL_MINIMUM (-127)
0x25, 0x7f, // LOGICAL_MAXIMUM (127)
0x75, 0x08, // REPORT_SIZE (8)
0x95, 0x02, // REPORT_COUNT (2)
0x81, 0x06, // INPUT (Data,Var,Rel)
0xc0, // END_COLLECTION
0xc0 // END_COLLECTION
My UsageId is the first Usage Hex value in the report descriptor I believe (I am still a little confused too). My UsagePage is the hex values in the first Usage_Page in the report descriptor.
Note: the problem with the VB.NET code is that it returns 0 on the count above which means it did not find a device using my criteria.
Once you eliminate the impossible, whatever remains, no matter how improbable, must be the truth. - Sherlock Holmes. speak softly and carry a big stick - theodore roosevelt. Fear leads to anger, anger leads to hate, hate leads to suffering - Yoda. Blog -
http://www.computerprofessions.us

Answer 1

Before I start, I would like to share this link I used to access windows RT libraries from Desktop applications (only the ones stated in MSDN documentation that are accessible from desktop applications):
http://blogs.msdn.com/b/cdndevs/archive/2013/10/02/using-windows-8-winrt-apis-in-net-desktop-applications.aspx .
After following the above instructions you can import some of the windows RT libraries in references. I have been trying to use the Windows.Devices.HumanInterfaceDevice library. I think my UsagePage and UsageId are off though. I am wondering
if someone good in hex can translate them from my report descriptor. I already have the VID and PID (this should be enough along with the path if I called write file or some of the other win32/OS api's). Here's the code I am using in VB.NET:
Public Class VirtualMouseDeviceOpen
Class Enumeration
' Enumerate HID devices
Public Async Function EnumerateHidDevices() As Task
Dim vendorId As UInt32 = &HBEEF
Dim productId As UInt32 = &HFEED
Dim usagePage As UInt32 = &HFF
Dim usageId As UInt32 = &H1
' Create a selector that gets a HID device using VID/PID and a
' VendorDefined usage
Dim selector As String = HidDevice.GetDeviceSelector(usagePage, usageId, vendorId, productId)
' Enumerate devices using the selector
Dim devices As Windows.Foundation.IAsyncOperation(Of Windows.Devices.Enumeration.DeviceInformationCollection) = DeviceInformation.FindAllAsync(selector)
Dim count As Integer = devices.GetResults.Count
If count > 0 Then
' Open the target HID device
' At this point the device is available to communicate with
' So we can send/receive HID reports from it or
' query it for control descriptions
Dim device As HidDevice = HidDevice.FromIdAsync(devices.GetResults.ElementAt(0).Id, FileAccessMode.ReadWrite)
Await Vendor.ReadWriteToHidDevice(device)
Else
' There were no HID devices that met the selector criteria
MsgBox("MUTT HID device not found!", MsgBoxStyle.Exclamation)
End If
End Function
Class Vendor
Public Shared Async Function ReadWriteToHidDevice(device As HidDevice) As Task
If device IsNot Nothing Then
' construct a HID output report to send to the device
Dim outReport As HidOutputReport = device.CreateOutputReport()
' Initialize the data buffer and fill it in
Dim buffer As Byte() = New Byte() {10, 20, 30, 40}
Dim dataWriter As New DataWriter()
dataWriter.WriteBytes(buffer)
outReport.Data = dataWriter.DetachBuffer()
' Send the output report asynchronously
Dim a As Windows.Foundation.IAsyncOperation(Of UInteger) = device.SendOutputReportAsync(outReport)
' Sent output report successfully
' Now lets try read an input report
Dim inReport As HidInputReport = device.GetInputReportAsync()
If inReport IsNot Nothing Then
Dim id As UInt16 = inReport.Id
Dim bytes = New Byte(3) {}
Dim dataReader__1 As DataReader = DataReader.FromBuffer(inReport.Data)
dataReader__1.ReadBytes(bytes)
Else
MsgBox("Invalid input report received")
End If
Else
MsgBox("device is NULL")
End If
End Function
End Class
End Class
Here's my report descriptor to avoid scrimmaging through everything trying to find it:
HID_REPORT_DESCRIPTOR G_DefaultReportDescriptor[] = {
0x06,0x00, 0xFF, // USAGE_PAGE (Vender Defined Usage Page)
0x09,0x01, // USAGE (Vendor Usage 0x01)
0xA1,0x01, // COLLECTION (Application)
0x85,CONTROL_FEATURE_REPORT_ID, // REPORT_ID (1)
0x09,0x01, // USAGE (Vendor Usage 0x01)
0x15,0x00, // LOGICAL_MINIMUM(0)
0x26,0xff, 0x00, // LOGICAL_MAXIMUM(255)
0x75,0x08, // REPORT_SIZE (0x08)
//0x95,FEATURE_REPORT_SIZE_CB, // REPORT_COUNT
0x96,(FEATURE_REPORT_SIZE_CB & 0xff), (FEATURE_REPORT_SIZE_CB >> 8), // REPORT_COUNT
0xB1,0x00, // FEATURE (Data,Ary,Abs)
0x09,0x01, // USAGE (Vendor Usage 0x01)
0x75,0x08, // REPORT_SIZE (0x08)
//0x95,INPUT_REPORT_SIZE_CB, // REPORT_COUNT
0x96,(INPUT_REPORT_SIZE_CB & 0xff), (INPUT_REPORT_SIZE_CB >> 8), // REPORT_COUNT
0x81,0x00, // INPUT (Data,Ary,Abs)
0x09,0x01, // USAGE (Vendor Usage 0x01)
0x75,0x08, // REPORT_SIZE (0x08)
//0x95,OUTPUT_REPORT_SIZE_CB, // REPORT_COUNT
0x96,(OUTPUT_REPORT_SIZE_CB & 0xff), (OUTPUT_REPORT_SIZE_CB >> 8), // REPORT_COUNT
0x91,0x00, // OUTPUT (Data,Ary,Abs)
0xC0, // END_COLLECTION
0x05, 0x01, // USAGE_PAGE (Generic Desktop)
0x09, 0x02, // USAGE (Mouse)
0xa1, 0x01, // COLLECTION (Application)
0x85, 0x02, // REPORT_ID (2)
0x09, 0x01, // USAGE (Pointer)
0xa1, 0x00, // COLLECTION (Physical)
0x05, 0x09, // USAGE_PAGE (Button)
0x19, 0x01, // USAGE_MINIMUM (Button 1)
0x29, 0x03, // USAGE_MAXIMUM (Button 3)
0x15, 0x00, // LOGICAL_MINIMUM (0)
0x25, 0x01, // LOGICAL_MAXIMUM (1)
0x95, 0x03, // REPORT_COUNT (3)
0x75, 0x01, // REPORT_SIZE (1)
0x81, 0x02, // INPUT (Data,Var,Abs)
0x95, 0x01, // REPORT_COUNT (1)
0x75, 0x05, // REPORT_SIZE (5)
0x81, 0x03, // INPUT (Cnst,Var,Abs)
0x05, 0x01, // USAGE_PAGE (Generic Desktop)
0x09, 0x30, // USAGE (X)
0x09, 0x31, // USAGE (Y)
0x15, 0x81, // LOGICAL_MINIMUM (-127)
0x25, 0x7f, // LOGICAL_MAXIMUM (127)
0x75, 0x08, // REPORT_SIZE (8)
0x95, 0x02, // REPORT_COUNT (2)
0x81, 0x06, // INPUT (Data,Var,Rel)
0xc0, // END_COLLECTION
0xc0 // END_COLLECTION
My UsageId is the first Usage Hex value in the report descriptor I believe (I am still a little confused too). My UsagePage is the hex values in the first Usage_Page in the report descriptor.
Note: the problem with the VB.NET code is that it returns 0 on the count above which means it did not find a device using my criteria.
Once you eliminate the impossible, whatever remains, no matter how improbable, must be the truth. - Sherlock Holmes. speak softly and carry a big stick - theodore roosevelt. Fear leads to anger, anger leads to hate, hate leads to suffering - Yoda. Blog -
http://www.computerprofessions.us
I forgot anyone wanting a picture of what the device hierarchy looks like in control panel here it is (HID compliant vendor device is the first one in the report descriptor above I want to access and then the mouse device): 
Once you eliminate the impossible, whatever remains, no matter how improbable, must be the truth. - Sherlock Holmes. speak softly and carry a big stick - theodore roosevelt. Fear leads to anger, anger leads to hate, hate leads to suffering - Yoda. Blog -
http://www.computerprofessions.us