社区
VB基础类
帖子详情
如何使用THUNDERAGENT 控件
zao1999
2008-07-09 10:33:02
如何使用THUNDERAGENT 控件 ???
...全文
526
7
打赏
收藏
如何使用THUNDERAGENT 控件
如何使用THUNDERAGENT 控件 ???
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
flyingstarwb
2009-02-23
打赏
举报
回复
我用的迅雷版本是5.8.6.738
现在在出现一个问题:
通过THUNDERAGENT 可以进行任务的添加,但是不能使用它来查看任务的状态。是不是有什么限制情况啊?
网上的代码都是一个VB.NET的版本
我用VB.NET把网上的源码copy下来,构造了一个界面,结果还是不能获取到任务状态》不晓得VC可以不?
vansoft
2008-07-11
打赏
举报
回复
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,表示由迅雷处理,可选参数
4. 开始任务
HRESULT CommitTaskss()
功能:
把AddTask所加入的下载任务信息真正提交到迅雷中进行下载,并从平台中删除
注意:如果AddTask添加的任务没有被提交没有被取消(调用CancelTasks),则Agent对象析构时会阻塞,所以调用者不应该残留一些没有被提交或者取消的任务,以避免脚本执行者停止响应。
5. 取消任务
HRESULT CancelTasks()
功能:
取消平台中所有由AddTask所加入的下载任务信息
6. 查询任务信息
BSTR GetTaskInfo(BSTR pURL,BSTR pInfoName);
参数:
参数名 含义
pURL 所要查询的下载URL信息
pInfoName 状态名称,有如下几种
。“Exists”:pURL是否在迅雷的任务列表
。“Path”:存储目录
。“FileName”:文件名称
。“FileSize”:文件大小
。“CompletedSize”:已下载大小
。“Percent”:下载进度
。“Status”:任务状态
返回值: 返回值是字符串与参数pInfoName有对应关系
参数 返回值
“Exists” ”true”存在,”false”不存在
“Path” 存储目录,最后带反斜线,例:C:TDDownload
“FileName” 文件名称
“FileSize” 文件大小,以字节为单位,0表示大小未知
“CompletedSize” 已下载大小,以字节为单位
“Percent” 下载进度,带1位小数,例:70.0
“Status” 任务状态,有以下6种状态
。“running”: 运行状态
。“stopped”: 停止状态
。“failed”: 失败状态
。“success”: 成功状态
。“creatingfile”:正在创建数据文件
。“connecting”: 正在连接
7. GetTaskInfoStruct(INT pTaskInfo)
功能:查询一个任务的所有信息
参数名 含义
pTaskInfo 其实是THUNDER_TASKINFO类型的结构指针,调用前把它转换为INT类型;调用后结构中将填充平台信息,定义如下:
typedef struct _THUNDER_TASKINFO
{
CHAR szURL[1024]; // 任务URL,预先填充
BOOL bTaskExists; // 任务是否存在,TRUE为存在
CHAR szPath[256]; // 下载的本地保存路径
CHAR szFileName[256]; // 本地文件名
ULONGLONG nFileSize; // 文件大小
ULONGLONG nCompletedSize; // 已完成的大小
CHAR szPercent[16]; // 完成的百分数,用 “56.8”的格式
CHAR szStatus[16]; // 当前状态,定义同GetTaskInfo函数
} THUNDER_TASKINFO;
调用者先填充结构中的szURL成员,来指定需要查询的任务的URL,然后等函数返回后就可以从其他成员中取得该任务的信息。
vansoft
2008-07-11
打赏
举报
回复
迅雷平台接口函数定义
获得信息
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 获取失败
vansoft
2008-07-11
打赏
举报
回复
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")'获取文件名
zao1999
2008-07-11
打赏
举报
回复
能否举一实例
我在创建讯雷调用对象时就出错
游子
2008-07-11
打赏
举报
回复
正常使用。。。
zao1999
2008-07-11
打赏
举报
回复
谢谢!
我是用VB6 是否一样
我在部件加载THUNDERAGENT 控件 后不能将它拖入表单中,VB6出现错误对话框,不知何故,请指教!!!
调用
Thunde
rAgen
t,实现迅雷局域网版的开发
对于个人家庭用户,
使用
迅雷可以最大化利用带宽,但这种方式在... 笔者通过对迅雷提供的组件(
Thunde
rAgen
t)的研究,开发了一个B/S程序,实现客户端提交链接,服务端调用迅雷下载,实现对迅雷带宽占用的统一管理。
python调用迅雷从excel中下载mp4链接并重命名
在excel中,一列是MP4的下载地址,一列是mp4对应的视频名称,
使用
迅雷把mp4和名字对应并且下载 2.环境配置: win10 专业版64位 python3.7 迅雷10 3.代码实现: from win32com.client import Dispatch import xlrd # ...
迅雷
迅雷
python调用迅雷sdk实现迅雷下载
python调用迅雷sdk实现迅雷下载,不需要安装迅雷实现迅雷下载,所有调用的接口具体介绍,参考迅雷云加速开放平台文档 ...迅雷SDK只提供了32位的版本.所以python版本必须为32位版本 本代码在python3实现
迅雷API接口_通过脚本调用迅雷自动下载资源
代码如下:Set
Thunde
rAgen
t = CreateObject(
Thunde
rAgen
t.Agent.1) Call
Thunde
rAgen
t.AddTask(//www.jb51.net/files/bjhyn.mp3,北京欢迎你.mp3,c:\a\,,http://www.readlog.cn,1,0,5) Call
VB基础类
7,765
社区成员
197,605
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章