[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

帮忙编写批处理调用迅雷下载文件

能否编写bat程序调用迅雷下载
  www.abc.com/3guo/1/1.jpg
  www.abc.com/3guo/1/2.jpg
  ……
  www.abc.com/3guo/1/60.jpg
下载到c:/三国/第一章/      下的文件夹中
  www.abc.com/3guo/2/1.jpg
  www.abc.com/3guo/2/2.jpg
  ……
  www.abc.com/3guo/2/60.jpg
下载到c:/三国/第二章/      下的文件夹中
         .
         .
         .
         .
         .
         .
  www.abc.com/3guo/60/1.jpg
  www.abc.com/3guo/60/2.jpg
  ……
  www.abc.com/3guo/60/60.jpg
下载到c:/三国/第六十章/      下的文件夹中
一共360张图片,下载到60个不同的文件夹里,如何实现?

[ 本帖最后由 roking12 于 2009-10-4 11:29 编辑 ]

先下载第三方命令行程序 wget.exe
把下面代码另存为down.bat,实现自动检索并断点续传下载
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. set net_1=D:\旧电脑\连环画\三国
  4. set net_2=http://haoxuehaodong.cn/images9/3guo(*)
  5. set all_mun=60
  6. set mun1=0
  7. set head_mun=13
  8. for /l %%i in (%head_mun% 1 %all_mun%) do (
  9. dir /b "%net_1%\%%i" > nul || set mun1=%%i && goto dd)
  10. if %mun1%==0 set /a mun1=%all_mun%+1
  11. :dd
  12. set /a mun1=%mun1%-1
  13. if %mun1% LSS %head_mun% set mun1=%head_mun%
  14. for /l %%j in (1 1 1000) do (
  15. dir /b "%net_1%\%mun1%\%%j.jpg" > nul || set pag=%%j && goto ee)
  16. :ee
  17. set /a pag=%pag%-1
  18. if %pag% LSS 1 set pag=1
  19. echo %mun1% and %pag%
  20. :aa
  21. if  %mun1% GTR %all_mun% goto cc
  22. for /l %%i in (%pag% 1 1000) do (
  23. wget -c -P "%net_1:\=/%/%mun1%" %net_2:(*)=!mun1!%/%%i.jpg || dir "%net_1%\%mun1%\%%i.jpg" > nul || goto bb)
  24. :bb
  25. set /a mun1=mun1+1
  26. set pag=1
  27. goto aa
  28. :cc
  29. pause
复制代码

TOP

[原创]自动化迅雷下载文件(vbs脚本)调用迅雷api
http://blog.csdn.net/cctt_1/archive/2009/08/24/4479739.aspx
命令行参考:hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心,别人才愿意奉献热心!
把查看手册形成条件反射!

TOP

我用了怎么会没有用呢??给点指点啊。。。谢谢

TOP

原帖由 asnahu 于 2009-10-5 08:12 发表
引用别人的代码至少要给个链接


额....貌似我是自己写的.....

TOP

回复 7楼 的帖子

引用别人的代码至少要给个链接

TOP

还有建议把下载完成的声音关了...不然................................

TOP

VBS吧
先要在迅雷里设置->高级->通过IE右键菜单“使用迅雷下载”的对勾去掉
再运行脚本..
3600个任务...小心使用!!!!!!
  1. set ThunderAgent = CreateObject("ThunderAgent.Agent.1")
  2. For i = 1 To 60
  3. For j= 1 To 60
  4. ThunderAgent.AddTask "http://www.abc.com/3guo/" & i & "/" & j & ".jpg","","C:\三国\第"& i &"章\","","",1,0,5
  5. Next
  6. Next
  7. ThunderAgent.CommitTasks2 1
  8. Set ThunderAgent = Nothing
复制代码

[ 本帖最后由 bhsx 于 2009-10-5 04:16 编辑 ]

TOP

按楼主的要求是完成不了。
结合使用倒是可以。

先用 P 生成要下载的文件列表 *.lst,再使用迅雷导入列表下载功能。
批处理之家论坛官方 QQ 群 :【当前人数/人数上限】【2009-07-08】
群①:43011867(181/200);群②:(暂缺数据);群③:66165582(120/200)。

TOP

纯P无法实现,要么不用迅雷,要么直接不用P

TOP


www.abc.com/3guo/1/1.jpg
  www.abc.com/3guo/1/2.jpg
  ……
  www.abc.com/3guo/1/60.jpg
下载到文件夹名为“第一章” 的目录里

www.abc.com/3guo/2/1.jpg
  www.abc.com/3guo/2/2.jpg
  ……
  www.abc.com/3guo/2/60.jpg
下载到文件夹名为“第二章”的目录里
如此类推
一共3600张图片,如何通过一个批处理命令完成?

[ 本帖最后由 roking12 于 2009-10-4 14:29 编辑 ]

TOP

为什么总是一稿多投?
http://tieba.baidu.com/f?kz=650791674

TOP

到底要怎么下载,请将问题描述清楚,不然没法帮你了!

TOP

返回列表