以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  网络监测系统怎么实现比较好？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114491)
--  作者：xxfoxtable
--  发布时间：2018/2/7 16:26:00
--  网络监测系统怎么实现比较好？
像丢包多少算线路中断、延时过大，超过多少就算网络异常这样都可以监测到,有这样的标准吗？
然后产生的事件进行一个日志记录
怎么样写代码？
[此贴子已经被作者于2018/2/7 16:58:20编辑过]
--  作者：有点甜
--  发布时间：2018/2/7 17:20:00
--  

你要这个？

 

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

 
--  作者：xxfoxtable
--  发布时间：2018/2/7 17:24:00
--  
就是测试一个固定IP，如果网络不好，或者断网，做出警示并做记录开始时间，结束时间
--  作者：有点甜
--  发布时间：2018/2/7 17:44:00
--  
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
--  作者：xxfoxtable
--  发布时间：2018/2/7 17:56:00
--  
如果ip是202.96.64.68
try
    Dim req = System.Net.WebRequest.Create("http://202.96.64.68/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
代码就可以这样写，是吗？
--  作者：有点甜
--  发布时间：2018/2/7 18:03:00
--  
可以，哪个地址你随便修改进行测试。
--  作者：xxfoxtable
--  发布时间：2018/2/7 22:21:00
--  
这个代码可以在命令窗口中执行吗？
--  作者：有点甜
--  发布时间：2018/2/7 22:26:00
--  
可以在命令窗口测试，如果要检测的话，放到定时器那里间隔一段时间执行一次。
--  作者：xxfoxtable
--  发布时间：2018/2/7 22:31:00
--  
在命令窗口中测试，出错，没有一次成功的
--  作者：有点甜
--  发布时间：2018/2/7 22:40:00
--  

我测试没问题

 

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