admin管理员组文章数量:1557627
2024年4月22日发(作者:)
迅雷THUNDERAGENT api 接口
其中用到了AddTask这个方法,这个方法的参数如下:AddTask("下
载地址", "另存文件名", "保存目录","任务注释","引用地址","开
始模式", "只从原始地址下载","从原始地址下载线程数") 。
参数名含义
pURL目标URL,必须参数
pFileName另存名称,默认为空,表示由迅雷处理,可选参数
pPath存储目录,默认为空,表示由迅雷处理,可选参数
pComments下载注释,默认为空,可选参数
pReferURL引用页URL,默认为空,可选参数
迅雷处理,可选参数
nStartMode开始模式,0手工开始,1立即开始,默认为-1,表示由
nOnlyFromOrigin是否只从原始URL下载,1只从原始URL下载,0
多资源下载,默认为0,可选参数
表示由迅雷处理,可选参数
Public Function 迅雷下载(网址 As String, Optional 保存路径
As String, Optional 另存为文件名 As String, Optional 下载注
释 As String, Optional 引用页 As String, Optional 开始模式 As
Long = 1, Optional 否只从原始网址下载 As Boolean = False,
Optional 原始地址下载线程数 As Long = 5) As Boolean
nOriginThreadCount原始地址下载线程数,范围1-10,默认为-1,
On Error GoTo Err
Dim ThunderAgent
'nStartMode开始模式,0手工开始,1立即开始,默认为-1,表示
由迅雷处理,可选参数
'nOnlyFromOrigin是否只从原始URL下载,1只从原始URL下载,0
多资源下载,默认为0,可选参数
表示由迅雷处理,可选参数
'nOriginThreadCount原始地址下载线程数,范围1-10,默认为-1,
Set ThunderAgent = CreateObject(".1")
If ThunderAgent Is Nothing Then GoTo Err
Call k(网址, 另存为文件名, 保存路径, 下
载注释, 引用页, 开始模式, 否只从原始网址下载, 原始地址下载
线程数)
Call Tasks2(1)
Set ThunderAgent = Nothing
迅雷下载 = True
Exit Function
Err:
迅雷下载 = False
End Function
Call 迅雷下载("/", "c:",
"", "")
首先确保电脑已经安装讯雷,打开 点击菜单:项目->添加引用
->COM->添加对ThunderAgent 1.0
Type Library的引用
Private ThunderEng As New '创建讯雷调用
对象
1.创建讯雷调用对象
版权声明:本文标题:迅雷thunderagentapi接口[新版] 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://m.elefans.com/dongtai/1713769311a370308.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论