首先確保電腦已經安裝訊雷，打開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，表示由迅雷處理，可選參數
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，然後等函數返回後就可以從其他成員中取得該任務的信息。
本例所有代碼：
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
