VB6用定时器查询的方式实现与USB设备通讯慢，如何解决？

[哟哟咕咕]

Public Sub WriteReport()
    result = WriteFile(HidDevice, SendBuffer(0), 65, 0, 0)
End Sub



Public Sub tmrDelay_Timer()
    Timeout = True
    SetHosMsg.tmrDelay = False
End Sub

Public Sub ReadReport()
    result = ReadFile(HidDevice, ReadBuffer(0), 65, 0, 0)
End Sub

Public Sub VBtoUSB()
    Call WriteReport   '发送
    
    Timeout = False
    SetHosMsg.tmrDelay.Interval = 5
    SetHosMsg.tmrDelay.Enabled = True
    Do
        DoEvents
    Loop While Timeout = True
    
    Call ReadReport   '接收
End Sub

借鉴了别人的程序，调用了API来实现与下位机USB通讯。
我现在是用VB中tmr定时器，以1ms的速度（VB6定时间最小1ms）去查询USB设备，但是调试到一条指令下发至返回有64ms!!!!!!一直找不到哪里花去了这么多时间。注：USB设备是STM32F103，以PLL/1.5的速度来描述USB速度，可以说肯定可以保证VB6中1ms的速度。

[哟哟咕咕]

Public Sub ConnectRMC()              '查找及打开设备
    Dim HidGuid As GUID
    Dim DeviceInfoSet As Long
    Dim MemberIndex As Long
    Dim result As Long
    Dim Needed As Long
    Dim DetailData As Long
    Dim PreparsedData As Long
    Dim DetailDataBuffer() As Byte
    Dim DevicePathName As String
    
    Dim LastDevice As Boolean
    Dim MyDeviceDetected As Boolean
    
    LastDevice = False
    MyDeviceDetected = False
    
    result = HidD_GetHidGuid(HidGuid)
    DeviceInfoSet = SetupDiGetClassDevs(HidGuid, 0, 0, (DIGCF_PRESENT Or DIGCF_DEVICEINTERFACE))
    'DataString = GetDataString(DeviceInfoSet, 32)
    
    MemberIndex = 0
    
    For MemberIndex = 0 To 10
        MyDeviceInterfaceData.cbSize = LenB(MyDeviceInterfaceData)
        result = SetupDiEnumDeviceInterfaces(DeviceInfoSet, 0, HidGuid, MemberIndex, MyDeviceInterfaceData)
    
        If result = 0 Then LastDevice = True
    
        If result <> 0 Then
            MyDeviceInfoData.cbSize = Len(MyDeviceInfoData)
            result = SetupDiGetDeviceInterfaceDetail(DeviceInfoSet, MyDeviceInterfaceData, 0, 0, Needed, 0)
            DetailData = Needed

            MyDeviceInterfaceDetailData.cbSize = Len(MyDeviceInterfaceDetailData)
            ReDim DetailDataBuffer(Needed)

            Call RtlMoveMemory(DetailDataBuffer(0), MyDeviceInterfaceDetailData, 4)
            
            result = SetupDiGetDeviceInterfaceDetail(DeviceInfoSet, MyDeviceInterfaceData, VarPtr(DetailDataBuffer(0)), DetailData, Needed, 0)
            
            DevicePathName = CStr(DetailDataBuffer())
            DevicePathName = StrConv(DevicePathName, vbUnicode)
            DevicePathName = Right$(DevicePathName, Len(DevicePathName) - 4)
            
            HidDevice = CreateFile(DevicePathName, GENERIC_READ Or GENERIC_WRITE, (FILE_SHARE_READ Or FILE_SHARE_WRITE), 0, OPEN_EXISTING, 0, 0)  '打开设备DevicePathName 是由 SetupDiGetDeviceInterfaceDetail返回的
            
            If HidDevice <> INVALID_HANDLE_VALUE Then
                DeviceAttributes.Size = LenB(DeviceAttributes)
                result = HidD_GetAttributes(HidDevice, DeviceAttributes)    '获取设备VendorID和ProductID
                result = CloseHandle(HidDevice)
                If result <> 0 And DeviceAttributes.VendorID = MyVendorID And DeviceAttributes.ProductID = MyProductID And DeviceAttributes.VersionNumber = MyVersionNumber Then
                    HidDevice = CreateFile(DevicePathName, GENERIC_READ Or GENERIC_WRITE, (FILE_SHARE_READ Or FILE_SHARE_WRITE), 0, OPEN_EXISTING, 0, 0)
                    If HidDevice <> INVALID_HANDLE_VALUE Then
                        MyDeviceDetected = True
                        Exit For
                    'Else
                        'MsgBox ("再次打开失败")
                    End If
                Else
                    'MsgBox ("管理平台与设备无法匹配")
                End If
            Else
                'MsgBox ("打开设备失败")
            End If
        End If
    Next MemberIndex
        
    If MyDeviceDetected = True Then
        FindTheHid = True
        'MsgBox ("设备连接正常")
        Exit Sub
    Else
        FindTheHid = False
        'MsgBox ("无法找到设备")
    End If
End Sub

这是打开USB设备，及调用的一些API，没发现哪里有设备USB速度问题，怎么会跑这么慢呢？

[贝隆]

这个得研究一二。

[哟哟咕咕]

[Quote=引用 2 楼 的回复:]
这个得研究一二。
[/Quote]

要研究呀？就是很少人这来实现与USB设备（下位机）通讯？

有什么其它方法可以实现不？简单地说就是：USB设备（下位机）收到数据住PC的USB（上位机）发送数据。

[of123]

是 HID 设备？

不需要都用延时。

如果接收返回错误，可能是下位机来不及应答，此时再延时后重复接收。

另外，我一般是用下面一组 API:

Public Declare Function ConnectToUSBHIDDevice Lib "HS32U2_HID.dll" (ByVal vid As Integer, ByVal pid As Integer, ByVal version As Integer) As Long
Public Declare Sub CloseUSBHIDDevice Lib "HS32U2_HID.dll" (ByVal hDev As Long)

Public Declare Function SetFeatureToUSBHIDDevice Lib "HS32U2_HID.dll" (ByVal hDev As Long, ByRef buff As Byte, ByVal datalength As Long) As Long
Public Declare Function GetFeatureFromUSBHIDDevice Lib "HS32U2_HID.dll" (ByVal hDev As Long, ByRef buff As Byte, ByVal datalength As Long) As Long

Public Declare Function GetFeatureLength Lib "HS32U2_HID.dll" (ByVal hDev As Long) As Long

SetFeature 相当于 WriteReport；GetFeature 相当于 ReadReport。

[of123]

是 HID 设备？

不需要都用延时。

如果接收返回错误，可能是下位机来不及应答，此时再延时后重复接收。

另外，我一般是用下面一组 API:

Public Declare Function ConnectToUSBHIDDevice Lib "HS32U2_HID.dll" (ByVal vid As Integer, ByVal pid As Integer, ByVal version As Integer) As Long
Public Declare Sub CloseUSBHIDDevice Lib "HS32U2_HID.dll" (ByVal hDev As Long)

Public Declare Function SetFeatureToUSBHIDDevice Lib "HS32U2_HID.dll" (ByVal hDev As Long, ByRef buff As Byte, ByVal datalength As Long) As Long
Public Declare Function GetFeatureFromUSBHIDDevice Lib "HS32U2_HID.dll" (ByVal hDev As Long, ByRef buff As Byte, ByVal datalength As Long) As Long

Public Declare Function GetFeatureLength Lib "HS32U2_HID.dll" (ByVal hDev As Long) As Long

SetFeature 相当于 WriteReport；GetFeature 相当于 ReadReport。