ÇëÎÊ VB¹ØÓÚUSBÒ첽ͨÐÅ

ÈçÌâ Çë½Ì´ó¼ÒÈçºÎʵÏÖ£¿ÓÐûÓÐÏà¹Ø×ÊÁÏ

---

лл¥ÉϵÄ
ÎÒµ÷ÓÃcreatfile
readfile
writefile
µÈº¯Êý¿ÉÒÔʵÏÖͬ²½Í¨ÐŶÔÉ豸µÄ·ÃÎÊ£¬µ«ÊÇÒ첽ͨОͲ»ÄܽÓÊÕµ½ÏÂλ»ú´«Ë͵ÄÊý¾Ý
ÓÐûÓÐÈËÄÜÌṩһ¸ö¹ØÓÚÒ첽ͨÐŵĽâ¾ö·½°¸°¡

---

¸½ÉÏ´úÂëVB code:

Function FindTheHid() 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 Count As Integer
Dim GUIDString As String
Dim HidGuid As GUID
Dim MemberIndex As Long

LastDevice = False
MyDeviceDetected = False


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


DeviceInfoSet = SetupDiGetClassDevs _
(HidGuid, _
vbNullString, _
0, _
(DIGCF_PRESENT Or DIGCF_DEVICEINTERFACE))