【正文】 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 　　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 　　 params 　　End If 　　End Sub 　　39。使用網(wǎng)絡螞蟻下載鏈接的過程 　　Sub useantdownlink() 　　On Error Resume Next 　　Dim NetAntsApi As Object 　　Dim i, j As Integer 　　Set NetAntsApi = CreateObject() 　　If Err ＜＞ 0 Then 　　MsgBox 未正確安裝網(wǎng)絡螞蟻！ 　　Else 　　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 　　Next i 　　 params 　　End If 　　End Sub 　　39。“使用網(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(wǎng)絡螞蟻下載”按鈕單擊事件過程 　　Private Sub cmdnetant_Click() 　　On Error Resume Next 　　If 　alue = True Then 　　Call useantdownpic 　　Else 　　Call useantdownlink 　　End If 　　End Sub 　　窗體代碼輸入完畢后，在工程資源管理器中切換至類模塊并輸入代碼。由于類模塊包含的過程一般需供外部程序調(diào)用，因此均定義為“Public”類型。按程序的功能要求，可得該類模塊的方法設計，如下所述： 　　a、顯示窗體的方法。 　　b、添加網(wǎng)址的方法。 　　c、添加腳本、鏈接和圖片的方法。 　　d、添加表單和相關控件的方法。 　　按類模塊方法設計編制代碼，如下所示： 　　39。類的初始化事件 　　Private Sub Class_Initialize() 　　39。裝載但不顯示窗體 　　Load Formweb 　　End Sub 　　39。顯示窗體的過程 　　Public Sub showform() 　　 1 　　End Sub 　　39。添加網(wǎng)址的過程 　　Public Sub addurl(ByVal url As String) 　　39。將網(wǎng)址傳遞至窗體的全局變量 　　 = url 　　End Sub 　　39。添加腳本的過程 　　Public Sub addscript(ByVal script As String) 　　 = script + vbCrLf 　　End Sub 　　39。添加鏈接的過程 　　Public Sub addlink(ByVal link As String) 　　Dim j As Integer 　　Dim same As Boolean 　　same = False 　　39。遍歷窗體的列表框，以免重復添加 　　With Formweb 　　For j = 0 To . 1 　　If .(j) = link Then 　　same = True 　　Exit For 　　End If 　　Next j 　　If same = False Then 　　. link 　　.(.) = True 　　End If 　　End With 　　End Sub 　　39。添加圖片的過程 　　Public Sub addimg(ByVal img As String) 　　Dim j As Integer 　　Dim same As Boolean 　　same = False 　　39。遍歷窗體的列表框，以免重復添加 　　With Formweb 　　For j = 0 To . 1 　　If .(j) = img Then 　　same = True 　　Exit For 　　End If 　　Next j 　　If same = False Then 　　. img 　　.(.) = True 　　End If 　　End With 　　End Sub 　　39。添加表單的過程，該過程先傳遞表單名稱和提交目標 　　Public Sub addform(ByVal fm As String, ByVal action As String) 　　With Formweb 　　. = 名稱： + fm + vbCrLf 　　. = 提交目標： + action + vbCrLf 　　End With 　　End Sub 　　39。添加表單控件的過程，該過程傳遞控件名稱和類型 　　Public Sub addelement(ByVal con As String, ByVal tp As String) 　　With Formweb 　　. = Chr(9) + 控件名稱： + con + vbCrLf 　　. = Chr(9) + 類型： + tp + vbCrLf 　　End With 　　End Sub 　　代碼輸入無誤后，保存整個工程，單擊“工具”菜單的“發(fā)布”子菜單的“建立輸出”菜單，將顯示“發(fā)布向?qū)А贝绑w，讀者可按向?qū)е鸩酵瓿蒀OM組件的注冊，注冊后的組件即可通過前述方法進行調(diào)用。 　　在前述步驟中新建的注冊表項對應的腳本文件中輸入代碼，如下所示： 　　＜script language=VBScript＞ 　　On Error Resume Next 　　39。創(chuàng)建新建的COM組件實例 　　set websource=CreateObject() 　　if err＜＞0 then 　　MsgBox(出現(xiàn)錯誤，未正確安裝組件！) 　　else 　　39。調(diào)用組件添加網(wǎng)址的方法 　　 　　39。獲取頁面的腳本集合 　　set scripts = 　　39。遍歷并調(diào)用組件添加腳本的方法 　　For i = 0 To 　　 scripts(i).Text 　　Next 　　39。獲取頁面的超鏈接集合 　　set links = 　　39。遍歷并調(diào)用組件添加超鏈接的方法 　　For i = 0 To 1 　　 links(i).href 　　next 　　39。獲取頁面的圖片集合 　　set imgs = 　　39。遍歷并調(diào)用組件添加圖片的方法 　　For i = 0 To 1 　　 imgs(i).src 　　next 　　39。獲取頁面的表單集合 　　set forms = 　　39。遍歷并調(diào)用組件添加表單的方法 　　For i = 0 To 1 　　 forms(i).Name,forms(i).Action 　　set tmpform=forms(i) 　　39。獲取表單的控件集合 　　set elements= 　　39。遍歷并調(diào)用組件添加表單控件的方法 　　For j = 0 To 1 　　 elements(j).Name,elements(j).Type 　　Next 　　Next 　　39。顯示組件包含的窗體 　　 　　end if 　?。?script＞60 / 6