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"　，深层次研究个人觉得用处不是很大了，呵呵。