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”, )外部对象.清除()