引 言
隨著網絡的發展和普及，對網絡的監控日益成為網絡安全的必然要求，也是管理和維護網絡的一個有效手段。當前已經有多種應用比較廣泛的網絡監控和過濾程序，如美萍網管、we-blocker等，它們都可以實現基於網絡URL和IP地址的監控和過濾功能。
本文將對如何開發一個嵌入到IE浏覽器中的監控程序進行介紹，該程序可以根據網絡URL和IP地址進行監控和過濾，並且記錄系統日志，從而使你對IE(當然是使用它的用戶)的所有操作一覽無余。相信通過閱讀本文，會加深你對網絡監控程序的理解，以及提高你的COM編程能力和數據庫編程能力。
本文在Delphi 6開發環境下實現，數據庫使用桌面數據庫Access 2000。
基礎知識
1.COM編程
COM(Component Object Model，組建對象模型)是微軟公司(Microsoft Company)提出的二進制通信規范，用於軟件組件之間的跨越多個進程、機器、硬件和操作系統的互操作，它是一項通過接口(Interface)透明的傳遞封裝數據的技術，並且獨立於語言和操作平台。一個COM對象是實現一個或者若干個接口的對象，即COM對象借助接口輸出它所提供的服務。
2.IE浏覽器的體系結構
IE浏覽器的體系結構如圖1所示。其中MSHTML是位於SHDOCVW和HTML頁面之間的COM對象，SHDOCVW對象用於處理頁面的顯示，而MSHTML用於處理頁面的語法分析，並且將頁面中的標記轉換為元素。MSHTML是一個COM服務器，允許COM客戶端程序訪問它對外提供的服務。
實現IE浏覽器嵌入式編程的基本方法是建立COM對象，從而以COM客戶端程序的形式和MSHTML COM服務器建立連接，然後通過接口回調實現需要的控制功能。也即首先建立COM對象，實現系統規定的若干接口，然後注冊COM對象，並且將COM對象的有關信息寫入到IE浏覽器擴展功能指定的注冊表位置。
嵌入式IE浏覽器監控程序的實現
嵌入式IE浏覽器監控程序的實現主要包括監控程序的實現和維護程序的實現兩部分，根據程序開發過程，可以將其分為四個步驟，下面分別對各個實現步驟進行詳細介紹。
1.實現COM對象
開發COM對象的任務就是建立一個能夠與IE浏覽器的MSHTML COM服務器建立連接並且通過接口回調實現控制功能的COM對象，具體實現過程如下:
(1)運行Delphi，依次點擊File|New|Other，切換到ActiveX頁面，選擇ActiveX Library，點擊OK按鈕，即建立一個新的工程。
(2) 再次點擊File|New|Other，切換到ActiveX頁面，選擇COM Object，點擊OK按鈕，即出現如圖2所示的COM Object Wizard界面，去掉Included Type Library復選框，在Class Name中輸入COM對象的名稱IEMonitor，然後點擊OK按鈕，即新建了一個名稱為TIEMonitor的COM對象(該COM對象的CLSID由系統自動生成)(見圖2)。
(3)將工程和單元文件依次保存為DIEMonitor.dpr和UIEMonitor.pas。切換到UIEMonitor.pas單元文件，編輯TIEMonitor的定義形式如下:
TIEMonitor = class(TComObject, IDispatch, IObjectWithSite)
public
function GetTypeInfoCount(out Count:Integer):HResult;stdcall;
function GetTypeInfo(Index,LocaleID:Integer;out TypeInfo):HResult;stdcall;
function GetIDsOfNames(const IID:TGUID;Names:Pointer;
NameCount,LocaleID:Integer;DispIDs:Pointer):HResult;stdcall;
function SetSite(const pUnkSite:IUnknown):HResult;stdcall;
function GetSite(const riid:TIID;out site:IUnknown):HResult;stdcall;
function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
private
IEThis:IWebBrowser2;
Cookie:Integer;
protected
end;
注意在UIEMonitor.pas單元文件的Uses中需要手動加入對SHDOCVW, Dialogs, SysUtils, Forms的引用。
其中主要是對IObjectWithSite接口的SetSite()方法和IDispatch接口的Invoke()方法的實現:首先通過SetSite()方法獲得IE的WebBrowser接口，然後尋找連接點，並且通過調用Advise()方法建立COM自身與連接點的連接;當連接建立成功後，IE在事件引發後，會調用連接到自身的IDispatch接口對象的Invoke方法，不同的事件對應不同的DispID編碼，因此可以通過在程序中判斷DispID對不同的事件做出相應的處理。系統主要對BeforeNavigate2、DownLoadComplete和OnQuit三個事件進行處理，它們對應的DispID分別為250、104和253。在Invoke()方法中，根據DispID分別調用DoBeforeNavigate2()、DoDownLoadComplete()和DoOnQuit()函數實現相關處理和控制功能，具體實現詳見程序源代碼。
(4)編譯工程，生成DIEMonitor.dll文件。
2.注冊/卸載COM對象
注冊COM對象包括注冊COM對象，以及將COM對象的有關信息寫入到IE浏覽器擴展功能指定的注冊表位置，下面分別對其注冊方法進行介紹。卸載方法分別和注冊方法相對應。
(1)注冊/卸載COM對象。一種方法是在Delphi開發環境下運行Run|Register ActiveX Server/Run|Unregister ActiveX Server自動完成COM對象的注冊/卸載;另一種方法是通過調用MS Windows操作系統提供的regsvr32.exe命令進行注冊。
(2) 注冊/卸載COM對象的有關信息到IE浏覽器擴展功能指定的注冊表位置。將COM對象的CLSID寫入到IE浏覽器擴展功能指定的注冊表位置後，當IE浏覽器啟動時，就通過該CLSID查找COM對象有關信息(如文件路徑)，從而實現了COM對象嵌入式功能擴展。為了實現這個目的，只需要在注冊表的[HKEY_LOCAL_MACHINE\Software\Microsoft\ Windows\CurrentVersion\Explorer\Browser Helper Objects]項下，建立一個名稱為COM對象的CLSID的注冊表項目即可。
3.開發監控模塊
監控模塊主要完成對IE浏覽器的監控功能，在Invoke()函數中觸發BeforeNavigator2事件時調用執行，主要包括ChkUrl()、WriteSite()、WriteLog()和GetIP()四個功能函數，分別完成檢查URL(及IP地址)、記錄URL和IP地址、記錄系統日志、根據URL取得IP地址的功能，分別簡單介紹如下，具體實現詳見程序源代碼。
(1)ChkUrl()函數:它是監控模塊的核心函數，也是模塊的入口函數。ChkUrl()函數首先取得用戶請求的URL，並且調用GetIP()函數取得其對應的IP地址，然後到系統中查找該URL及IP是否已經存在，如果存在則根據系統保存的結果禁止/允許用戶訪問，否則就根據系統的當前工作狀態(禁止/允許)動態處理，同時調用WriteSite()函數將該URL和IP地址保存到系統中。最後調用WriteLog()函數記錄系統日志。
(2)WriteSite()函數:完成將URL和IP地址保存到系統中的功能，同時記錄系統當前日期和時間。
(3)WriteLog()函數:將有關信息形成系統日志並且保存下來，主要有網絡URL和IP地址、用戶名稱、訪問日期和時間、處理結果(禁止/允許訪問)等信息。
(4)GetIP()函數:提供根據URL取得對應IP地址的功能，通過調用TNMHTTP組件的相關功能實現:首先將URL賦值給TNMHTTP組件的Host屬性，然後調用ResolveRemoteHost()方法，就可以從其RemoteIP屬性中獲得對應的IP地址。
4.開發維護程序
維護程序主要實現系統參數維護和日志管理兩方面功能，在啟動時需要管理員登錄。
(1)系統參數維護:啟用/停止系統監控功能等，程序界面如圖3所示。
(2)系統日志管理:日志的查詢、打印等功能(見圖4)。
總結和系統進一步完善計劃
本文詳細介紹了嵌入式IE浏覽器監控程序的開發方法和實現過程，該系統以COM對象的形式嵌入到IE浏覽器中，可以實現對IE浏覽器(即用戶)的監控功能。
