中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 我的自动下载论坛图片的批处理.

tianzizhi
高级用户

积分 622
发帖 214
注册 2006-9-22
状态离线

『楼主』: 我的自动下载论坛图片的批处理.

图片论坛有好多好看的图片,可一个一个另存为太麻烦了,做了下面的批处理,让机子在论坛里转一遍慢慢下去吧,我玩去了......我这经常间断性的断网,加上了这方面的内容,断网后也不用怕,网连好后自动接着下.
你也可用它专一性的下载图片或其它一类东西,具体情况自行修改一下即可....
@echo off
setlocal enabledelayedexpansion
:ji
for /f %%i in (d:\jilu.txt) do @set /a kai=%%i
for /f %%j in (d:\num.txt) do @set /a num=%%j

:xia
for /l %%a in (!kai!,1,135000) do (
call :zhang
curl -o %%a.txt http://*********/bbs/viewthread.php?tid=%%a
for /f "delims=" %%i in ('findstr "http://.*jpg" %%a.txt') do (
set /a num=num+1
set "var=%%i"
set "var=!var: src=☆!"
set "var=!var:.jpg"=☆!"
set "var=!var:*☆=!"
for /f "tokens=1 delims==☆" %%j in ("!var!") do (
set "yi=%%~j"
echo !yi!
for /f "tokens=2 delims=//" %%k in ("!yi!") do (
echo http://%%k>>xiazailianjie.txt
ping -n 5 http://%%k | find "reply from" /i
if errorlevel==1 set /a kai=!kai!+1 & echo %%k>>weilianji.txt & del %%a.txt & echo %%a>d:\jilu.txt & goto xia )
wget -t 8 -w 3 -c -T 30 -P d:\图片\tupian\ %%~j.jpg

ren d:\图片\tupian\%%~nj.jpg tupian-!num!.jpg
echo !num!>d:\num.txt
)
)
echo %%a>d:\jilu.txt
del %%a.txt /f
)

:zhang
ping -n 2 www.baidu.com | find "reply from" /i
if errorlevel==1 timeout /t 150 & goto ji

::pause
::wget代理用法:#-e "http_proxy=http://<ip>:<port>/"
::#set http_proxy=http://<ip>:<port>/