@echo off
more +9 "%~f0" >GetUrlText.vbs
type nul >2.txt
for /f %%a in (1.txt) do (
    echo 正在检测：%%a
    cscript //nologo GetUrlText.vbs %%a/123.aspx | findstr "<title>无法找到资源。</title>" && >>2.txt echo,%%a
)
goto :eof

strURL=WScript.Arguments(0)
WScript.Echo strURL
Set objXmlHttp = CreateObject("Microsoft.XMLHTTP")
objXmlHttp.Open "GET",strURL,0
objXmlHttp.Send()
Set objStream = CreateObject("ADODB.Stream")
objStream.Mode = 3
objStream.Type = 1
objStream.Open()
objStream.Write(objXmlHttp.responsebody)
objStream.Position = 0
objStream.Type = 2
objStream.Charset = "utf-8"
strText = objStream.Readtext
WScript.Echo strText
复制代码