SEO知识:批量百度查询

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

在百度搜索框输入关键词后查询,可得到对应的搜索结果数。但是如何批量生产?


@echo off & title 批量获取百度搜索关键词结果数量 By 依梦琴瑶
cd /d "%~dp0"
::设置关键词列表文件
set List=KeyWordList.txt
if not exist wget.exe call :DownloadWget
call :CreatVBS
set "DAT=%tmp%\BaiduWebPage"
echo 正在获取关键词搜索结果数量。。。 & echo,
for /f "usebackq delims=" %%a in ("%List%") do (
    call :GetWebPageData "%%~a"
)
echo, & echo 获取完毕,请按任意键退出。
pause>nul
call :ToMe
exit
:GetWebPageData
if exist "%DAT%.*" del /f /q "%DAT%.*"
wget -c "http://www.baidu.com/s?wd=%~1" -O "%DAT%.ALL" -q
findstr /i /c:"鐧惧害涓烘偍镓惧埌鐩稿叧缁撴灉绾" "%DAT%.ALL">"%DAT%.ONE"
"%tmp%\ConvertCode.vbs" "%DAT%.ONE" "%DAT%.ANSI"
set /p Str=<"%DAT%.ANSI"
set "Str=%Str:百度为您找到相关结果约=|%"
set "Str=%Str:个=|%"
set "Str=%Str:,=%"
set "Str=%Str:<=%"
set "Str=%Str:>=%"
for /f "tokens=2* delims=|" %%i in ('echo "%Str%"') do (
    echo %~1 : 约 %%~i 个
)
goto :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 Function ReadFile(FileUrlSrc, CharSet^)
echo     Dim Str
echo     Set stm = CreateObject("Adodb.Stream"^)
echo     stm.Type = 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 = Nothing
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     stm.SaveToFile FileUrlDst, 2
echo     stm.flush
echo     stm.Close
echo     Set stm = Nothing
echo End Function)>ConvertCode.vbs
popd
goto :eof
:DownloadWget
echo 正在获取扩展命令程序 wget.exe 。。。
(echo Download Wscript.Arguments^(0^),Wscript.Arguments^(1^)
echo Sub Download^(url,target^)
echo   Const adTypeBinary = 1
echo   Const adSaveCreateOverWrite = 2
echo   Dim http,ado
echo   Set http = CreateObject^("Msxml2.ServerXMLHTTP"^)
echo   http.open "GET",url,False
echo   http.send
echo   Set ado = createobject^("Adodb.Stream"^)
echo   ado.Type = adTypeBinary
echo   ado.Open
echo   ado.Write http.responseBody
echo   ado.SaveToFile target
echo   ado.Close
echo End Sub)>DownloadFile.vbs
DownloadFile.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 扩展命令程序下载失败
    ping 127.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脚本,即可获取关键词的搜索数量。

运行截图:



1、新建一个txt,命名为“关键词表.txt”,把要查询的关键词一行一个填进去
2、将下面的代码复制粘贴进记事本,另存为“xxx.bat”,编码选ANSI,将“xxx.bat“ 跟“关键词表.txt”放一起双击运行
<# :
cls
@echo off
rem 获取百度搜索相关结果的数量/个数
set @=Any question&set #=Q&set/az=0x53b7e0b4
title %@% +%#%%#% %z%
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "&{[ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::Default)).Invoke()}"
echo;%@% +%#%%#% %z%
pause
exit
#>
function getweb($word){
    $html='';$web=New-Object System.Net.WebClient;
    $web.Encoding=[System.Text.Encoding]::UTF8;
    for($i=1;$i -le 3;$i++){
        try{
            $html=$web.DownloadString('http://www.baidu.com/s?wd='+$word+'&ie=utf-8');
            break;
        }catch{};
    };
    return $html;
};
$wordsfile='关键词表.txt';
$outfile='查询结果.txt';
$startline=1;
$fs=New-Object System.IO.FileStream($outfile, [System.IO.FileMode]::Create);
$sw=New-Object System.IO.StreamWriter($fs, [Text.Encoding]::Default);
$text=[IO.File]::ReadAllLines($wordsfile,[Text.Encoding]::Default);
for($i=$startline-1;$i -lt $text.count;$i++){
    $n='0';$t=getweb $text[$i];
    $m=[regex]::match($t, '百度为您找到相关结果约([\d,]+)个');
    if($m.success){$n=$m.groups[1].value.replace(',','');};
    $line=$text[$i]+':'+$n;
    write-host $line;$sw.WriteLine($line);$sw.Flush();
};
$sw.Close();$fs.Close();

百度PC和手机批量排名查询工具

如题各位做SEO的大神求推荐一个能支撑百度手机和百度PC批量排名查询的SEO工具数据比较大需要批量查询


网络上有不少这一类的SEO工具
分析牛可以支撑查询百度手机和百度PC批量排名查询
好像还可以支撑搜狗和神马以及360的手机PC
我用过不少之类的批量排名查询工具
唯一的缺点就是很多工具不够快和准
分析牛倒是在这点做的不错

文章发布时间与标签:

更新时间:2021-05-08 15:47:06
标签:

推荐的SEO知识: