专家坐堂-由于需要同时监测几十个别人的网站是否能打开，想弄一个网站监测工具,Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  由于需要同时监测几十个别人的网站是否能打开，想弄一个网站监测工具,  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161118)

--  作者：zhenghangbo
--  发布时间：2021/3/6 17:56:00
--  由于需要同时监测几十个别人的网站是否能打开，想弄一个网站监测工具,
由于需要同时监测几十个“别人”的网站、以及各自网站下的多个链接是否能打开，想弄一个网站监测工具,怎么实现好？
If TryConnectHost("www.egridsoft.com") Then
    If Network.Ping("www.egridsoft.com") Then
        Messagebox.Show("可以访问易表主页")
    End If
End If
这里的TryConnectHost跟Network.Ping只能是域名或者ip，可是很多网站及链接都是“ip+端口号”的要怎么检测？

--  作者：有点蓝
--  发布时间：2021/3/7 20:12:00
--
换种方式

Dim hc As New HttpClient("http://www.abc.com:10000/")
Dim ret As String = hc.GetData(True)
If ret = "" Then
Output.Show( hc.rCookies("Error"))
Else
Output.Show( "可以连接")
End If