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

首先确保电脑已经安装讯雷，打开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);
功能：
往平台加入下载任务信息，