??1在做抓取的時(shí)候，不知道什么原因，無(wú)法直接抓到，于是想到調(diào)用迅雷下載，這個(gè)是網(wǎng)站上找的，沒(méi)想到還很好用，我只是使用了簡(jiǎn)單的下載文件功能。
??2
??3【導(dǎo)讀】本文詳細(xì)講解了使用VB.NET編程來(lái)調(diào)用訊雷下載文件的過(guò)程和步驟。內(nèi)容包括：創(chuàng)建訊雷調(diào)用對(duì)象、使用訊雷調(diào)用對(duì)象查詢下載任務(wù)信息、迅雷平臺(tái)接口函數(shù)定義等。
??4
??5??
??6首先確保電腦已經(jīng)安裝訊雷，打開(kāi)VS.NET?點(diǎn)擊菜單：項(xiàng)目->添加引用->COM->添加對(duì)ThunderAgent?1.0?Type?Library的引用。
??7
??81.創(chuàng)建訊雷調(diào)用對(duì)象
??9
?10Private?ThunderEng?As?New?THUNDERAGENTLib.Agent'創(chuàng)建訊雷調(diào)用對(duì)象
?11
?12
?13
?14ThunderEng.AddTask("下載地址",?"另存文件名",?"保存目錄","任務(wù)注釋","引用地址","開(kāi)始模式",?"只從原始地址下載","從原始地址下載線程數(shù)")?'添加下載任務(wù)
?15
?16
?17
?18ThunderEng.CommitTasks()'提交下載任務(wù)
?19
?20
?21
?222.使用訊雷調(diào)用對(duì)象查詢下載任務(wù)信息
?23
?24sFileSize?=?ThunderEng.GetTaskInfo(txtURL.Text,?"FileSize")'獲取下載文件大小
?25
?26sDownedSize?=?ThunderEng.GetTaskInfo(txtURL.Text,?"CompletedSize")'獲取已完成大小
?27
?28sFileName?=?ThunderEng.GetTaskInfo(txtURL.Text,?"FileName")'獲取文件名
?29
?30二、迅雷平臺(tái)接口函數(shù)定義?
?31
?32獲得信息?
?33
?341.?BSTR?GetInfo(BSTR?pInfoName)?
?35
?36功能：獲得迅雷或平臺(tái)相關(guān)信息?
?37
?38參數(shù)：?
?39
?40參數(shù)名?含義?
?41pInfoName?信息名稱，有如下4種?
?42
?43◆“ThunderExists”：迅雷是否存在?
?44
?45◆“ThunderRunning”：迅雷是否運(yùn)行?
?46
?47◆“ThunderVersion”：迅雷版本號(hào)?
?48
?49◆“PlatformVersion”：平臺(tái)版本號(hào)??
?50
?51
?52返回值：返回值是字符串與參數(shù)pInfoName有對(duì)應(yīng)關(guān)系?
?53
?54參數(shù)?返回值?
?55“ThunderExists”?“true”存在，“false”不存在?
?56“ThunderRunning”?“true”?運(yùn)行中，?“false”未運(yùn)行?
?57“ThunderVersion”?迅雷版本號(hào)?“x.x.x.x”?
?58“PlatformVersion”?平臺(tái)版本號(hào)?“x.x.x.x”?
?59
?60
?612.?HRESULT?GetInfoStruct(INT?pInfo)?
?62
?63功能：獲取迅雷或平臺(tái)相關(guān)全部信息?
?64
?65參數(shù)：?
?66
?67參數(shù)名?含義?
?68pInfo?其實(shí)是THUNDER_INFO類(lèi)型的結(jié)構(gòu)指針，調(diào)用前把它轉(zhuǎn)換為INT類(lèi)型；調(diào)用后結(jié)構(gòu)中將填充平臺(tái)信息，定義如下：?
?69
?70typedef?struct?_THUNDER_INFO?
?71
?72{?
?73
?74BOOL?bThunderExists;?
?75
?76BOOL?bThunderRunning;?
?77
?78CHAR?szThunderVersion[32];?
?79
?80CHAR?szPlatformVersion[32];?
?81
?82}?THUNDER_INFO;?
?83
?84函數(shù)調(diào)用后，結(jié)構(gòu)中將填充相應(yīng)的信息。??
?85
?86
?87返回值：?
?88
?890?獲取成功?
?90非0?獲取失敗?
?91
?92
?93任務(wù)操作?
?94
?953.?加入任務(wù)?
?96
?97HRESULT?AddTask?
?98
?99(BSTR?pURL,?
100
101BSTR?pFileName?=?"",?
102
103BSTR?pPath?=?"",?
104
105BSTR?pComments?=?"",?
106
107BSTR?pReferURL?=?"",?
108
109INT?nStartMode?=?-1,?
110
111INT?nOnlyFromOrigin?=?0,?
112
113INT?nOriginThreadCount?=?-1);?
114
115功能：?
116
117往平臺(tái)加入下載任務(wù)信息，此時(shí)尚未體現(xiàn)到迅雷中?
118
119參數(shù)：?
120
121
122
123參數(shù)名?含義?
124pURL?目標(biāo)URL，必須參數(shù)?
125pFileName?另存名稱，默認(rèn)為空，表示由迅雷處理，可選參數(shù)?
126pPath?存儲(chǔ)目錄，默認(rèn)為空，表示由迅雷處理，可選參數(shù)?
127pComments?下載注釋，默認(rèn)為空，可選參數(shù)?
128pReferURL?引用頁(yè)URL，默認(rèn)為空，可選參數(shù)?
129nStartMode?開(kāi)始模式，0手工開(kāi)始，1立即開(kāi)始，默認(rèn)為-1，表示由迅雷處理，可選參數(shù)?
130nOnlyFromOrigin?是否只從原始URL下載，1只從原始URL下載，0多資源下載，默認(rèn)為0，可選參數(shù)?
131nOriginThreadCount?原始地址下載線程數(shù)，范圍1-10，默認(rèn)為-1，表示由迅雷處理，可選參數(shù)?
132
133
134
135?
136
137?
138
1394.?開(kāi)始任務(wù)?
140
141
142
143HRESULT?CommitTaskss()?
144
145功能：?
146
147把AddTask所加入的下載任務(wù)信息真正提交到迅雷中進(jìn)行下載，并從平臺(tái)中刪除?
148
149注意：如果AddTask添加的任務(wù)沒(méi)有被提交沒(méi)有被取消（調(diào)用CancelTasks），則Agent對(duì)象析構(gòu)時(shí)會(huì)阻塞，所以調(diào)用者不應(yīng)該殘留一些沒(méi)有被提交或者取消的任務(wù)，以避免腳本執(zhí)行者停止響應(yīng)。?
150
1515.?取消任務(wù)?
152
153HRESULT?CancelTasks()?
154
155功能：?
156
157取消平臺(tái)中所有由AddTask所加入的下載任務(wù)信息?
158
1596.?查詢?nèi)蝿?wù)信息?
160
161BSTR?GetTaskInfo(BSTR?pURL,BSTR?pInfoName);?
162
163參數(shù)：?
164
165
166
167參數(shù)名?含義?
168pURL?所要查詢的下載URL信息?
169pInfoName?狀態(tài)名稱，有如下幾種?
170
171◆“Exists”：pURL是否在迅雷的任務(wù)列表?
172
173◆“Path”：存儲(chǔ)目錄?
174
175◆“FileName”：文件名稱?
176
177◆“FileSize”：文件大小?
178
179◆“CompletedSize”：已下載大小?
180
181◆“Percent”：下載進(jìn)度?
182
183◆“Status”：任務(wù)狀態(tài)??
184
185
186
187
188返回值：?返回值是字符串與參數(shù)pInfoName有對(duì)應(yīng)關(guān)系?
189
190
191
192參數(shù)?返回值?
193“Exists”?”true”存在，”false”不存在?
194“Path”?存儲(chǔ)目錄，最后帶反斜線\，例：C:\TDDownload\?
195“FileName”?文件名稱?
196“FileSize”?文件大小，以字節(jié)為單位，0表示大小未知?
197“CompletedSize”?已下載大小，以字節(jié)為單位?
198“Percent”?下載進(jìn)度，帶1位小數(shù)，例：70.0?
199“Status”?任務(wù)狀態(tài)，有以下6種狀態(tài)?
200
201。“running”：?運(yùn)行狀態(tài)?
202
203。“stopped”：?停止?fàn)顟B(tài)?
204
205。“failed”：?失敗狀態(tài)?
206
207。“success”：?成功狀態(tài)?
208
209。“creatingfile”：正在創(chuàng)建數(shù)據(jù)文件?
210
211。“connecting”：?正在連接??
212
213
214
215
2167.?GetTaskInfoStruct(INT?pTaskInfo)?
217
218功能：查詢一個(gè)任務(wù)的所有信息?
219
220
221
222參數(shù)名?含義?
223pTaskInfo?其實(shí)是THUNDER_TASKINFO類(lèi)型的結(jié)構(gòu)指針，調(diào)用前把它轉(zhuǎn)換為INT類(lèi)型；調(diào)用后結(jié)構(gòu)中將填充平臺(tái)信息，定義如下：?
224
225typedef?struct?_THUNDER_TASKINFO?
226
227{?
228
229CHAR?szURL[1024];?//?任務(wù)URL，預(yù)先填充?
230
231BOOL?bTaskExists;?//?任務(wù)是否存在，TRUE為存在?
232
233CHAR?szPath[256];?//?下載的本地保存路徑?
234
235CHAR?szFileName[256];?//?本地文件名?
236
237ULONGLONG?nFileSize;?//?文件大小?
238
239ULONGLONG?nCompletedSize;?//?已完成的大小?
240
241CHAR?szPercent[16];?//?完成的百分?jǐn)?shù)，用?“56.8”的格式?
242
243CHAR?szStatus[16];?//?當(dāng)前狀態(tài)，定義同GetTaskInfo函數(shù)?
244
245}?THUNDER_TASKINFO;?
246
247調(diào)用者先填充結(jié)構(gòu)中的szURL成員，來(lái)指定需要查詢的任務(wù)的URL，然后等函數(shù)返回后就可以從其他成員中取得該任務(wù)的信息。??
248
249
250本例所有代碼：
251
252????????????Imports?SystemImports?System.TextPublic?Class?frmThunderClassClass?frmThunderClass?frmThunderPrivate?_iStartMode?As?Integer?'訊雷任務(wù)下載開(kāi)始模式Private?ThunderEng?As?New?THUNDERAGENTLib.Agent?'創(chuàng)建訊雷調(diào)用對(duì)象Private?Sub?frmThunder_Load()Sub?frmThunder_Load(ByVal?sender?As?System.Object,?
253????????????ByVal?e?As?System.EventArgs)?Handles?MyBase.LoadEnd?SubPrivate?Sub?btnCancel_Click()Sub?btnCancel_Click()Sub?btnCancel_Click()Sub?btnCancel_Click(ByVal?sender?As?System.Object,?
254????????????ByVal?e?As?System.EventArgs)?Handles?btnCancel.ClickClose()End?Sub'開(kāi)始下載任務(wù)Private?Sub?btnStartDown_Click()Sub?btnStartDown_Click(ByVal?sender?As?System.Object,?
255????????????ByVal?e?As?System.EventArgs)?Handles?btnStartDown.ClickDim?iOnlyFromOrigin,?iOriginThreadCount?As?IntegeriOnlyFromOrigin?=?IIf(chkOnlyFromOrigin.Checked?=?True,?1,?0)iOriginThreadCount?=?CInt(txtOriginThreadCounts.Text)If?chkDefault.Checked?TheniOriginThreadCount?=?-1End?IfThunderEng.AddTask(txtURL.Text,?txtSaveAsFileName.Text,?txtSaveDir.Text,?
256????????????txtComment.Text,?_?txtReferencePage.Text,?_iStartMode,?iOnlyFromOrigin,?
257????????????iOriginThreadCount)ThunderEng.CommitTasks()Timer1.Enabled?=?TrueEnd?SubPrivate?Sub?radMaual_Click()Sub?radMaual_Click()Sub?radMaual_Click()Sub?radMaual_Click(ByVal?sender?As?System.Object,?
258????????????ByVal?e?As?System.EventArgs)?Handles?radMaual.Click,?radImmediate.Click,?
259????????????radDefault.ClickDim?rad?As?RadioButton?=?CType(sender,?RadioButton)_iStartMode?=?CInt(rad.Tag)End?Sub'當(dāng)任務(wù)開(kāi)始時(shí)定時(shí)查詢?nèi)蝿?wù)下載信息Private?Sub?Timer1_Tick()Sub?Timer1_Tick(ByVal?sender?As?System.Object,?
260????????????ByVal?e?As?System.EventArgs)?Handles?Timer1.TickDim?sFileSize,?sDownedSize,?sStatus,?sFileName,?sPercent?As?StringTrysStatus?=?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,?
261????????????sPercent.Remove(3,?Len(sPercent)?-?3))Catch?ex?As?ExceptionEnd?TryEnd?SubPrivate?Sub?chkOnlyFromOrigin_CheckedChanged_1()Sub?chkOnlyFromOrigin_CheckedChanged_1()Sub?chkOnlyFromOrigin_CheckedChanged_1()Sub?
262????????????chkOnlyFromOrigin_CheckedChanged_1(ByVal?sender?As?System.Object,?
263????????????ByVal?e?As?System.EventArgs)?Handles?chkOnlyFromOrigin.CheckedChangedPanel1.Enabled?=?chkOnlyFromOrigin.CheckedEnd?SubPrivate?Sub?GroupBox1_Enter()Sub?GroupBox1_Enter()Sub?GroupBox1_Enter()Sub?GroupBox1_Enter(ByVal?sender?As?System.Object,?
264????????????ByVal?e?As?System.EventArgs)?Handles?GroupBox1.EnterEnd?SubEnd?Class?Class
265?
266
267

轉(zhuǎn)載于:https://www.cnblogs.com/wubiyu/archive/2007/09/19/899152.html

總結(jié)

以上是生活随笔為你收集整理的[转]迅雷组件的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。