自动化迅雷下载文件(vbs脚本)调用迅雷api

这篇文章写于搜索n多版本依旧不能解决我的问题。很多vbs版本调用迅雷的写法为：

Set ThunderAgent = CreateObject("ThunderAgent.Agent.1") //找到那个Agent dll Call ThunderAgent.AddTask("http://www.hxit.net/files/bjhyn.mp3","北京欢迎你.mp3","c:/a/","","http://www.readlog.cn",1,0,5) //创建下载任务 Call ThunderAgent.CommitTasks(1) //提交任务请求 Call ThunderAgent.AddTask("http://file.fzone.cn/upload2/hompyFile/2007/28/921524670987.wma","放羊的星星.wma","c:/a/b/c/","","http://www.readlog.cn",1,0,5) Call ThunderAgent.CommitTasks(1) Set ThunderAgent = 

这里介绍一下AddTask函数。这个函数第一个参数是要下载的url；第二个参数是要保存的文件名；第三个是保存路径；第四个是引用url；第五个是1，0，-1(1为立即下载，0为手工下载，-1为默认，但是不管是哪个，你都要看到弹出的框框，然后手工点击一下。)；第五个为是否只从原地址下载0为不是，1为是；第六个为下载的线程个数。

这段代码保存为*.vbs就可以了。然后在迅雷里设置->高级->通过IE右键菜单“使用迅雷下载”的对勾去掉。如果使用5.9版本，你可以在监控那里把监控IE去掉。这样写我测试过xunlei 5.9是没有任何问题。不过一旦运行这个，就会弹出一个对话框然后你必须点击确认后才可以下载。我的需求就在于把这次的确认去掉。找了好久依旧没有解决问题。无奈之中碰到了运气。

1.首先下载一个5.1.4.174版本的迅雷。

2.从迅雷安装目录下搜索geturl.htm.如果找到你就知道咋做了。

3.写以下脚本*.vbs.这里使用的自己的url.

set ThunderApi = CreateObject("Xunleibho.CatchRightClick.1") DownloadInfo = "#*01#*" + "http://blog.csdn.net/cctt_1" + "#*02#*" + "" + "#*03#*" + "hello.mp3"+ "#*04#*thunder_backwnd#*05#*" retValue = ThunderApi.sendUrl(DownloadInfo) set ThunderApi = Nothing

这里的第一个#*01#*后面跟的是要下载的url,#*02#*后面是引用的url,第三个是注释内容。第四个是后台下载（不用更改）。

4.启动迅雷，然后双击这个vbs文件即可。

不过以上方法有个缺陷，就是不能将文件下载到想保存的目录。只能保存到默认文件目录中。入想使用5.1.4.174版本希望保存到自己想要保存的目录的话。调用和第一个脚本类似的方法。不过要稍微做些改动。脚本如下：

set ThunderAgent = CreateObject("ThunderAgent.Agent.1") Call ThunderAgent.AddTask("http://blog.csdn.net/cctt_1","俺的url","c:/a/","","",1,0,5) Call ThunderAgent.Committasks() Call ThunderAgent.AddTask("http://blog.csdn.net/cctt_1/archive/2009/05/06/4153465.aspx","还是俺的blog","c:/a/b/c/","","",1,0,5) Call ThunderAgent.CommitTasks() Set ThunderAgent = Nothing

这里可以看到为CommitTasks，而非CommitTasks2()

看到这篇的各位，有没有提供更好的方法调用迅雷？既可以不弹出那个框框，又可以保存到相应地址的？先行谢过。