如何检测串口的数量，和某个串口是否已被占用？

[park99]

我用mscomm控件作串口编程，发现计算机的串口数量并不一定是两个，而且用控件好像不可也获得：某个串口是否已被占用。所以程序有可能出错。请教！

[TechnoFantasy]

获得计算机中可用的端口的名称（包括并口、串口等）:

http://www.applevb.com/sourcecode/getavport.zip

[nik_Amis]

up

[dongge2000]

kk

[park99]

好想不准，我的机器没有com3,com4,但它也检测出来了。还有如何检测串口已被占用？

[hhjjhjhj]

Private Sub Command1_Click()
On Error Resume Next
For i = 1 To 5
Me.MSComm1.CommPort = i
Me.MSComm1.PortOpen = True
If Err.Number <> 0 Then
MsgBox i & "号端口: " & Err.Description
Else
MsgBox i & "号端口: 可用"
End If
Me.MSComm1.PortOpen = False
Err.Clear
Next i
End Sub


Private Sub Command2_Click()
'用于测试端口打开
Me.MSComm2.CommPort = 2
Me.MSComm2.PortOpen = True
End Sub

[RUKYO]

关注