主题：如何用程序代码判断所处局域网80端口已打开

如何用程序代码判断电脑所处局域网的http服务器80端口是否已打开？

参考：

试一下当连续运行两次时提示下面错误，原来目的是想当80端口已经打开时就不运行下面代码

 

HttpServer.Prefixes.Add("http://127.0.0.1/")

此主题相关图片如下：未命名.jpg

不好意思，没有认真看帮助，经实验下面代码，在窗口运行时可以较好解决，但一放在AfterOpenProject的时候，问题并没有得到解决，这是什么原因，有没有更好办法解决这问题？

 

try '测试连接80端口
HttpServer.Prefixes.Add("http://127.0.0.1/")
HttpServer.Start()
catch ex As exception  '当系统提示错误时   '
    Return Nothing
End try

楼上的代码在窗口运行时可以较好解决，但一放在AfterOpenProject的时候，问题并没有得到解决，这是什么原因，有没有更好办法解决这问题？

代码没问题的啊

 

try
    HttpServer.Prefixes.Add("http://127.0.0.1/")
    HttpServer.Start()
catch ex As exception  '当系统提示错误时   '
    Return
End try

把代码放在afteropenproject项目事件中，当同一项目连续打开两个时，第二个打开项目就会报错，大致是80端口被占用。
此主题相关图片如下：未命名.jpg

不能沉底。

 不理解你说什么。

 

 你写了什么代码，怎么操作，提示什么错误？

下面的代码在命令窗口连续运行几次都不提示错误；把它放在afteropenproject项目事件中，当这个项目被连续打开两个以上时（即故意在同一台电脑，将同一个项目，同时打开两个以上时），从第二个打开项目开始就会报错，报错的图片如上图所示。

 

 

try '测试连接80端口
HttpServer.Prefixes.Add("http://127.0.0.1/")
HttpServer.Start()
catch ex As exception  '当系统提示错误时   '
    Return Nothing
End try