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

你要这个？

 

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

 

就是测试一个固定IP，如果网络不好，或者断网，做出警示并做记录开始时间，结束时间

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

如果ip是202.96.64.68

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

这个代码可以在命令窗口中执行吗？

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

在命令窗口中测试，出错，没有一次成功的

我测试没问题

 

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