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

来源：博客园作者：出处：巧巧读书 2007-03-18 进入讨论组

关键词：
vb.net

下一页 1 2

　　首先确保电脑已经安装讯雷,打开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; 函数调用后，结构中将填充相应的信息。