迅雷,_api_接口
迅雷5,6-api-接口
其中用到了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("ThunderAgent.Agent.1") If ThunderAgent Is Nothing Then GoTo Err
Call ThunderAgent.AddTask(网址, 另存为文件名, 保存路径, 下载注释, 引用页, 开始模式, 否只从原始网址下载, 原始地址下载线程数) Call ThunderAgent.CommitTasks2(1) Set ThunderAgent = Nothing 迅雷下载 = True Exit Function
Err:
迅雷下载 = False End Function
Call 迅雷下载("http://www.http://m.njliaohua.com//index.html", "c:\\",
"http://www.http://m.njliaohua.com/")
首先确保电脑已经安装讯雷,打开VS.NET 点击菜单:项目->添加引用->COM->添加对ThunderAgent 1.0
Type Library的引用 1.创建讯雷调用对象
Private ThunderEng As New THUNDERAGENTLib.Agent'创建讯雷调用对象
ThunderEng.AddTask("下载地址", "另存文件名", "保存目录","任务注释","引用地址","开始模式", "
"index.html",
只从原始地址下载","从原始地址下载线程数") '添加下载任务
ThunderEng.CommitTasks()'提交下载任务
2.使用讯雷调用对象查询下载任务信息 sFileSize
=
ThunderEng.GetTaskInfo(txtURL.Text,
"FileSize")'获取下载文件大小 sDownedSize
=
ThunderEng.GetTaskInfo(txtURL.Text,
"CompletedSize")'获取已完成大小 sFileName
=
ThunderEng.GetTaskInfo(txtURL.Text,
"FileName")'获取文件名
二、迅雷平台接口函数定
义
获得信息
1. BSTR GetInfo(BSTR pInfoName)
功能：获得迅雷或平台相关信息
参数：
参数名 含义
pInfoName 信息名称，有如下4种 。“ThunderExists”：迅雷是否存在 。“ThunderRunning”：迅雷是否运行 。“ThunderVersion”：迅雷版本号 。“PlatformVersion”：平台版本号
返回值：返回值是字符串与参数pInfoName有对应关系
参数 返回值
“ThunderExists” “true”存在，“false”不存在 “ThunderRunning” “true” 运行中， “false”未运行 “ThunderVersion” 迅雷版本号 “x.x.x.x” “PlatformVersion” 平台版本号 “x.x.x.x”