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

首先确保电脑已经安装讯雷，打开VS.NET 点击菜单：项目->添加引用->COM->添加对ThunderAgent 1.0 Type Library的引用。@H_403_1@1.创建讯雷调用对象@H_403_1@Private ThunderEng As New THUNDERAGENTLib.Agent'创建讯雷调用对象@H_403_1@@H_403_1@ThunderEng.AddTask("下载地址","另存文件名","保存目录","任务注释","引用地址","开始模式","只从原始地址下载","从原始地址下载线程数") '添加下载任务@H_403_1@@H_403_1@ThunderEng.CommitTasks()'提交下载任务@H_403_1@@H_403_1@2.使用讯雷调用对象查询下载任务信息@H_403_1@sFileSize = ThunderEng.GetTaskInfo(txtURL.Text,"FileSize")'获取下载文件大小@H_403_1@sDownedSize = ThunderEng.GetTaskInfo(txtURL.Text,"CompletedSize")'获取已完成大小@H_403_1@sFileName = ThunderEng.GetTaskInfo(txtURL.Text,"FileName")'获取文件名@H_403_1@二、迅雷平台接口函数定义 @H_403_1@获得信息 @H_403_1@1. BSTR GetInfo(BSTR pInfoName) @H_403_1@功能：获得迅雷或平台相关信息 @H_403_1@参数： @H_403_1@

参数名	含义
pInfoName	信息名称，有如下4种 @H_403_1@◆“ThunderExists”：迅雷是否存在 @H_403_1@◆“ThunderRunning”：迅雷是否运行 @H_403_1@◆“ThunderVersion”：迅雷版本号 @H_403_1@◆“PlatformVersion”：平台版本号

@H_403_1@返回值：返回值是字符串与参数pInfoName有对应关系 @H_403_1@

参数	返回值
“ThunderExists”	“true”存在，“false”不存在
“ThunderRunning”	“true” 运行中， “false”未运行
“ThunderVersion”	迅雷版本号 “x.x.x.x”
“PlatformVersion”	平台版本号 “x.x.x.x”

@H_403_1@ 2. HRESULT GetInfoStruct(INT pInfo) @H_403_1@功能：获取迅雷或平台相关全部信息 @H_403_1@参数： @H_403_1@

参数名

含义

pInfo

其实是THUNDER_INFO类型的结构指针，调用前把它转换为INT类型；调用后结构中将填充平台信息，定义如下： @H_403_1@typedef struct _THUNDER_INFO @H_403_1@{ @H_403_1@BOOL bThunderExists; @H_403_1@BOOL bThunderRunning; @H_403_1@CHAR szThunderVersion[32]; @H_403_1@CHAR szPlatformVersion[32]; @H_403_1@} THUNDER_INFO; @H_403_1@函数调用后，结构中将填充相应的信息。

@H_403_1@返回值： @H_403_1@

0	获取成功
非0	获取失败

任务操作 @H_403_1@3. 加入任务 @H_403_1@HRESULT AddTask @H_403_1@(BSTR pURL,@H_403_1@BSTR pFileName = "",@H_403_1@BSTR pPath = "",@H_403_1@BSTR pComments = "",@H_403_1@BSTR pReferURL = "",@H_403_1@INT nStartMode = -1,@H_403_1@INT nOnlyFromOrigin = 0,@H_403_1@INT nOriginThreadCount = -1); @H_403_1@功能： @H_403_1@往平台加入下载任务信息，此时尚未体现到迅雷中 @H_403_1@参数：

参数名	含义
pURL	目标URL，必须参数
pFileName	另存名称，默认为空，表示由迅雷处理，可选参数
pPath	存储目录，默认为空，表示由迅雷处理，可选参数
pComments	下载注释，默认为空，可选参数
pReferURL	引用页URL，默认为空，可选参数
nStartMode	开始模式，0手工开始，1立即开始，默认为-1，表示由迅雷处理，可选参数
nOnlyFromOrigin	是否只从原始URL下载，1只从原始URL下载，0多资源下载，默认为0，可选参数
nOriginThreadCount	原始地址下载线程数，范围1-10，默认为-1，表示由迅雷处理，可选参数

4. 开始任务 @H_403_1@@H_403_1@HRESULT CommitTaskss() @H_403_1@功能： @H_403_1@把AddTask所加入的下载任务信息真正提交到迅雷中进行下载，并从平台中删除 @H_403_1@注意：如果AddTask添加的任务没有被提交没有被取消（调用CancelTasks），则Agent对象析构时会阻塞，所以调用者不应该残留一些没有被提交或者取消的任务，以避免脚本执行者停止响应。 @H_403_1@5. 取消任务 @H_403_1@HRESULT CancelTasks() @H_403_1@功能： @H_403_1@取消平台中所有由AddTask所加入的下载任务信息 @H_403_1@6. 查询任务信息 @H_403_1@BSTR GetTaskInfo(BSTR pURL,BSTR pInfoName); @H_403_1@参数：

参数名	含义
pURL	所要查询的下载URL信息
pInfoName	状态名称，有如下几种 @H_403_1@◆“Exists”：pURL是否在迅雷的任务列表 @H_403_1@◆“Path”：存储目录 @H_403_1@◆“FileName”：文件名称 @H_403_1@◆“FileSize”：文件大小 @H_403_1@◆“CompletedSize”：已下载大小 @H_403_1@◆“Percent”：下载进度 @H_403_1@◆“Status”：任务状态

@H_403_1@返回值：返回值是字符串与参数pInfoName有对应关系

参数	返回值
“Exists”	”true”存在，”false”不存在
“Path”	存储目录，最后带反斜线/，例：C:/TDDownload/
“FileName”	文件名称
“FileSize”	文件大小，以字节为单位，0表示大小未知
“CompletedSize”	已下载大小，以字节为单位
“Percent”	下载进度，带1位小数，例：70.0
“Status”	任务状态，有以下6种状态 @H_403_1@。“running”：运行状态 @H_403_1@。“stopped”：停止状态 @H_403_1@。“Failed”：失败状态 @H_403_1@。“success”：成功状态 @H_403_1@。“creatingfile”：正在创建数据文件 @H_403_1@。“connecting”：正在连接

@H_403_1@7. GetTaskInfoStruct(INT pTaskInfo) @H_403_1@功能：查询一个任务的所有信息

参数名

含义

pTaskInfo

其实是THUNDER_TASKINFO类型的结构指针，调用前把它转换为INT类型；调用后结构中将填充平台信息，定义如下： @H_403_1@typedef struct _THUNDER_TASKINFO @H_403_1@{ @H_403_1@CHAR szURL[1024]; // 任务URL，预先填充 @H_403_1@BOOL bTaskExists; // 任务是否存在，TRUE为存在 @H_403_1@CHAR szPath[256]; // 下载的本地保存路径 @H_403_1@CHAR szFileName[256]; // 本地文件名 @H_403_1@ULONGLONG nFileSize; // 文件大小 @H_403_1@ULONGLONG nCompletedSize; // 已完成的大小 @H_403_1@CHAR szPercent[16]; // 完成的百分数，用 “56.8”的格式 @H_403_1@CHAR szStatus[16]; // 当前状态，定义同GetTaskInfo函数 @H_403_1@} THUNDER_TASKINFO; @H_403_1@调用者先填充结构中的szURL成员，来指定需要查询的任务的URL，然后等函数返回后就可以从其他成员中取得该任务的信息。

本例所有代码：

Imports System@H_403_1@Imports System.Text@H_403_1@Public Class frmThunderClass frmThunder@H_403_1@Private _iStartMode As Integer '讯雷任务下载开始模式@H_403_1@Private ThunderEng As New THUNDERAGENTLib.Agent '创建讯雷调用对象@H_403_1@Private Sub frmThunder_Load()Sub frmThunder_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load@H_403_1@End Sub@H_403_1@Private Sub btnCancel_Click()Sub btnCancel_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btnCancel.Click@H_403_1@Close()@H_403_1@End Sub@H_403_1@'开始下载任务@H_403_1@Private Sub btnStartDown_Click()Sub btnStartDown_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btnStartDown.Click@H_403_1@Dim iOnlyFromOrigin,iOriginThreadCount As Integer@H_403_1@iOnlyFromOrigin = IIf(chkOnlyFromOrigin.Checked = True,1,0)@H_403_1@iOriginThreadCount = CInt(txtOriginThreadCounts.Text)@H_403_1@If chkDefault.Checked Then@H_403_1@iOriginThreadCount = -1@H_403_1@End If@H_403_1@ThunderEng.AddTask(txtURL.Text,txtSaveAsFileName.Text,txtSaveDir.Text,
txtComment.Text,_txtReferencePage.Text,_iStartMode,iOnlyFromOrigin,
iOriginThreadCount)@H_403_1@ThunderEng.CommitTasks()@H_403_1@Timer1.Enabled = True@H_403_1@End Sub@H_403_1@Private Sub radMaual_Click()Sub radMaual_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles radMaual.Click,radImmediate.Click,
radDefault.Click@H_403_1@Dim rad As RadioButton = CType(sender,RadioButton)@H_403_1@_iStartMode = CInt(rad.Tag)@H_403_1@End Sub@H_403_1@'当任务开始时定时查询任务下载信息@H_403_1@Private Sub Timer1_Tick()Sub Timer1_Tick(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Timer1.Tick@H_403_1@Dim sFileSize,sDownedSize,sStatus,sFileName,sPercent As String@H_403_1@Try@H_403_1@sStatus = ThunderEng.GetTaskInfo(txtURL.Text,"Status")@H_403_1@sFileSize = ThunderEng.GetTaskInfo(txtURL.Text,"FileSize")@H_403_1@sDownedSize = ThunderEng.GetTaskInfo(txtURL.Text,"CompletedSize")@H_403_1@sFileName = ThunderEng.GetTaskInfo(txtURL.Text,"FileName")@H_403_1@lblDownedSize.Text = String.Format(lblDownedSize.Tag,sDownedSize)@H_403_1@lblFileSize.Text = String.Format(lblFileSize.Tag,sFileSize)@H_403_1@lblTaskStatus.Text = String.Format(lblTaskStatus.Tag,sStatus)@H_403_1@lblFilename.Text = String.Format(lblFilename.Tag,sFileName)@H_403_1@sPercent = ThunderEng.GetTaskInfo(txtURL.Text,"Percent") '获取下载百分比@H_403_1@lblProgress.Text = String.Format(lblProgress.Tag,
sPercent.Remove(3,Len(sPercent) - 3))@H_403_1@Catch ex As Exception@H_403_1@End Try@H_403_1@End Sub@H_403_1@Private Sub chkOnlyFromOrigin_CheckedChanged_1()Sub 
chkOnlyFromOrigin_CheckedChanged_1(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles chkOnlyFromOrigin.CheckedChanged@H_403_1@Panel1.Enabled = chkOnlyFromOrigin.Checked@H_403_1@End Sub@H_403_1@Private Sub GroupBox1_Enter()Sub GroupBox1_Enter(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles GroupBox1.EnterEnd SubEnd Class

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

猜你在找的VB相关文章