批量查詢成績抓取

㈠ 如何批量獲取百度的搜索結果數

@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腳本，即可獲取關鍵詞的搜索數量。

運行截圖：