VB自动添加电脑现有的串口号

一般情况下，列出16个串口号，供用户自己选择，代码如下：

'添加通信端口号
For i = 1 To 16
Combo1.AddItem "COM" & i
Next i
Combo1.ListIndex = 0

效果如下图所示：

需要用哪个串口，就选哪个。

如果需要只列出电脑现在存在的串口号，可以用下面程序解决：

 Dim i, j As Integer
 j = 0
 For i = 1 To 16
 MSComm1.CommPort = i
 On Error Resume Next
 MSComm1.PortOpen = True
 If Err.Number = 0 Then
 j = j + 1
 Combo1.AddItem "COM" & CStr(i)
 End If
 MSComm1.PortOpen = False
 Next i

 Combo1.ListIndex = 0

打开软件后，只会显示电脑现在已经存在的串口号，效果如下图所示：