主题：网络监测系统怎么实现比较好？

你要这个？

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=113985&skin=0

 

try
    Dim req = System.Net.WebRequest.Create("http://127.0.0.1/test.htm")
    req.timeout = 3000
    Dim pos = req.GetResponse
    Dim stm As System.IO.Stream = pos.GetResponseStream()
    Dim reader As New System.IO.StreamReader(stm)
    Dim str As String = reader.ReadToEnd
    pos.Close
    stm.Close
    reader.close
   
    msgbox(str)
catch ex As exception
    msgbox("出错")
    msgbox(ex.message)
End try

可以，哪个地址你随便修改进行测试。

可以在命令窗口测试，如果要检测的话，放到定时器那里间隔一段时间执行一次。

我测试没问题

 

try
    Dim req = System.Net.WebRequest.Create("http://www.baidu.com/test.htm")
    req.timeout = 3000
    Dim pos = req.GetResponse
    Dim stm As System.IO.Stream = pos.GetResponseStream()
    Dim reader As New System.IO.StreamReader(stm)
    Dim str As String = reader.ReadToEnd
    pos.Close
    stm.Close
    reader.close
   
    msgbox(str)
catch ex As exception
    msgbox("出错")
    msgbox(ex.message)
End try

你这个ip外网根本就无法访问，如何测试？你要测试什么？

你这个ip根本就ping不同。

If TryConnectHost("202.96.64.68") Then
    If Network.Ping("202.96.64.68", 3000) Then
        Messagebox.Show("可以访问易表主页")
    Else
        msgbox("超时")
    End If
Else
    msgbox("不能访问")
End If

 

If TryConnectHost("202.96.64.68") Then
    If Network.Ping("202.96.64.68", 3000) Then
        Messagebox.Show("可以访问易表主页")
    Else
        msgbox("超时")
    End If
Else
    msgbox("不能访问")
End If