上一篇
下一篇
用vbs检测网页是否存在
作者:comet 日期:2006-10-09
把下面的代码保存为 WebState.vbs，运行后会返回微软脚本中心首页的状态，OK就表示存在。
On Error Resume Next
strURL = "http://www.microsoft.com/technet/scriptcenter/default.mspx"
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open "GET", strURL, FALSE
objHTTP.Send
Wscript.Echo(objHTTP.statusText)
On Error Resume Next
strURL = "http://www.microsoft.com/technet/scriptcenter/default.mspx"
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open "GET", strURL, FALSE
objHTTP.Send
Wscript.Echo(objHTTP.statusText)
文章来自: 
引用通告: 
Tags: 
相关日志:
评论: 1 | 引用: 0 | 查看次数: 2397
回复
近佳[2010-07-27 12:04 AM | 
]我要从复检测呢。XML缓存，能否解决。?
comet 于 2010-07-30 08:34 AM 回复
comet 于 2010-07-30 08:34 AM 回复重复检测为什么要缓存呢？
发表评论
