Question

我想要一个vbscript来检查URL是否存在而不打开任何浏览器。如果存在则弹出消息。脚本模式应该是这样的:(更简单的脚本，最好的脚本）

这里的常用代码

Url="www.lol.com/letter.txt"

检查网址是否存在的代码

If exists

Msgbox("Success")

Else

Msgbox("Failed")

Wscript.Quit

Answer 1

此功能应该完成工作

function testUrl(url)
    Set o = CreateObject("MSXML2.XMLHTTP")
    on error resume next
    o.open "GET", url, False
    o.send
    if o.Status = 200 then testUrl = True
    on error goto 0 
end function

使用

调用它

if testUrl("http://www.example.com") then
     msgbox "SUCCESS"
else
     msgbox "FAILED" 
end if

检查URL是否存在通过VBScript

1 个答案: