易语言调用迅雷下载文件

VB: Option Explicit 'ThunderAgent.Agent 参数: '参数名============= 含义 'pURL =============== 目标URL,必须参数 'pFileName ========== 另存名称,默认为空,表示由迅雷处理,可选参数 'pPath ============== 存储目录,默认为空,表示由迅雷处理,可选参数 'pComments ========== 下载注释,默认为空,可选参数 'pReferURL ========== 引用页URL,默认为空,可选参数 'nStartMode ========= 开始模式,0手工开始,1立即开始,默认为-1,表示由迅雷处理,可选参数'nOnlyFromOrigin ==== 是否只从原始URL下载,1只从原始URL下载,0多资源下载,默认为0,可选参数 'nOriginThreadCount = 原始地址下载线程数,范围1-10,默认为-1,表示由迅雷处理,可选参数 Public Sub SetThunderAgentTask(ByVal pURL As String, Optional ByVal pFileName As String = "", Optional ByVal pPath As String = "", Optional ByVal pComments As String = "", Optional ByVal pReferURL As String = "", Optional ByVal nStartMode As Integer = -1, Optional ByVal nOnlyFromOrigin As Integer = 0, Optional ByVal nOriginThreadCount As Integer = -1) Dim ThunderAgent As Object '声明一个对象变量 Set ThunderAgent = CreateObject("ThunderAgent.Agent") '引用并创建讯雷调用对象 ThunderAgent.AddTask pURL, pFileName, pPath, pComments, pReferURL, nStartMode, _ nOnlyFromOrigin, nOriginThreadCount '添加下载任务 ThunderAgent.CommitTasks2 (1) '提交下载任务,异步方式 Set ThunderAgent = Nothing '销毁对象 End Sub 'e.g: 'SetThunderAgentTask "", "aaa.swf" 易语言: .版本2 .子程序_按钮1_被单击 迅雷添加下载任务(“”) .子程序迅雷添加下载任务, , , (彬)泪闯天涯提供 .参数下载地址, 文本型 .局部变量外部对象, 对象 .如果真(下载地址≠ “”) 外部对象.创建(“ThunderAgent.Agent”, ) .如果真(外部对象.是否为空()) 信息框(“您还没有安装迅雷”, 64, “提示”) 返回() .如果真结束 外部对象.(“AddTask”, 下载地址, “重命名.rar”, , , , , , )' 此处各参数参照VB 外部对象.数值方法(“CommitTasks”, )外部对象.清除()