哈哈,最近qq广告让俺很不爽,就发奋写了个去除qq2010聊天窗口图片广告的批处理,就献丑展示下
@echo off
echo . .
echo . .
echo . .
echo . 欢迎使用qq2010窗口广告清除工具 .
echo . .
echo . .
ping 127.0.0.1 -n 4 > nul
cls
echo寻找qq2010窗口广告所在目录……
cd C:\Documents and Settings\Administrator\Application Data\Tencent\QQ\Misc\
start .
cls
:again
echo 在弹出的窗口有一文件夹含有全部的qq广告(如:com.tencent.advertisement)
echo 其中含有大量gif、swf等格式的广告图片
set /p ad=请找出含广告的文件夹,并输入:
if not exist "C:\Documents and Settings\Administrator\Application Data\Tencent\QQ\Misc\%ad%\*.gif" goto err
cd "C:\Documents and Settings\Administrator\Application Data\Tencent\QQ\Misc\%ad%"
if exist name.txt del name.txt
if exist name2.txt del name2.txt
cls
echo 开始环境监测并进行图片目录列举……
ping 127.0.0.1 -n 4 >nul
dir *.swf >> Name.txt
for /f "skip=5 tokens=4" %%a in (Name.txt) do if exist %%a echo %%a >> name2.txt
del name.txt
dir *.gif >> Name.txt
for /f "skip=5 tokens=4" %%a in (Name.txt) do if exist %%a echo %%a >> name2.txt
del name.txt
dir *.jpg >> Name.txt
for /f "skip=5 tokens=4" %%a in (Name.txt) do if exist %%a echo %%a >> name2.txt
del name.txt
cls
echo 目录项目列举完成
ping 127.0.0.1 -n 2 > nul
echo 开始制作qq广告复制品
ping 127.0.0.1 -n 2 > nul
if not exist C:\ad md C:\ad
for /f %%i in (Name2.txt) do echo 1 >> C:\ad\%%i
del name2.txt
cls
echo qq广告复制品制作完成
ping 127.0.0.1 -n 4 > nul
echo 删除原广告文件并进行替代
ping 127.0.0.1 -n 2 > nul
del *.swf
del *.gif
del *.jpg
cls
echo 删除完成
copy C:\ad\*.* "C:\Documents and Settings\Administrator\Application Data\Tencent\QQ\Misc\%ad%"
del C:\ad /q
rd C:\ad
cls
echo 替代完成
ping 127.0.0.1 -n 4 >nul
goto end
:err
cls
echo 输入错误,所输入的文件名不正确,请重新输入
goto again
:end
echo 本软件由醉梦工作室开发
echo 如有bug或建议,请与我联系
echo E-mail:zuimengyunjian@gmail.com
echo 按任意键退出本程序
pause
@echo off
echo . .
echo . .
echo . .
echo . 欢迎使用qq2010窗口广告清除工具 .
echo . .
echo . .
ping 127.0.0.1 -n 4 > nul
cls
echo寻找qq2010窗口广告所在目录……
cd C:\Documents and Settings\Administrator\Application Data\Tencent\QQ\Misc\
start .
cls
:again
echo 在弹出的窗口有一文件夹含有全部的qq广告(如:com.tencent.advertisement)
echo 其中含有大量gif、swf等格式的广告图片
set /p ad=请找出含广告的文件夹,并输入:
if not exist "C:\Documents and Settings\Administrator\Application Data\Tencent\QQ\Misc\%ad%\*.gif" goto err
cd "C:\Documents and Settings\Administrator\Application Data\Tencent\QQ\Misc\%ad%"
if exist name.txt del name.txt
if exist name2.txt del name2.txt
cls
echo 开始环境监测并进行图片目录列举……
ping 127.0.0.1 -n 4 >nul
dir *.swf >> Name.txt
for /f "skip=5 tokens=4" %%a in (Name.txt) do if exist %%a echo %%a >> name2.txt
del name.txt
dir *.gif >> Name.txt
for /f "skip=5 tokens=4" %%a in (Name.txt) do if exist %%a echo %%a >> name2.txt
del name.txt
dir *.jpg >> Name.txt
for /f "skip=5 tokens=4" %%a in (Name.txt) do if exist %%a echo %%a >> name2.txt
del name.txt
cls
echo 目录项目列举完成
ping 127.0.0.1 -n 2 > nul
echo 开始制作qq广告复制品
ping 127.0.0.1 -n 2 > nul
if not exist C:\ad md C:\ad
for /f %%i in (Name2.txt) do echo 1 >> C:\ad\%%i
del name2.txt
cls
echo qq广告复制品制作完成
ping 127.0.0.1 -n 4 > nul
echo 删除原广告文件并进行替代
ping 127.0.0.1 -n 2 > nul
del *.swf
del *.gif
del *.jpg
cls
echo 删除完成
copy C:\ad\*.* "C:\Documents and Settings\Administrator\Application Data\Tencent\QQ\Misc\%ad%"
del C:\ad /q
rd C:\ad
cls
echo 替代完成
ping 127.0.0.1 -n 4 >nul
goto end
:err
cls
echo 输入错误,所输入的文件名不正确,请重新输入
goto again
:end
echo 本软件由醉梦工作室开发
echo 如有bug或建议,请与我联系
echo E-mail:zuimengyunjian@gmail.com
echo 按任意键退出本程序
pause