串口个数怎么查？

Question

各位大哥，小弟初学VB，用VB做个小程序，想查下一台电脑上总共有多少个COM口，我在网上找了个程序，如下：Dim i, j As Integer
Private Sub Command1_Click()
  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
       Else
         MSComm1.PortOpen = False
      End If
  Next i
  Label1.Caption = "您计算机上的串口数： " & j & "个"
End SubPrivate Sub Command2_Click()
  End
End Sub
工控机明明是6个串口，最后结果却是3个，不止到为什么，你看我的程序那出错了，或者用什么状态判断（MSCOMM）。谢谢1

Answer 1

直接查注册表: HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM，里面列出的是目前能用的所有串口设备名和串口号。

Answer 2

用VB怎么查呢，秀峰大哥，可以说点详细写吗？或者写个例子。我的目的是想查下那个COM正在被用

Answer 3

网上有很多关于COM口控制的例子及源码....

Answer 4

可以联系我
   [email protected]