首先确保电脑已经安装讯雷，打开VS.NET 点击菜单：项目->添加引用->COM->添加对ThunderAgent 1.0 Type Library的引用。

1.创建讯雷调用对象

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



ThunderEng.AddTask("下载地址", "另存文件名", "保存目录","任务注释","引用地址","开始模式", "只从原始地址下载","从原始地址下载线程数") '添加下载任务



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”

2. HRESULT GetInfoStruct(INT pInfo)

功能：获取迅雷或平台相关全部信息

参数：

参数名 含义 pInfo 其实是THUNDER_INFO类型的结构指针，调用前把它转换为INT类型；调用后结构中将填充平台信息，定义如下：

typedef struct _THUNDER_INFO

{

BOOL bThunderExists;

BOOL bThunderRunning;

CHAR szThunderVersion[32];

CHAR szPlatformVersion[32];

} THUNDER_INFO;

函数调用后，结构中将填充相应的信息。

返回值：

0 获取成功 非0 获取失败

任务操作

3. 加入任务

HRESULT AddTask

(BSTR pURL,

BSTR pFileName = "",

BSTR pPath = "",

BSTR pComments = "",

BSTR pReferURL = "",

INT nStartMode = -1,

INT nOnlyFromOrigin = 0,

INT nOriginThreadCount = -1);

功能：

往平台加入下载任务信息，此时尚未体现到迅雷中

参数：

参数名 含义 pURL 目标URL，必须参数 pFileName 另存名称，默认为空，表示由迅雷处理，可选参数 pPath 存储目录，默认为空，表示由迅雷处理，可选参数 pComments 下载注释，默认为空，可选参数 pReferURL 引用页URL，默认为空，可选参数 nStartMode 开始模式，0手工开始，1立即开始，默认为-1，表示由迅雷处理，可选参数 nOnlyFromOrigin 是否只从原始URL下载，1只从原始URL下载，0多资源下载，默认为0，可选参数 nOriginThreadCount 原始地址下载线程数，范围1-10，默认为-1，表示由迅雷处理，可选参数

共2页: 1 [2] 下一页

频道声明：本频道的文章除部分特别声明禁止转载的专稿外，可以自由转载.但请务必注明出出处和原始作者 文章版权归本频道与文章作者所有.对于被频道转载文章的个人和网站,我们表示深深的谢意。 原始作者:佚名 录入时间:2007-1-7 17:59:28 信息来源:不详 投稿信箱:itqoo@126.com