即是如此有请 s11ss 兄该帮改良改良,(下面的返回时间太长)
On Error Resume Next
Set oDOM=WScript.GetObject("http://www.baidu.com/10000.txt")
if err.Number<>0 then
WScript.echo "不存在"
WScript.quit
end if
Do Until oDOM.readyState="complete"
WScript.sleep 200
Loop
s = oDOM.documentElement.outerText
Set oDOM=nothing
if InStr(s, "不存在")>0 or InStr(s, "未找到") then WScript.echo "不存在"作者: s11ss 时间: 2008-11-3 21:50 我这儿很快啊,一下就返回了作者: dtdfctdoslm 时间: 2008-11-3 22:34 标题: 肯定慢,如果网络慢
肯定慢,如果网络慢作者: qinzdc 时间: 2008-11-3 23:50 晕了,积分是怎么才有的呢~~~我的杂就是o作者: HAT 时间: 2008-11-4 00:41 标题: Re 11楼