VB.NET编程调用讯雷下载文件

来源:网络时间:2011-04-25

  首先确保电脑已经安装讯雷,打开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 获取失败

发表评论

最新评论(共0条)