2024年5月8日发(作者：)

迅雷THUNDERAGENT api 接口

其中用到了AddTask这个方法，这个方法的参数如下：AddTask("下

载地址", "另存文件名", "保存目录","任务注释","引用地址","开

始模式", "只从原始地址下载","从原始地址下载线程数") 。

参数名含义

pURL目标URL，必须参数

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

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

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

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

迅雷处理，可选参数

nStartMode开始模式，0手工开始，1立即开始，默认为-1，表示由

nOnlyFromOrigin是否只从原始URL下载，1只从原始URL下载，0

多资源下载，默认为0，可选参数

表示由迅雷处理，可选参数

Public Function 迅雷下载(网址 As String, Optional 保存路径

As String, Optional 另存为文件名 As String, Optional 下载注

释 As String, Optional 引用页 As String, Optional 开始模式 As

Long = 1, Optional 否只从原始网址下载 As Boolean = False,

Optional 原始地址下载线程数 As Long = 5) As Boolean

nOriginThreadCount原始地址下载线程数，范围1-10，默认为-1，

On Error GoTo Err

Dim ThunderAgent

'nStartMode开始模式，0手工开始，1立即开始，默认为-1，表示

由迅雷处理，可选参数

'nOnlyFromOrigin是否只从原始URL下载，1只从原始URL下载，0

多资源下载，默认为0，可选参数

表示由迅雷处理，可选参数

'nOriginThreadCount原始地址下载线程数，范围1-10，默认为-1，

Set ThunderAgent = CreateObject(".1")

If ThunderAgent Is Nothing Then GoTo Err

Call k(网址, 另存为文件名, 保存路径, 下

载注释, 引用页, 开始模式, 否只从原始网址下载, 原始地址下载

线程数)

Call Tasks2(1)

Set ThunderAgent = Nothing

迅雷下载 = True

Exit Function

Err:

迅雷下载 = False

End Function

Call 迅雷下载("/", "c:",

"", "")

首先确保电脑已经安装讯雷,打开 点击菜单:项目->添加引用

->COM->添加对ThunderAgent 1.0

Type Library的引用

Private ThunderEng As New '创建讯雷调用

对象

1.创建讯雷调用对象