首先确保电脑已经安装讯雷，打开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有对应关系

　　2. HRESULT GetInfoStruct(INT pInfo)

　　功能：获取迅雷或平台相关全部信息

　　参数：

　　返回值：

　　任务操作

　　3. 加入任务

　　HRESULT AddTask

　　(BSTR pURL,

　　BSTR pFileName = "",

　　BSTR pPath = "",

　　BSTR pComments = "",

　　BSTR pReferURL = "",

　　INT nStartMode = -1,

　　INT nOnlyFromOrigin = 0,

　　INT nOriginThreadCount = -1);

　　功能：

　　往平台加入下载任务信息，此时尚未体现到迅雷中

　　参数：

　　4. 开始任务

　　HRESULT CommitTaskss()

　　功能：

　　把AddTask所加入的下载任务信息真正提交到迅雷中进行下载，并从平台中删除

　　注意：如果AddTask添加的任务没有被提交没有被取消（调用CancelTasks），则Agent对象析构时会阻塞，所以调用者不应该残留一些没有被提交或者取消的任务，以避免脚本执行者停止响应。

　　5. 取消任务

　　HRESULT CancelTasks()

　　功能：

　　取消平台中所有由AddTask所加入的下载任务信息

　　6. 查询任务信息

　　BSTR GetTaskInfo(BSTR pURL,BSTR pInfoName);

　　参数：

　　返回值： 返回值是字符

　　串与参数pInfoName有对应关系

　　7. GetTaskInfoStruct(INT pTaskInfo)

　　功能：查询一个任务的所有信息

　　本例所有代码：

Imports　System
Imports　System.Text
Public　Class　frmThunderClass　frmThunder
Private　_iStartMode　As　Integer　'讯雷任务下载开始模式
Private　ThunderEng　As　New　THUNDERAGENTLib.Agent　'创建讯雷调用对象
Private　Sub　frmThunder_Load()Sub　frmThunder_Load(ByVal　sender　As　System.Object,　

ByVal　e　As　System.EventArgs)　Handles　MyBase.Load
End　Sub
Private　Sub　btnCancel_Click()Sub　btnCancel_Click(ByVal　sender　As　System.Object,　

ByVal　e　As　System.EventArgs)　Handles　btnCancel.Click
Close()
End　Sub
'开始下载任务
Private　Sub　btnStartDown_Click()Sub　btnStartDown_Click(ByVal　sender　As　System.Object,　

ByVal　e　As　System.EventArgs)　Handles　btnStartDown.Click
Dim　iOnlyFromOrigin,　iOriginThreadCount　As　Integer
iOnlyFromOrigin　=　IIf(chkOnlyFromOrigin.Checked　=　True,　1,　0)
iOriginThreadCount　=　CInt(txtOriginThreadCounts.Text)
If　chkDefault.Checked　Then
iOriginThreadCount　=　-1
End　If
ThunderEng.AddTask(txtURL.Text,　txtSaveAsFileName.Text,　txtSaveDir.Text,　

txtComment.Text,　_　txtReferencePage.Text,　_iStartMode,　iOnlyFromOrigin,　

iOriginThreadCount)
ThunderEng.CommitTasks()
Timer1.Enabled　=　True
End　Sub
Private　Sub　radMaual_Click()Sub　radMaual_Click(ByVal　sender　As　System.Object,　

ByVal　e　As　System.EventArgs)　Handles　radMaual.Click,　radImmediate.Click,　

radDefault.Click
Dim　rad　As　RadioButton　=　CType(sender,　RadioButton)
_iStartMode　=　CInt(rad.Tag)
End　Sub
'当任务开始时定时查询任务下载信息
Private　Sub　Timer1_Tick()Sub　Timer1_Tick(ByVal　sender　As　System.Object,　

ByVal　e　As　System.EventArgs)　Handles　Timer1.Tick
Dim　sFileSize,　sDownedSize,　sStatus,　sFileName,　sPercent　As　String
Try
sStatus　=　ThunderEng.GetTaskInfo(txtURL.Text,　"Status")
sFileSize　=　ThunderEng.GetTaskInfo(txtURL.Text,　"FileSize")
sDownedSize　=　ThunderEng.GetTaskInfo(txtURL.Text,　"CompletedSize")
sFileName　=　ThunderEng.GetTaskInfo(txtURL.Text,　"FileName")
lblDownedSize.Text　=　String.Format(lblDownedSize.Tag,　sDownedSize)
lblFileSize.Text　=　String.Format(lblFileSize.Tag,　sFileSize)
lblTaskStatus.Text　=　String.Format(lblTaskStatus.Tag,　sStatus)
lblFilename.Text　=　String.Format(lblFilename.Tag,　sFileName)
sPercent　=　ThunderEng.GetTaskInfo(txtURL.Text,　"Percent")　'获取下载百分比
lblProgress.Text　=　String.Format(lblProgress.Tag,　

sPercent.Remove(3,　Len(sPercent)　-　3))
Catch　ex　As　Exception
End　Try
End　Sub
Private　Sub　chkOnlyFromOrigin_CheckedChanged_1()Sub　

chkOnlyFromOrigin_CheckedChanged_1(ByVal　sender　As　System.Object,　

ByVal　e　As　System.EventArgs)　Handles　chkOnlyFromOrigin.CheckedChanged
Panel1.Enabled　=　chkOnlyFromOrigin.Checked
End　Sub
Private　Sub　GroupBox1_Enter()Sub　GroupBox1_Enter(ByVal　sender　As　System.Object,　

ByVal　e　As　System.EventArgs)　Handles　GroupBox1.Enter
End　Sub
End　Class