用户名: 密码: 免费注册 忘记密码? 网站地图 | 加入收藏 | 设为首页
首页 | 新闻 | 工具 | 系统 | 办公 | 聊天 | 多媒体 | 网页 | 运营 | 平面 | 欣赏 | 数据库 | 程序 | 服务器 | 组网
网页 | 3dmax | Ghost | Windows Xp| Dreamweaver | photoshop | Flash | office | Alexa | Css | QQ | Asp | PHP | Jsp | Access
Flash MX 2004入门 | 网站推广策略 | CorelDRAW入门 | ASP学习 | 网站建设大师功 | Word入门
  iTbulo.com > 学院 > 程序开发教程 > Visual Basic教程 > Visual Basic实例教程 > 文章正文
VB.NET编程调用讯雷下载文件
iTbulo.COM 2007-1-1 丐帮帮主()
首先确保电脑已经安装讯雷,打开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 获取失败

[1] [2] [3] 下一页

文章搜索
相关资讯
相关文章 相关下载
C#利用正则表达式实现字符串搜索
Sql Server中Image类型字段在VB.NET中的读写操作
定制VB.NET控件编程之拦截击键动作
定制VB.NET控件编程之拦截击键动作
焦点信息