COM端口检测

Question

请教各位高手，我要用软件检测本机电脑的端口哪个是开着的？比如：我电脑COM1开着的，打开软件它会自动定位到COM1，（软件中Combo自动跳转到COM1），如果电脑COM4是开着的，打开软件它将自动定位到COM4，要如何实现，请各位高手赐教，谢谢！

Answer 1

com口开着的概念是什么
应该是
1.是否存在
2.是否被占用所以你首先要去确认有哪些串口
然后再去遍历看哪个未被占用

Answer 2

On Error resume next
err.clear
  Dim i%
  For i = 1 to 16    '检测COM1到COM16通讯口
    MSComm1.Port = i
    MSCOmm1.Settings = "9600,N,8,1"
    MSComm1.PortOpen = True   
    if err.number>0 then
          err.clear
    else
          exit for
    end if            
  Next

Answer 3

MSComm1.PortOpen本身就是一个boolean型吧，if MSComm1.PortOpen then不行吗？

Answer 4

怎么跟Combo控件联系起来呢？

Answer 5

zq972好象MSComm1没有Port这个属性，只有PortOpen这个属性啊！