admin管理员组

文章数量:1530847

2024年6月25日发(作者：)

附：其中用到了AddTask这个方法，这个方法的参数如下：AddTask("下载地址", "另存

文件名", "保存目录","任务注释","引用地址","开始模式", "只从原始地址下载","从原始地

址下载线程数") 。

参数名含义

pURL目标URL，必须参数

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

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

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

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

nStartMode开始模式，0手工开始，1立即开始，默认为-1，表示由迅雷处理，可选参数

nOnlyFromOrigin是否只从原始URL下载，1只从原始URL下载，0多资源下载，默认

为0，可选参数

nOriginThreadCount原始地址下载线程数，范围1-10，默认为-1，表示由迅雷处理，

可选参数

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

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的引用

1.创建讯雷调用对象

Private ThunderEng As New '创建讯雷调用对象

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

开始模式", "

只从原始地址下载","从原始地址下载线程数") '添加下载任务

Tasks()'提交下载任务

2.使用讯雷调用对象查询下载任务信息

sFileSize = kInfo(, "FileSize")'获取下载文件大小

sDownedSize = kInfo(, "CompletedSize")'获取已

完成大小

sFileName = kInfo(, "FileName")'获取文件名

二、迅雷平台接口函数定义

获得信息

1. BSTR GetInfo(BSTR pInfoName)

功能：获得迅雷或平台相关信息

参数：

参数名 含义

pInfoName 信息名称，有如下4种

。“ThunderExists”：迅雷是否存在

。“ThunderRunning”：迅雷是否运行

。“ThunderVersion”：迅雷版本号

。“PlatformVersion”：平台版本号

返回值：返回值是字符串与参数pInfoName有对应关系

参数 返回值

“ThunderExists” “true”存在，“false”不存在

本文标签： 下载迅雷参数原始

版权声明：本文标题：迅雷API接口 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dianzi/1719269241a767511.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。