大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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判断
有个方法可以试一下,加载一个winsock控件
On Error Resume Next
Winsock1.Bind 1234 '测试1234端口
if Err=0 then msgbox "1234端口现在可用"
打开命令窗口输入指令就可以看到。
1、打开命令窗口(以管理员身份运行),开始—-运行—-cmd,或者是window+R组合键,调出命令窗口。
2、查找所有运行的端口,输入命令:netstat-ano
3、查看被占用端口对应的PID,输入命令:netstat-aon|findstr"8081"
4、查看指定PID的进程,继续输入命令:tasklist|findstr"9088"
结束进程,强制(/F参数)杀死pid为9088的所有进程包括子进程(/T参数):taskkill/T/F/PID9088