El Bruno

1 #Region "USB Product Details"
2 
3   ' define USB Product and Vendor Id
4   Private usbVendorID As Int16 = Convert.ToInt16(Val("&h4400"))
5   Private usbProductID As Int16 = Convert.ToInt16(Val("&h514"))
6 
7 #End Region

 1       memberIndex = 0
 2       Do
 3 
 4         ' Creates a handle to get and compare information for the search of the specified device
 5         hidHandle = CreateFile(devicePathName(memberIndex), 0, FILE_SHARE_READ Or FILE_SHARE_WRITE, Nothing, OPEN_EXISTING, 0, 0)
 6 
 7         If Not (hidHandle.IsInvalid) Then
 8 
 9           ' The returned handle is valid, check for the product and vendor
10           MyHid.DeviceAttributes.Size = Marshal.SizeOf(MyHid.DeviceAttributes)
11 
12           ' get device information to check for the Product and Vendor ID
13           success = HidD_GetAttributes(hidHandle, MyHid.DeviceAttributes)
14 
15           deviceFound = False
16           If success Then
17             ' Find out if the device matches the one we're looking for.
18             If (MyHid.DeviceAttributes.VendorID = usbVendorID) And (MyHid.DeviceAttributes.ProductID = usbProductID) Then
19               deviceFound = True
20               ' Save the DevicePathName for OnDeviceChange().
21               myDevicePathName = devicePathName(memberIndex)
22             Else
23               ' It's not a match, so close the handle.
24               hidHandle.Close()
25             End If
26           Else
27             ' There was a problem in retrieving the information.
28             hidHandle.Close()
29           End If
30 
31         End If
32 
33         ' Keep looking until we find the device or there are no devices left to examine.
34         memberIndex = memberIndex + 1
35       Loop Until (deviceFound Or (memberIndex = devicePathName.Length))
36 
37       ' The device was detected. Register to receive notifications if the device is removed or attached. 
38       success = MyDeviceManagement.RegisterForDeviceNotifications(myDevicePathName, _parentForm.Handle, hidGuid, deviceNotificationHandle)
39 
40       ' Learn the capabilities of the device.
41       MyHid.Capabilities = MyHid.GetDeviceCapabilities(hidHandle)
42 
43       If success Then
44         ' Find out if the device is a system mouse or keyboard.
45         hidUsage = MyHid.GetHidUsage(MyHid.Capabilities)
46 
47         ' Get the Input report buffer size.
48         _inputReportBufferSize = GetInputReportBufferSize()
49 
50         ' Get handles to use in requesting Input and Output reports.
51         readHandle = CreateFile(myDevicePathName, GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, Nothing, OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0)
52 
53         If readHandle.IsInvalid Then
54           exclusiveAccess = True
55         Else
56           writeHandle = CreateFile(myDevicePathName, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, Nothing, OPEN_EXISTING, 0, 0)
57           ' Flush any waiting reports in the input buffer. (optional)
58           MyHid.FlushQueue(readHandle)
59         End If
60       End If

 1 #Region "Byte Action Constants"
 2 
 3   ' byte actions
 4   Public usbMissileStop() As Byte = {0, 0}
 5   Public usbMissileMoveUp() As Byte = {0, 2}
 6   Public usbMissileMoveDown() As Byte = {0, 1}
 7   Public usbMissileMoveLeft() As Byte = {0, 4}
 8   Public usbMissileMoveRight() As Byte = {0, 8}
 9   Public usbMissileReset() As Byte = {0, 83}
10   Public usbMissileFire() As Byte = {0, 99}
11 
12 #End Region
13 

1         ' Set the size of the Output report buffer (array begins at index 0)
2         ReDim outputReportBuffer(MyHid.Capabilities.OutputReportByteLength - 1)
3 
4         ' Store the report ID in the first byte of the buffer:
5         outputReportBuffer = buffer
6 
7         ' Use WriteFile to send the report. If the HID has an interrupt OUT endpoint, WriteFile uses an interrupt transfer to send the report. If not, WriteFile uses a control transfer.
8         Dim myOutputReport As New Hid.OutputReportViaInterruptTransfer
9         success = myOutputReport.Write(outputReportBuffer, writeHandle)