USB HID通讯的例子，VB.net下使用

Imports System.ComponentModel

Imports System.Collections.Generic

Imports System.IO

Imports System.Runtime.InteropServices

Imports System.Management

Imports Microsoft.VisualBasic

Imports System.Data

Imports System.Windows.Forms

Public Class Form1

Dim HID_Handle As Integer

Public Enum DIGCF

DIGCF_DEFAULT = &H1

DIGCF_PRESENT = &H2

DIGCF_ALLCLASSES = &H4

DIGCF_PROFILE = &H8

DIGCF_DEVICEINTERFACE = &H10

End Enum

Structure SP_DEVICE_INTERFACE_DATA

Public cbSize As Integer

Public interfaceClassGuid As Guid

Public flags As Integer

Public reserved As Integer

End Structure

<StructLayout(LayoutKind.Sequential)> _

Public Class SP_DEVINFO_DATA

Public cbSize As Integer = Marshal.SizeOf(GetType(SP_DEVINFO_DATA))

Public classGuid As Guid = Guid.Empty

Public devInst As Integer = 0

Public reserved As Integer = 0

End Class

<StructLayout(LayoutKind.Sequential, Pack:=2)> _

Protected Structure SP_DEVICE_INTERFACE_DETAIL_DATA

Public cbSize As Integer

Public devicePath As Short

End Structure

Public Declare Function HidD_GetHidGuid Lib "hid.dll" Alias "HidD_GetHidGuid" (ByRef HidGuid As Guid) As Integer

Public Declare Function SetupDiGetClassDevs Lib "setupapi.dll" Alias "SetupDiGetClassDevsA" (ByRef ClassGuid As Guid, ByVal Enumerator As UInteger, ByVal HwndParent As IntPtr, ByVal Flags As DIGCF) As IntPtr

Public Declare Function SetupDiEnumDeviceInterfaces Lib "setupapi.dll" Alias "SetupDiEnumDeviceInterfaces" (ByVal hDevInfo As IntPtr, ByVal devInfo As IntPtr, ByRef interfaceClassGuid As Guid, ByVal memberIndex As UInteger, ByRef deviceInterfaceData As
SP_DEVICE_INTERFACE_DATA) As Boolean

Public Declare Function SetupDiGetDeviceInterfaceDetail Lib "setupapi.dll" Alias "SetupDiGetDeviceInterfaceDetailA" (ByVal deviceInfoSet As IntPtr, ByRef deviceInterfaceData As SP_DEVICE_INTERFACE_DATA, ByVal deviceInterfaceDetailData As IntPtr, ByVal deviceInterfaceDetailDataSize
As Integer, ByRef requiredSize As Integer, ByVal deviceInfoData As SP_DEVINFO_DATA) As Boolean

Public Declare Function WriteFile Lib "Kernel32.dll" Alias "WriteFile" (ByVal hFile As Integer, ByVal lpBuffer() As Byte, ByVal nNumberOfBytesToWrite As UInteger, ByRef lpNumberOfBytesWritten As UInteger, ByVal lpOverlapped As IntPtr) As Boolean

Public Declare Function CreateFile Lib "Kernel32.dll" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As UInteger, ByVal dwShareMode As UInteger, ByVal lpSecurityAttributes As UInteger, ByVal dwCreationDisposition As UInteger, ByVal
dwFlagsAndAttributes As UInteger, ByVal hTemplateFile As UInteger) As Integer

Public Declare Function ReadFile Lib "Kernel32.dll" Alias "ReadFile" (ByVal hFile As IntPtr, ByVal lpBuffer() As Byte, ByVal nNumberOfBytesToRead As UInteger, ByRef lpNumberOfBytesRead As UInteger, ByVal lpOverlapped As IntPtr) As Boolean REM 黍?扢掘恅璃

Public Declare Function HidD_FreePreparsedData Lib "hid.dll" Alias "HidD_FreePreparsedData" (ByRef PreparsedData As IntPtr) As Boolean REM 庋溫扢掘

Public Declare Function CloseHandle Lib "kernel32.dll" Alias "CloseHandle" (ByVal hObject As Integer) As Integer REM 壽敕溼恀扢掘曆梟

Dim guidHID As Guid = Guid.Empty

Dim classguidhid As Guid = Guid.Empty

Dim hDevInfo As IntPtr

Public Const GENERIC_READ As UInteger = &H80000000&

Public Const GENERIC_WRITE As UInteger = &H40000000

Public Const FILE_SHARE_READ As UInteger = &H1

Public Const FILE_SHARE_WRITE As UInteger = &H2

Public Const OPEN_EXISTING As UInteger = 3

Public Function UsBInitial() As Integer

HidD_GetHidGuid(guidHID)

hDevInfo = SetupDiGetClassDevs(guidHID, 0, IntPtr.Zero, DIGCF.DIGCF_PRESENT Or DIGCF.DIGCF_DEVICEINTERFACE)

Dim bufferSize As Integer = 0

Dim DeviceInterfaceData As SP_DEVICE_INTERFACE_DATA = New SP_DEVICE_INTERFACE_DATA

DeviceInterfaceData.cbSize = Marshal.SizeOf(DeviceInterfaceData)

REM 鳳?扢掘曆梟ㄛtrue鳳?善

Dim result As Boolean = SetupDiEnumDeviceInterfaces(hDevInfo, IntPtr.Zero, guidHID, 1, DeviceInterfaceData)

Dim strtInterfaceData As SP_DEVINFO_DATA = New SP_DEVINFO_DATA

REM 第一次调用会出错，但是会返回正确的 SIZE

result = SetupDiGetDeviceInterfaceDetail(hDevInfo, DeviceInterfaceData, IntPtr.Zero, 0, bufferSize, strtInterfaceData)

Dim detailDataBuffer As IntPtr = Marshal.AllocHGlobal(bufferSize)

Dim detailData As SP_DEVICE_INTERFACE_DETAIL_DATA = New SP_DEVICE_INTERFACE_DETAIL_DATA()

detailData.cbSize = Marshal.SizeOf(GetType(SP_DEVICE_INTERFACE_DETAIL_DATA))

Marshal.StructureToPtr(detailData, detailDataBuffer, False)

REM 第二次即可调用成功

result = SetupDiGetDeviceInterfaceDetail(hDevInfo, DeviceInterfaceData, detailDataBuffer, bufferSize, bufferSize, strtInterfaceData)

Dim pdevicePathName As IntPtr = CInt(detailDataBuffer) + 4 REM 鳳?扢掘繚噤

Dim devicePathName As String = Marshal.PtrToStringAuto(pdevicePathName) REM 鳳?扢掘繚噤

' MessageBox.Show(devicePathName)

Return CT_CreateFile(devicePathName) REM 蟀諉扢掘恅璃

End Function

Public Function CT_CreateFile(ByVal DeviceName As String) As Integer REM 膘蕾睿扢掘腔蟀諉

Dim HID_Handle As Integer = CreateFile(DeviceName, GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0, 3, 0, 0)

Return HID_Handle

End Function

Public Function USBDataWrite(ByVal HidHandle As Integer) As Boolean REM 跦擂CreateFile鏽善扢掘腔handle迡恅璃ㄛ甜殿隙杅擂

Dim bytesWritten As UInteger = 0

Dim buffer() As Byte = {&H2, &H2, &H0}

Dim status As Boolean = WriteFile(HID_Handle, buffer, 7, bytesWritten, IntPtr.Zero)

If status = False Then

MessageBox.Show("Write data Failed")

Return False

Else

MessageBox.Show("Write data sucsccfully")

Return True

End If

End Function

Public Sub CloseUsbHandle(ByVal HidHandle As Long)

CloseHandle(HID_Handle)

End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

HID_Handle = UsBInitial()

USBDataWrite(HID_Handle)

CloseUsbHandle(HID_Handle)

End Sub

End Class