【正文】 添加鏈接的過程 Public Sub addlink(ByVal link As String) Dim j As Integer Dim same As Boolean same = False 39。將網(wǎng)址傳遞至窗體的全局變量 = url End Sub 39。顯示窗體的過程 Public Sub showform() 1 End Sub 39。類的初始化事件 Private Sub Class_Initialize() 39。 d、添加表單和相關(guān)控件的方法。 b、添加網(wǎng)址的方法。由于類模塊包含的過程一般需供外部程序調(diào)用，因此均定義為“ Public”類型。“使用網(wǎng)際快車下載”按鈕單擊事件過程 Private Sub cmdflashget_Click() On Error Resume Next If alue = True Then Call useflashdownpic Else Call useflashdownlink End If End Sub 39。使用網(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 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(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 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 47 頁 共 58 頁 params End If End Sub 39。遍歷列表框，獲取選擇的圖片 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 44 頁 共 58 頁 j = 0 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 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 45 頁 共 58 頁 Next I 39。使用網(wǎng)絡(luò)螞蟻下載圖片的過程 Sub useantdownpic() On Error Resume Next Dim NetAntsApi As Object Dim i, j As Integer 39。遍歷 列表框，獲取選擇的圖片 j = 0 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(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 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 43 頁 共 58 頁 39。使用網(wǎng)際快車下載圖片的過程 Sub useflashdownpic() On Error Resume Next Dim JetCarCatch As Object Dim i, j As Integer 39。 控件名稱和類型 屬性名稱 屬 性 值 備 注 Formweb： Form BorderStyle 3 Fixed Dialog Caption HTML資源分析 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 37 頁 共 58 頁 MaxButton 0 False MinButton 0 False StartUpPosition 2 屏幕中心 SSTab1： SSTab Tabs 2 Tab 1 TabsPerRow 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 38 頁 共 58 頁 2 TabCaption(0) 腳本代碼及窗體控件 TabCaption(1) 圖片及鏈接 cmdflashget ： CommandButton Caption 使用網(wǎng)際快車下載 cmdant ： CommandButton Caption 使用網(wǎng)絡(luò)螞蟻下載 Option2 ： OptionButton Caption 鏈接 Option1 ： OptionButton 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 39 頁 共 58 頁 Caption 圖片 Lstlink ： ListBox Style 1 Checkbox lstimage ： ListBox Style 1 Checkbox txtform ： TextBox MultiLine 1 True ScrollBars 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 40 頁 共 58 頁 3 Both txtscript ： TextBox MultiLine 1 True ScrollBars 3 Both Label2 ： Label Caption 窗體控件： Label1 ： Label Caption 腳本代碼： 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 41 頁 共 58 頁 輸入窗體的程序代碼，首先定義全局變量，代碼如下所示： Public strurl As String 39。 在 VB6中單擊“文件”菜單的“新建工程”子菜單，在彈出的“新建 工程”窗體中選擇“ ActiveX DLL”。 在注冊表的“ HKEY_CURRENT_USER\Software\Microsoft\Inter Explorer\MenuExt”下建立新項(xiàng)，命名為“資源分析”，值為對應(yīng)的腳本文件。使用了 VB6開發(fā)組件，該組件可通過 IE右鍵菜單項(xiàng)激活，運(yùn)行后以可視化的方式顯示當(dāng)前網(wǎng)頁包 含的各類資源 (頁面腳本、超鏈接、表單單元和圖片 )，并可調(diào)用網(wǎng)際快車和網(wǎng)絡(luò)螞蟻進(jìn)行相關(guān)資源的下載。 (3)釋放 COM 組件實(shí)例：如用戶將 CreateObject 函數(shù)創(chuàng)建的COM組件實(shí)例賦予一個(gè) Object型變量 , 那么可通過將該 Object型變量賦予 Nothing常量值來釋放該 COM 組件實(shí)例。 (2)通過函數(shù)創(chuàng)建：通過 CreateObject 函數(shù)和 GetObject 函數(shù)創(chuàng)建 COM組件，且不需事先聲明，靈活性較強(qiáng)，具體如下所述： CreateObject 函數(shù)：該函數(shù)用于創(chuàng)建并返回 一個(gè) COM對象實(shí)例。隨后在代碼窗口中可用“ Dim”語句定義變量，在“ As”關(guān)鍵字后，輸入“ New”關(guān)鍵字和空格，隨 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 34 頁 共 58 頁 后代碼編輯器會提示可通過“ New”關(guān)鍵字定義的對象。 (8)Type屬性：該屬性返回表單中 HTML 控件的類型。 (6)Action 屬性：該屬性返回表單的提交目標(biāo)網(wǎng)址。 (4)images 集合：該集合代表頁面中的所有圖片。 (2)scripts 集合：該集合代表頁面中的所有腳本。下面將使用 VB6開發(fā) COM 組件，并通過 IE右鍵菜單來創(chuàng)建組件實(shí)例，實(shí)現(xiàn)功能強(qiáng)大的 IE輔助工具。下面我們給出 COM組