【正文】 ncelHandler 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 24 頁 共 58 頁 Else = 請(qǐng)選擇導(dǎo)出收藏夾的文件： On Error GoTo CancelHandler End If fImport, 39。 (3)Document 屬性：該屬性用于獲取網(wǎng)頁的內(nèi)容。 (11)Stop 方法：該方法用于停止瀏覽當(dāng)前頁面。 (2)HTMLBody 對(duì)象：該對(duì)象代表網(wǎng)頁中正文 (即“＜ body＞” )標(biāo)記，其常用屬性和方法如下所述： background 屬性：該屬性返回網(wǎng)頁的背景圖片。 images屬性：該屬性返回網(wǎng)頁包含的所有圖片對(duì)象。 (6)HTMLTableCell 對(duì)象：該對(duì)象可獲取 HTML 表格中的單元格對(duì)象 (即“＜ TD＞”標(biāo)記中包含的內(nèi)容 )，在控制表格對(duì)象后，需結(jié)合該對(duì)象來進(jìn)一步獲取所需的網(wǎng)頁文字，其常用屬性和方法如下所述： cellIndex 屬性：該屬性返回單元格的編號(hào)。 span屬性：該屬性返回表格列的合并數(shù)。如頁面包含多個(gè)框架，則每個(gè)框架完成時(shí)均會(huì)觸發(fā) DocumentComplete事件，當(dāng)所有子框架均完成后，主框架產(chǎn)生DocumentComplete 事件。 (5)為逐行、列獲取數(shù)據(jù)，還需使用 HTMLTableRow 和HTMLTableCell 對(duì)象對(duì)表格行和單元格進(jìn)行操作。 (2)scripts 集合：該集合代表頁面中的所有腳本。隨后在代碼窗口中可用“ Dim”語句定義變量，在“ As”關(guān)鍵字后，輸入“ New”關(guān)鍵字和空格，隨 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 34 頁 共 58 頁 后代碼編輯器會(huì)提示可通過“ New”關(guān)鍵字定義的對(duì)象。 在注冊(cè)表的“ HKEY_CURRENT_USER\Software\Microsoft\Inter Explorer\MenuExt”下建立新項(xiàng)，命名為“資源分析”，值為對(duì)應(yīng)的腳本文件。遍歷 列表框，獲取選擇的圖片 j = 0 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 42 頁 共 58 頁 For i = 0 To 1 If (i) = True Then j = j + 1 End If Next i ReDim params(j * 2) params(0) = strurl j = 0 For i = 0 To 1 If (i) = True Then params(j * 2 + 1) = (i) params(j * 2 + 2) = 圖片 j = j + 1 End If Next I 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 43 頁 共 58 頁 39?！笆褂镁W(wǎng)際快車下載”按鈕單擊事件過程 Private Sub cmdflashget_Click() On Error Resume Next If alue = True Then Call useflashdownpic Else Call useflashdownlink End If End Sub 39。類的初始化事件 Private Sub Class_Initialize() 39。添加鏈接的過程 Public Sub addlink(ByVal link As String) Dim j As Integer Dim same As Boolean same = False 39。 d、添加表單和相關(guān)控件的方法。使用網(wǎng)際快車下載鏈接的過程 Sub useflashdownlink() On Error Resume Next Dim JetCarCatch As Object Dim i, j As Integer Set JetCarCatch = CreateObject() If Err ＜＞ 0 Then MsgBox 未正確安裝網(wǎng)際快車！ Else j = 0 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 46 頁 共 58 頁 For i = 0 To 1 If (i) = True Then j = j + 1 End If Next i ReDim params(j * 2) params(0) = strurl j = 0 For i = 0 To 1 If (i) = True Then params(j * 2 + 1) = (i) params(j * 2 + 2) = 鏈接 j = j + 1 End If Next i 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 47 頁 共 58 頁 params End If End Sub 39。使用網(wǎng)際快車下載圖片的過程 Sub useflashdownpic() On Error Resume Next Dim JetCarCatch As Object Dim i, j As Integer 39。使用了 VB6開發(fā)組件，該組件可通過 IE右鍵菜單項(xiàng)激活，運(yùn)行后以可視化的方式顯示當(dāng)前網(wǎng)頁包 含的各類資源 (頁面腳本、超鏈接、表單單元和圖片 )，并可調(diào)用網(wǎng)際快車和網(wǎng)絡(luò)螞蟻進(jìn)行相關(guān)資源的下載。 (8)Type屬性：該屬性返回表單中 HTML 控件的類型。下面將使用 VB6開發(fā) COM 組件，并通過 IE右鍵菜單來創(chuàng)建組件實(shí)例，實(shí)現(xiàn)功能強(qiáng)大的 IE輔助工具。獲取網(wǎng)頁的表格對(duì)象 Set Tables = (Table) (3)由于網(wǎng)頁一般包含多個(gè)表格，可通過 HTMLTable對(duì)象進(jìn)行處理，示例代碼如下所示： Dim Table1 As HTMLTable For Each Table1 In Tables 39。當(dāng)觸發(fā) DocumentComplete 事件時(shí)，并非代表頁面已全部調(diào)入。 vAlign屬性：該屬性返回單元格的垂直對(duì)齊方式。 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 29 頁 共 58 頁 deleteRow 方法：該方法用于刪除表格行。 forms屬性：該屬性返回網(wǎng)頁包 含的所有表單對(duì)象。 target屬性：該屬性用于設(shè)置鏈接的方式。 (9)getElementsByTagName 方法：該方法用于獲取指定標(biāo)記的對(duì)象 。該控件的常用屬性和方法如下所述： 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 26 頁 共 58 頁 (1)AddressBar屬性：該屬性用于獲取瀏覽器的地址欄對(duì)象。 在 VB6中新建工程，然后在窗體上放置一個(gè)按鈕，一個(gè)通用對(duì)話框，一個(gè) Frame控件，并放置兩個(gè)單選框，如圖 2 所示。 ShellWindows 對(duì)象返回的瀏覽窗口對(duì)象包含了 IE和Explorer 窗口 (即資源管理器或“我的電腦”窗口 )，但 IE瀏覽器的宿主程序?yàn)椤?” ，而資源管理器或“我的電腦” 的宿主程序?yàn)椤?”，因此需對(duì)每一個(gè)對(duì)象按其 FulName 屬性來判斷是否為 IE瀏覽器。單擊該按鈕將彈出一個(gè)確認(rèn)框，單擊“確定”按鈕，將使用對(duì)話框來顯示當(dāng)前 IE頁面的所有鏈接目標(biāo)。 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 14 頁 共 58 頁 在＜ Test IE GUID＞下新建一個(gè) String類型值，名稱為“ Icon”，該值代表當(dāng)按鈕失去焦點(diǎn)時(shí)的圖標(biāo)，一般包括圖標(biāo)文件全路徑名和圖標(biāo)索引，也可直接輸入圖標(biāo)文件名。 (一 )相關(guān)知識(shí)點(diǎn) 添加 IE任務(wù)欄按鈕需對(duì)注冊(cè)表進(jìn)行多步操作，因此建議讀者先備份注冊(cè)表。 (2)定義新的下載列表數(shù)組。類名為“ ”。在確認(rèn)框中顯示鏈接數(shù)量 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 7 頁 共 58 頁 result=(共有 +cstr()+個(gè)鏈接，是否準(zhǔn)備開新窗口打開？ ) 39。單擊“在新窗口中打開所有鏈接 ”菜單項(xiàng)，將彈出一個(gè)顯示鏈接數(shù)的確認(rèn)對(duì)話框，單擊“是”按鈕后將對(duì)每一個(gè)鏈接新建 IE窗口進(jìn)行瀏覽。 item方法：該方法用于訪問指定的鏈接。 (4)“使用網(wǎng)際快車下載全 部鏈接”項(xiàng)對(duì)應(yīng)訪問網(wǎng)際快車安裝目錄下的“ ”文件。 (一 )相關(guān)知識(shí)點(diǎn) 添加右 鍵菜單的方法很簡(jiǎn)單，在注冊(cè)表HKEY_CURRENT_USER\Software\Microsoft\Inter Explorer\MenuExt 項(xiàng)下建立一個(gè)新項(xiàng)，該項(xiàng)名稱即代表顯示在 IE右鍵菜單中的菜單項(xiàng)標(biāo)題，如安裝了網(wǎng)際快車或網(wǎng)絡(luò)螞蟻，那么在注冊(cè)表編輯器中即可發(fā)現(xiàn)相應(yīng)鍵值。下面讓我們利用 IE提供的接口實(shí)現(xiàn)IE右鍵菜單的二次開發(fā)。 (3)“使用網(wǎng)際快車下載”項(xiàng)對(duì)應(yīng)訪問網(wǎng)際快車安裝目錄下的“ ”文件。 innerText 屬性：該屬性用于獲取包含在 HTML 標(biāo)記中的文字。 我們可以在 IE右鍵菜單項(xiàng)中添加“在新窗口中打開所有鏈接”菜單項(xiàng)。定義存放鏈接的數(shù)組 ReDim params(*2) 39。 (1)API對(duì)象：該對(duì)象用于啟動(dòng)網(wǎng)絡(luò)螞蟻。 按前述知識(shí)，添加下載所有內(nèi)嵌圖片功能的步驟如下所述： (1)獲取網(wǎng)頁的圖像 (images)對(duì)象。下面讓我們利用 IE提供的接口實(shí)現(xiàn) IE工具欄按鈕的二次開發(fā)。 在＜ Test IE G