- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何用程序代码判断所处局域网80端口已打开 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98382)
-- 发布时间：2017/3/29 7:08:00
-- 如何用程序代码判断所处局域网80端口已打开
如何用程序代码判断电脑所处局域网的http服务器80端口是否已打开？
-- 发布时间：2017/3/29 8:57:00
--
参考：
-- 发布时间：2017/3/29 11:08:00
--
试一下当连续运行两次时提示下面错误，原来目的是想当80端口已经打开时就不运行下面代码
HttpServer.Prefixes.Add("http://127.0.0.1/")
此主题相关图片如下：未命名.jpg
-- 发布时间：2017/3/29 11:29:00
--
不好意思，没有认真看帮助，经实验下面代码，在窗口运行时可以较好解决，但一放在AfterOpenProject的时候，问题并没有得到解决，这是什么原因，有没有更好办法解决这问题？
try \'测试连接80端口
HttpServer.Prefixes.Add("http://127.0.0.1/")
HttpServer.Start()
catch ex As exception \'当系统提示错误时 \'
Return Nothing
End try
-- 发布时间：2017/3/29 12:29:00
--
楼上的代码在窗口运行时可以较好解决，但一放在AfterOpenProject的时候，问题并没有得到解决，这是什么原因，有没有更好办法解决这问题？
-- 发布时间：2017/3/29 12:40:00
--
代码没问题的啊
try
HttpServer.Prefixes.Add("http://127.0.0.1/")
HttpServer.Start()
catch ex As exception \'当系统提示错误时 \'
Return
End try
-- 发布时间：2017/3/29 13:01:00
--
把代码放在afteropenproject项目事件中，当同一项目连续打开两个时，第二个打开项目就会报错，大致是80端口被占用。
此主题相关图片如下：未命名.jpg
-- 发布时间：2017/3/29 14:44:00
--
不能沉底。
-- 发布时间：2017/3/29 15:01:00
--
不理解你说什么。
你写了什么代码，怎么操作，提示什么错误？
-- 发布时间：2017/3/29 15:14:00
--
下面的代码在命令窗口连续运行几次都不提示错误；把它放在afteropenproject项目事件中，当这个项目被连续打开两个以上时（即故意在同一台电脑，将同一个项目，同时打开两个以上时），从第二个打开项目开始就会报错，报错的图片如上图所示。
try \'测试连接80端口
HttpServer.Prefixes.Add("http://127.0.0.1/")
HttpServer.Start()
catch ex As exception \'当系统提示错误时 \'
Return Nothing
End try