VB中如何使用USB的串口?

Question

我想需要使用到USB的串口,但是直接使用
i = GetObject("winmgmts:\\.\root\cimv2:Win32_SerialPort").Instances_.Count '只能得到真实的串口数,不能得到USB和其它虚拟的串口数,就算我知道USB串口是4,用
MSComm1.CommPort = 4
MSComm1.PortOpen = True
得到的也是无效的串口号,新手求教如何才能找到和使用USB串口?谢谢!

Answer 1

估计只能使用枚举，+测试Private Sub OpenCommPort()
    Dim i As Long
    On Error GoTo errhandler
    With MSComm1
        .Settings = "...."
        For i = 1 To MaxPort
            .CommPort = i
            .PortOpen = True
            '发送特征数据进行测试，判断是否你要的端口（事实上，别的方法也是需要）
            Exit Sub
nextport:
        Next
    End With
    Exit Sub
errhandler:
    If Err.Number = 无效端口错误 Then
        Resume nextport
    End If
End Sub