set ThunderAgent = CreateObject("ThunderAgent.Agent.1") 
For i = 1 To 60
For j= 1 To 60
ThunderAgent.AddTask "http://www.abc.com/3guo/" & i & "/" & j & ".jpg","","C:\三国\第"& i &"章\","","",1,0,5
Next
Next
ThunderAgent.CommitTasks2 1
Set ThunderAgent = Nothing 
复制代码

@echo off
setlocal enabledelayedexpansion 
set net_1=D:\旧电脑\连环画\三国
set net_2=http://haoxuehaodong.cn/images9/3guo(*)
set all_mun=60
set mun1=0
set head_mun=13
for /l %%i in (%head_mun% 1 %all_mun%) do (
dir /b "%net_1%\%%i" > nul || set mun1=%%i && goto dd)
if %mun1%==0 set /a mun1=%all_mun%+1
:dd
set /a mun1=%mun1%-1
if %mun1% LSS %head_mun% set mun1=%head_mun%
for /l %%j in (1 1 1000) do (
dir /b "%net_1%\%mun1%\%%j.jpg" > nul || set pag=%%j && goto ee)
:ee
set /a pag=%pag%-1
if %pag% LSS 1 set pag=1
echo %mun1% and %pag%
:aa
if  %mun1% GTR %all_mun% goto cc
for /l %%i in (%pag% 1 1000) do (
wget -c -P "%net_1:\=/%/%mun1%" %net_2:(*)=!mun1!%/%%i.jpg || dir "%net_1%\%mun1%\%%i.jpg" > nul || goto bb)
:bb
set /a mun1=mun1+1
set pag=1
goto aa
:cc
pause
复制代码