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

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

view plaincopy to clipboardprint?
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 =  
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.

view plaincopy to clipboardprint?
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 
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版本希望保存到自己想要保存的目录的话。调用和第一个脚本类似的方法。不过要稍微做些改动。脚本如下：

view plaincopy to clipboardprint?
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 
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()

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

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/cctt_1/archive/2009/08/24/4479739.aspx