@echo off
more +9 %~f0 >GetUrlText.vbs
type nul >2.txt
for /f %%a in (1.txt) do (
echo 正在檢測：%%a
cscript //nologo GetUrlText.vbs http://%%a/123.asp | 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
nclick="copycode($('code0'));">復制代碼