请问如何得到本机串口的数量

Question

我想得到本机串口的数量和编号
谢谢

Answer 1

使用 Microsoft Comm Control 6.0
在窗体上添加 MSComm 控件和 CommandButton
Private Sub Command1_Click()
    Dim i As Long
    With MSComm1
        For i = 1 To 16
            .CommPort = i
            .Settings = "9600,N,8,1"
            .InputLen = 0
            On Error Resume Next
            .PortOpen = True
            If Err.Number = 0 Then Debug.Print "COM" & i & " 可用"
            .PortOpen = False
            On Error GoTo 0
        Next
    End With
End Sub

Answer 2

读取注册表,列出所有的串口
HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM