Cómo obtener el número de resultados de búsqueda de Baidu en lotes

@echo?off?&?title?¿Obtener el número de resultados de palabras clave de búsqueda de Baidu en lotes?Por?Yimeng Qinyao

cd?/d?"%~dp0"

::Establecer archivo de lista de palabras clave

set?List=KeyWordList.txt

if?not?exist?wget.exe?call?:DownloadWget

call?:CreatVBS

set?"DAT=%tmp%\BaiduWebPage"

echo? Obteniendo el número de resultados de búsqueda de palabras clave. . . ?&?echo,

para?/f?"usebackq?delims="?%%a?in?("%List%")?do?(

llamar? :GetWebPageData?"%%~a"

)

echo,?&?echo? Después de obtenerlo, presione cualquier tecla para salir.

pausa>nul

llamada?:ToMe

salir

:GetWebPageData

si?existe?" %DAT%.*"?del?/f?/q?"%DAT%.*"

wget?-c?"/s?wd=%~1"?-O?"% DAT%.ALL"?-q

findstr?/i?/c:"锏锟斤拷鈍道铌遌適script"?"%DAT%.ALL"> "%DAT%.ONE "

"%tmp%\ConvertCode.vbs"?"%DAT%.ONE"?"%DAT%.ANSI"

set?/p ?Str=<"% DAT%.ANSI"

set?"Str=%Str: Baidu encontró resultados relevantes para usted about=|%"

set?"Str=% Str:piece=|% "

establecer?"Str=%Str:,=%"

establecer?"Str=%Str:<=%"

establecer?"Str =%Str:>=%"

for?/f?"tokens=2*?delims=|"?%%i?in?('echo?"%Str %"')?do ?(

echo?%~1?:?about?%%~i?

)

ir a?:eof

:CreatVBS

pushd?"%tmp%"

(echo?Set?objArgs?=?WScript.Arguments

echo ?aCode?=?"UTF -8"

echo?bCode?=?"GB2312"

echo?FileUrlSrc?=?objArgs(0^)

echo?FileUrlDst?=? objArgs(1^)

echo?Call?WriteToFile(FileUrlDst,?ReadFile(FileUrlSrc,?aCode^),?bCode^)

echo? CharSet^)

echo?Dim?Str

echo?Set?stm?=?CreateObject("Adodb.Stream"^)

echo?stm. Tipo?=?2

echo?stm.mode?=?3

echo?stm.charset?=?CharSet

echo?stm.Open

echo?stm.loadfromfile?FileUrlSrc

echo?Str?=?stm.readtext

echo?stm.Close

echo?Set?stm?=?Nada

echo?ReadFile?=?Str

echo?End?Function

echo?Function ?WriteToFile?(FileUrlDst ,?Str,?CharSet^)

echo?Set?stm?=?CreateObject("Adodb.Stream"^)

echo?stm.Type? =?2

echo?stm.mode?=?3

echo?stm.charset?=?CharSet

echo?stm.Open

echo ?stm.WriteText?Str

echo?st

m.SaveToFile?FileUrlDst,?2

echo?stm.flush

echo?stm.Close

echo?Set?stm?=?Nada p>

echo?End?Function)>ConvertCode.vbs

popd

goto?:eof

:DownloadWget

echo?Obteniendo programa de comando extendido?wget.exe?. . .

(echo?Descargar?Wscript.Arguments^(0^),Wscript.Arguments^(1^)

echo?Sub?Descargar^(url,destino^)

p>

echoConst?adTypeBinary?=?1

echoConst?adSaveCreateOverWrite?=?2

echoDim?http,ado

echoSet?http?= ?CreateObject^("Msxml2.ServerXMLHTTP"^)

echohttp.open?"GET",url,False

echohttp.send

echoSet?ado? =?createobject^("Adodb.Stream"^)

echoado.Type?=?adTypeBinary

echoado.Open

echoado. Write?http.responseBody

echoado.SaveToFile?target

echoado.Close

echo?End?Sub)>DownloadFile.vbs

DescargarArchivo.vbs? "https://eternallybored.org/misc/wget/1.20.3/32/wget.exe"?"%~dp0wget.exe"

cls?&?del?/ f?/q? DownloadFile.vbs

if?not?exist?wget.exe?(

echo?Error en la descarga del programa de comando extendido

ping?127.0 .1?-n ?"3">nul

salir

)

ir a?:eof

:ToMe

establecer ?"S=.:ailnhpst/fPdv"

iniciar?""?"%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%"

salir

Guarde el código anterior como un archivo con el sufijo bat y luego cree un texto KeyWordList.txt usted mismo (puede usar otros nombres, pero debe modificar el archivo preestablecido). nombre en el script bat simultáneamente! ) y luego escriba las palabras clave que se buscarán en la lista de texto, una línea a la vez. Una vez completado, haga doble clic para ejecutar el script bat y obtener la cantidad de búsquedas de palabras clave.

Ejecutar captura de pantalla: