打开COM口时提示：端口已打开，请问该怎么解决！

来源：百度知道 编辑：UC知道 时间：2024/05/26 03:57:01
Private Sub Form_Load()
If MSComm1.PortOpen = True Then
MSComm1.InBufferCount = 0
MSComm1.PortOpen = False
End If
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 0
MSComm1.InputLen = 1
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
End Sub

Timer1的Interval属性我设置的是1
以上代码我在本机上调试通过了的
但只要一移植到另一台电脑上,执行到MSComm1.PortOpen = True这一行时就会出错，提示是"实时错误8005，端口已打开"，请教一下该怎么解决？

补充一下：我使用的是COM1口，并且没有其它任何程序占用该COM口~~

LZ在CSDN发贴没获得满意答复，又到BAIDU发问，我看难以解决。
可能有问题的机器主板物理COM口电路坏导致。

每个机器COM口配置不一样
现在的电脑很多根本就没配COM口
你要做个COM口选择，让客户根据自己的电脑配置自行选择
具体在设备管理器里看看便知