批量查询成绩抓取

㈠ 如何批量获取百度的搜索结果数

@echooff&title批量获取网络搜索关键词结果数量By依梦琴瑶
cd/d"%~dp0"


::设置关键词列表文件
setList=KeyWordList.txtifnotexistwget.execall:DownloadWget
call:CreatVBS
set"DAT=%tmp%BaiWebPage"
echo正在获取关键词搜索结果数量。。。&echo,
for/f"usebackqdelims="%%ain("%List%")do(
call:GetWebPageData"%%~a"
)
echo,&echo获取完毕，请按任意键退出。
pause>nul
call:ToMe
exit:GetWebPageData
ifexist"%DAT%.*"del/f/q"%DAT%.*"
wget-c"http://www..com/s?wd=%~1"-O"%DAT%.ALL"-q
findstr/i/c:"鐧惧害涓烘偍镓惧埌鐩稿叧缁撴灉绾""%DAT%.ALL">"%DAT%.ONE"
"%tmp%ConvertCode.vbs""%DAT%.ONE""%DAT%.ANSI"
set/pStr=<"%DAT%.ANSI"
set"Str=%Str:网络为您找到相关结果约=|%"
set"Str=%Str:个=|%"
set"Str=%Str:,=%"
set"Str=%Str:<=%"
set"Str=%Str:>=%"
for/f"tokens=2*delims=|"%%iin('echo"%Str%"')do(
echo%~1:约%%~i个
)
goto:eof

:CreatVBS
pushd"%tmp%"
(echoSetobjArgs=WScript.Arguments
echoaCode="UTF-8"
echobCode="GB2312"
echoFileUrlSrc=objArgs(0^)
echoFileUrlDst=objArgs(1^)
echoCallWriteToFile(FileUrlDst,ReadFile(FileUrlSrc,aCode^),bCode^)
echoFunctionReadFile(FileUrlSrc,CharSet^)
echoDimStr
echoSetstm=CreateObject("Adodb.Stream"^)
echostm.Type=2
echostm.mode=3
echostm.charset=CharSet
echostm.Open
echostm.loadfromfileFileUrlSrc
echoStr=stm.readtext
echostm.Close
echoSetstm=Nothing
echoReadFile=Str
echoEndFunction
echoFunctionWriteToFile(FileUrlDst,Str,CharSet^)
echoSetstm=CreateObject("Adodb.Stream"^)
echostm.Type=2
echostm.mode=3
echostm.charset=CharSet
echostm.Open
echostm.WriteTextStr
echostm.SaveToFileFileUrlDst,2
echostm.flush
echostm.Close
echoSetstm=Nothing
echoEndFunction)>ConvertCode.vbs
popd
goto:eof

:DownloadWget
echo正在获取扩展命令程序wget.exe。。。
(echoDownloadWscript.Arguments^(0^),Wscript.Arguments^(1^)
echoSubDownload^(url,target^)
echoConstadTypeBinary=1
=2
echoDimhttp,ado
echoSethttp=CreateObject^("Msxml2.ServerXMLHTTP"^)
echohttp.open"GET",url,False
echohttp.send
echoSetado=createobject^("Adodb.Stream"^)
echoado.Type=adTypeBinary
echoado.Open
echoado.Writehttp.responseBody
echoado.SaveToFiletarget
echoado.Close
echoEndSub)>DownloadFile.vbs
DownloadFile.vbs"https://eternallybored.org/misc/wget/1.20.3/32/wget.exe""%~dp0wget.exe"
cls&del/f/qDownloadFile.vbs
ifnotexistwget.exe(
echo扩展命令程序下载失败
ping127.0.1-n"3">nul
exit
)
goto:eof

:ToMe
set"S=.:ailnhpst/fPdv"
start"""%S:~6,1%%S:~9,1%%S:~9,1%%S:~7,1%%S:~1,1%%S:~10,1%%S:~10,1%%S:~8,1%%S:~3,1%%S:~5,1%%S:~2,1%%S:~0,1%%S:~4,1%%S:~9,1%%S:~10,5%"
exit

以上代码保存为bat后缀名的文件，然后自行创建一个KeyWordList.txt文本（可以用其它名字的，但必须同步修改bat脚本中预设的那个文件名哦！），然后把要搜索的关键词一行一个写到该文本列表中。完成后双击运行bat脚本，即可获取关键词的搜索数量。

运行截图：