用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检测网页是否存在》上有3条评论

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

  2. 麻烦问下vbs中想个判断语句如果网址存在就下载文件,如果不存在就执行其他语句,这个应该怎么写,求大神指导

    1. 函数: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

发表评论

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

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