1：
on error resume next
MSComm1.PortOpen = True
if err.number=0 then
MSComm1.PortOpen = false
elseif err.number = comPortOpen then
debug.print "端口已打开"
else
debug.print "其它错误"
end if
2：
shell("netstat -na >c:\netstat.txt")
'然后读文件c:\netstat.txt判断
试着打开一下，看出不出错。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024