- @echo off
- set "url=http://www.baidu.com/s?tn=baidusite&word=site"
- more +9 "%~f0" >a.vbs
- for /f %%a in (1.txt) do (
- echo 正在检测:%%a
- cscript //nologo a.vbs "%url%:%%a"|find "抱歉,没有找到">nul||>>2.txt echo %%a
- )
- del a.vbs&pause&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
复制代码
|