• 如果您觉得本站有看点,那么赶紧使用 Ctrl+D 收藏吧!

用vbs检测网页是否存在

网页制作 comet 14年前 (2006-10-09) 29次浏览 3个评论

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


极客公园 , 版权所有丨如未注明 , 均为原创丨本网站采用BY-NC-SA协议进行授权
转载请注明原文链接:用vbs检测网页是否存在
喜欢 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址
(3)个小伙伴在吐槽
  1. 我要从复检测呢。XML缓存,能否解决。? [reply=comet,2010-07-30 08:34 AM]重复检测为什么要缓存呢?[/reply]
    近佳2010-07-27 12:04 回复
  2. 麻烦问下vbs中想个判断语句如果网址存在就下载文件,如果不存在就执行其他语句,这个应该怎么写,求大神指导
    张某某2020-05-10 09:21 回复
    • 函数:checkURL function checkURL(url) Set obj = CreateObject("MSXML2.XMLHTTP") on error resume next obj.open "GET", url, False obj.send if obj.Status = 200 then checkURL = True on error goto 0 end function 调用: if checkURL("https://www.example.com") then msgbox "SUCCESS" else msgbox "FAILED" end if
      comet2020-05-20 00:01 回复