获取数据的时候,用这种方式检测错误
Dim req = System.Net.WebRequest.Create("http://127.0.0.1")
try
req.Method = "get"
req.timeout = 5000
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
msgbox(str)
catch ex As exception
msgbox("不能访问了,发邮件,重启服务器")
End try