Hi,
I have been trying things in vb.net and vb6 to get something to work.
I have a device connected to the PC that is streaming in USB data all the time.
Belo is the find the hid program I modified it slightly just to put all the code in one place.
It keeps returning from readfile (at the end) with a 0 though everything looks good.
Function FindTheHid(ChngMssg As Boolean) As Boolean
'Makes a series of API calls to locate the desired HID-class device.
'Returns True if the device is detected, False if not detected.
Dim buff(128) As Byte
Dim Count As Integer
Dim GUIDString As String
Dim ResultsString As String
Dim ProdIdString As String
Dim HidGuid As GUID
Dim MemberIndex As Long
Dim myDev As Boolean
Dim StrIndx As Long
Dim numBytesRead As Long
Dim TmpProdId As Integer
Dim xitDevSetUpLp As Boolean
Dim CypressVidFound As Boolean
Dim myDeviceDetectedLcl As Boolean
Dim RecBuffer(65) As Byte
Dim rdNum As Long
Dim error As String
CypressVidFound = False
myDev = False
DeviceConnected = True
LastDevice = False
myDeviceDetectedLcl = False
'If (myDeviceDetectedLcl = False) Then
'Values for SECURITY_ATTRIBUTES structure:
Security.lpSecurityDescriptor = 0
Security.bInheritHandle = True
Security.nLength = Len(Security)
ErrLevel = RET_NODEVCONN
'******************************************************************************
'HidD_GetHidGuid
'Get the GUID for all system HIDs.
'Returns: the GUID in HidGuid.
'The routine doesn't return a value in Result
'but the routine is declared as a function for consistency with the other API calls.
'******************************************************************************
CheckRev = True
Result = HidD_GetHidGuid(HidGuid)
Call DisplayResultOfAPICall("GetHidGuid")
'Display the GUID.
GUIDString = _
Hex$(HidGuid.Data1) & "-" & _
Hex$(HidGuid.Data2) & "-" & _
Hex$(HidGuid.Data3) & "-"
For Count = 0 To 7
'Ensure that each of the 8 bytes in the GUID displays two characters.
If HidGuid.Data4(Count) >= &H10 Then
GUIDString = GUIDString & Hex$(HidGuid.Data4(Count)) & " "
Else
GUIDString = GUIDString & "0" & Hex$(HidGuid.Data4(Count)) & " "
End If
Next Count
' lstResults.AddItem " GUID for system HIDs: " & GUIDString
'******************************************************************************
'SetupDiGetClassDevs
'Returns: a handle to a device information set for all installed devices.
'Requires: the HidGuid returned in GetHidGuid.
'******************************************************************************
DeviceInfoSet = SetupDiGetClassDevs _
(HidGuid, _
vbNullString, _
0, _
(DIGCF_PRESENT Or DIGCF_DEVICEINTERFACE))
Call DisplayResultOfAPICall("SetupDiClassDevs")
DataString = GetDataString(DeviceInfoSet, 32)
'******************************************************************************
'SetupDiEnumDeviceInterfaces
'On return, MyDeviceInterfaceData contains the handle to a
'SP_DEVICE_INTERFACE_DATA structure for a detected device.
'Requires:
'the DeviceInfoSet returned in SetupDiGetClassDevs.
'the HidGuid returned in GetHidGuid.
'An index to specify a device.
'******************************************************************************
'Begin with 0 and increment until no more devices are detected.
MemberIndex = 0
Do
'The cbSize element of the MyDeviceInterfaceData structure must be set to
'the structure's size in bytes. The size is 28 bytes.
MyDeviceInterfaceData.cbSize = LenB(MyDeviceInterfaceData)
Result = SetupDiEnumDeviceInterfaces _
(DeviceInfoSet, _
0, _
HidGuid, _
MemberIndex, _
MyDeviceInterfaceData)
Call DisplayResultOfAPICall("SetupDiEnumDeviceInterfaces")
If Result = 0 Then LastDevice = True
'If a device exists, display the information returned.
If Result <> 0 Then
'******************************************************************************
'SetupDiGetDeviceInterfaceDetail
'Returns: an SP_DEVICE_INTERFACE_DETAIL_DATA structure
'containing information about a device.
'To retrieve the information, call this function twice.
'The first time returns the size of the structure in Needed.
'The second time returns a pointer to the data in DeviceInfoSet.
'Requires:
'A DeviceInfoSet returned by SetupDiGetClassDevs and
'an SP_DEVICE_INTERFACE_DATA structure returned by SetupDiEnumDeviceInterfaces.
'*******************************************************************************
MyDeviceInfoData.cbSize = Len(MyDeviceInfoData)
Result = SetupDiGetDeviceInterfaceDetail _
(DeviceInfoSet, _
MyDeviceInterfaceData, _
0, _
0, _
Needed, _
0)
DetailData = Needed
Call DisplayResultOfAPICall("SetupDiGetDeviceInterfaceDetail")
'Store the structure's size.
MyDeviceInterfaceDetailData.cbSize = _
Len(MyDeviceInterfaceDetailData)
'Use a byte array to allocate memory for
'the MyDeviceInterfaceDetailData structure
ReDim DetailDataBuffer(Needed)
'Store cbSize in the first four bytes of the array.
Call RtlMoveMemory _
(DetailDataBuffer(0), _
MyDeviceInterfaceDetailData, _
4)
'Call SetupDiGetDeviceInterfaceDetail again.
'This time, pass the address of the first element of DetailDataBuffer
'and the returned required buffer size in DetailData.
Result = SetupDiGetDeviceInterfaceDetail _
(DeviceInfoSet, _
MyDeviceInterfaceData, _
VarPtr(DetailDataBuffer(0)), _
DetailData, _
Needed, _
0)
Call DisplayResultOfAPICall(" Result of second call: ")
'Convert the byte array to a string.
DevicePathName = CStr(DetailDataBuffer())
'Convert to Unicode.
DevicePathName = StrConv(DevicePathName, vbUnicode)
'Strip cbSize (4 bytes) from the beginning.
DevicePathName = Right$(DevicePathName, Len(DevicePathName) - 4)
'******************************************************************************
'CreateFile
'Returns: a handle that enables reading and writing to the device.
'Requires:
'The DevicePathName returned by SetupDiGetDeviceInterfaceDetail.
'******************************************************************************
' open as overlapped so we can timeout when not getting a response
HIDHandle = CreateFile _
(DevicePathName, _
GENERIC_READ Or GENERIC_WRITE, _
FILE_SHARE_READ Or FILE_SHARE_WRITE, _
Security, _
OPEN_EXISTING, _
FILE_ATTRIBUTE_NORMAL, _
0)
Call DisplayResultOfAPICall("CreateFile")
'lstResults.AddItem " Returned handle: " & Hex$(HIDHandle) & "h"
If (HIDHandle = &HFFFFFFFF) Then
'lstResults.AddItem "Searching through additional HID's on this root hub controller"
GoTo cont1
End If
'Now we can find out if it's the device we're looking for.
'******************************************************************************
'HidD_GetAttributes
'Requests information from the device.
'Requires: The handle returned by CreateFile.
'Returns: an HIDD_ATTRIBUTES structure containing
'the Vendor ID, Product ID, and Product Version Number.
'Use this information to determine if the detected device
'is the one we're looking for.
'******************************************************************************
'Set the Size property to the number of bytes in the structure.
DeviceAttributes.Size = LenB(DeviceAttributes)
Result = HidD_GetAttributes _
(HIDHandle, _
DeviceAttributes)
If ((DeviceAttributes.VendorID <> MyVendorID) And (DeviceAttributes.VendorID <> MYVENDORID2)) Then
'Close HIDHandle
GoTo cont1
End If
Call DisplayResultOfAPICall("HidD_GetAttributes")
' this takes care of a little jumper issue on the RX that made the RX use the ADV7162 with the PLL
ProdIdString = " Product ID: " & Hex$(DeviceAttributes.ProductID)
TmpProdId = DeviceAttributes.ProductID
Do
xitDevSetUpLp = True
Select Case TmpProdId
Case ST_SYSAUDIT
ResultsString = "Logical System Auditor Attached."
myDev = True
' Result = ReadFile _
' (HIDHandle, _
' RecBuffer(0), _
' CLng(Capabilities.InputReportByteLength), _
' rdNum, _
' Null)
Case Else
' On Error GoTo handlebad
' Close HIDHandle
handlebad: If ((LastDevice = True) And (ChngMssg = False)) Then
'lstResults.AddItem "Either there is no properly functioning Logical Device attached or this software does not support your device"
'lstResults.AddItem "Please Call Logical Solutions at (203) 783 9929"
End If
End Select
Loop Until xitDevSetUpLp = True
'Find out if the device matches the one we're looking for.
If myDev = True Then
'It's the desired device.
'lstResults.AddItem " My device detected"
myDeviceDetectedLcl = True
Else
myDeviceDetectedLcl = False
'If it's not the one we want, close its handle.
Result = CloseHandle _
(HIDHandle)
HIDHandle = 0
DisplayResultOfAPICall ("CloseHandle")
End If
End If
'Keep looking until we find the device or there are no more left to examine.
cont1: MemberIndex = MemberIndex + 1
If myDeviceDetectedLcl = True Then
Call GetDeviceCapabilities
If (Capabilities.FeatureReportByteLength < 65) Then
myDeviceDetectedLcl = False
myDev = False
End If
End If
Loop Until (LastDevice = True) Or (myDeviceDetectedLcl = True)
'Free the memory reserved for the DeviceInfoSet returned by SetupDiGetClassDevs.
Result = SetupDiDestroyDeviceInfoList _
(DeviceInfoSet)
Call DisplayResultOfAPICall("DestroyDeviceInfoList")
If myDeviceDetectedLcl = True Then
FindTheHid = True
Result = CloseHandle(HIDHandle)
error = GetErrorString(Err.LastDllError)
'Learn the capabilities of the device
Call GetDeviceCapabilities
' 'Get another handle for the overlapped ReadFiles.
ReadHandle = CreateFile _
(DevicePathName, _
(GENERIC_READ), _
(FILE_SHARE_READ Or FILE_SHARE_WRITE), _
Security, _
OPEN_EXISTING, _
FILE_ATTRIBUTE_NORMAL, _
0)
DoEvents
RecBuffer(4) = 0
RecBuffer(5) = 0
Result = ReadFile _
(ReadHandle, _
RecBuffer(0), _
CLng(Capabilities.InputReportByteLength), _
rdNum, _
Null)
Call DisplayResultOfAPICall("CreateFile, ReadHandle")
'lstResults.AddItem " Returned handle: " & Hex$(ReadHandle) & "h"
Else
DeviceConnected = False
End If
MyDeviceDetected = myDeviceDetectedLcl
If myDeviceDetectedLcl = True Then FindTheHid = True
End Function
