用vbs检测网页是否存在

把下面的代码保存为 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)

《用vbs检测网页是否存在》上有1条评论

  1. 我要从复检测呢。XML缓存,能否解决。?
    [reply=comet,2010-07-30 08:34 AM]重复检测为什么要缓存呢?[/reply]

发表评论

电子邮件地址不会被公开。 必填项已用*标注

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据