| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net应用技巧 >> 技术文摘正文
最新推荐 更多内容
[组图]调用讯雷下载文件的VB.Net实现方法
调用讯雷下载文件的VB.Net实现方法
作者:丐帮帮主    来源:博客园     更新时间:2008-1-15
  首先确保电脑已经安装讯雷,打开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,表示由迅雷处理,可选参数

[1] [2] 下一页

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    没有相关技术文摘

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]