图片论坛有好多好看的图片,可一个一个另存为太麻烦了,做了下面的批处理,让机子在论坛里转一遍慢慢下去吧,我玩去了......我这经常间断性的断网,加上了这方面的内容,断网后也不用怕,网连好后自动接着下.
你也可用它专一性的下载图片或其它一类东西,具体情况自行修改一下即可....
@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>/
