- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 网页无响应代码优化 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113703)
-- 发布时间：2018/1/21 14:06:00
-- 网页无响应代码优化
老师好，我用这个检测网页无响应，实际这个是正常运行可以正常访问的，但是下面这个代码却显示有问题。。
try
Dim req = CType(System.Net.WebRequest.CreateDefault(New Uri("http://www.yijiansoft.net:81/srqcx.htm")), System.Net.HttpWebRequest)
req.Method = "HEAD"
req.Timeout = 1000
Dim res As System.Net.HttpWebResponse = req.GetResponse()
catch ex As System.Net.WebException
output.show(Date.now & "无响应")
End try
此主题相关图片如下：微信截图_20180121140343.png
-- 发布时间：2018/1/21 14:58:00
--
我网站关闭重新打开后，就会出现这种交替的，
但实际网页是正常的可以显示的
try
Dim req = CType(System.Net.WebRequest.CreateDefault(New Uri("http://www.yijiansoft.net:81/srqcx.htm")), System.Net.HttpWebRequest)
req.Method = "HEAD"
req.Timeout = 1000
Dim res As System.Net.HttpWebResponse = req.GetResponse()
output.show(Date.now & "正常")
catch ex As System.Net.WebException
output.show(Date.now & "无反应")
End try
此主题相关图片如下：微信截图_20180121145554.png
-- 发布时间：2018/1/21 22:15:00
--
try
Dim req = System.Net.WebRequest.Create("http://www.yijiansoft.net:81/srqcx.htm")
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