请问小偷程序如何判断目标网址超时无法访问?

[wswwwt]

Function GetPage(Path)
t = GetBody(Path)
GetPage=BytesToBstr(t,"utf-8")
End function

Function GetBody(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
End Function

Function BytesToBstr(strBody,CodeBase)
dim objStream
set objStream = Server.CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode =3
objStream.Open
objStream.Write strBody
objStream.Position = 0
objStream.Type = 2
objStream.Charset = CodeBase
BytesToBstr = objStream.ReadText
objStream.Close
set objStream = nothing
End Function


strPage=GetPage(weburl)

请问小偷程序如何判断目标网址超时无法访问? 最好能在上面我给的代码中改改增加这个判断的功能, 谢谢了

[xzx99]

经测试发现，目标网址无法访问时，总用时20多秒。

[wswwwt]

刚查了一下，好象用status什么的判断，自己不太懂，有谁知道的帮帮忙

[cnchart]

xmlhttp对象的status属性,是用于http请求的状态码的.状态码(HTTP Status Code)是用以表示服务器HTTP响应状态的3位数字代码。它由 RFC 2616 规范定义的，并得到RFC 2518、RFC 2817、RFC 2295、RFC 2774、RFC 4918等规范扩展。

所有状态码的第一个数字代表了响应的五种状态之一。
如xmlhttp.status=200表示成功

详细请参考以下文档:
http://zh.wikipedia.org/wiki/HTTP状态码

[wxy_332]

xmlhttp对象的status属性,是用于http请求的状态码的.状态码(HTTP Status Code)是用以表示服务器HTTP响应状态的3位数字代码。它由 RFC 2616 规范定义的，并得到RFC 2518、RFC 2817、RFC 2295、RFC 2774、RFC 4918等规范扩展。

所有状态码的第一个数字代表了响应的五种状态之一。
如xmlhttp.status=200表示成功

详细请参考以下文档:
http://zh.wikipedia.org/wiki/HTTP状态码

[caoshangfei]

用msxml2.serverxmlhttp。可以指定timeout
然后用on error resume next
最后获取err.description能看到超时的出错。

[sunliang1977]

过来学习一下！

[go786]

判断查询时间 超过XX秒就返回网址失效