按键精灵调用迅雷下载文件

Set ThunderAgent = CreateObject("ThunderAgent.Agent") '建立迅雷接口对象

ThunderAgent.AddTask "http://10.10.10.10/电影世界/12新电影/随风而逝.rmvb", "随风而逝.rmvb", "", "", "", - 1 , 0, - 1

Call ThunderAgent.CommitTasks '开始任务

Set ThunderAgent = Nothing '释放对象

//AddTask方法的参数如下：AddTask("下载地址", "另存文件名", "保存目录","任务注释","引用地址","开始模式", "只从原始地址下载","从原始地址下载线程数")

//参数含义

//pURL目标URL，必须参数

//pFileName另存名称，默认为空，表示由迅雷处理，可选参数

//pPath存储目录，默认为空，表示由迅雷处理，可选参数

//pComments下载注释，默认为空，可选参数

//pReferURL引用页URL，默认为空，可选参数

//nStartMode开始模式，0手工开始，1立即开始，默认为-1，表示由迅雷处理，可选参数

//nOnlyFromOrigin是否只从原始URL下载，1只从原始URL下载，0多资源下载，默认为0，可选参数

//nOriginThreadCount原始地址下载线程数，范围1-10，默认为-1，表示由迅雷处理，可选参数

想了解更多的内容请百度 "ThunderAgent.Agent"　，深层次研究个人觉得用处不是很大了，呵呵。