小瑞博客

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 "http://www.test.com/test.swf", "aaa.swf"

易语言：

.版本 2

.子程序 _按钮1_被单击

迅雷添加下载任务 (“http://www.xiaorui.net/my_soft/onlinetv.rar”)

.子程序 迅雷添加下载任务, , , (彬)泪闯天涯提供
.参数 下载地址, 文本型
.局部变量 外部对象, 对象

.如果真 (下载地址 ≠ “”)
    外部对象.创建 (“ThunderAgent.Agent”, )
    .如果真 (外部对象.是否为空 ())
        信息框 (“您还没有安装迅雷”, 64, “提示”)
        返回 ()
    .如果真结束
    外部对象.方法 (“AddTask”, 下载地址, “重命名.rar”, , , , , , )  ' 此处各参数参照VB
    外部对象.数值方法 (“CommitTasks”, )
    外部对象.清除 ()