開發監控模塊
監控模塊主要完成對IE浏覽器的監控功能在Invoke()函數中觸發BeforeNavigator事件時調用執行主要包括ChkUrl()WriteSite()WriteLog()和GetIP()四個功能函數分別完成檢查URL(及IP地址)記錄URL和IP地址記錄系統日志根據URL取得IP地址的功能分別簡單介紹如下具體實現詳見程序源代碼
()ChkUrl()函數:它是監控模塊的核心函數也是模塊的入口函數ChkUrl()函數首先取得用戶請求的URL並且調用GetIP()函數取得其對應的IP地址然後到系統中查找該URL及IP是否已經存在如果存在則根據系統保存的結果禁止/允許用戶訪問否則就根據系統的當前工作狀態(禁止/允許)動態處理同時調用WriteSite()函數將該URL和IP地址保存到系統中最後調用WriteLog()函數記錄系統日志
()WriteSite()函數:完成將URL和IP地址保存到系統中的功能同時記錄系統當前日期和時間
()WriteLog()函數:將有關信息形成系統日志並且保存下來主要有網絡URL和IP地址用戶名稱訪問日期和時間處理結果(禁止/允許訪問)等信息
()GetIP()函數:提供根據URL取得對應IP地址的功能通過調用TNMHTTP組件的相關功能實現:首先將URL賦值給TNMHTTP組件的Host屬性然後調用ResolveRemoteHost()方法就可以從其RemoteIP屬性中獲得對應的IP地址
開發維護程序
維護程序主要實現系統參數維護和日志管理兩方面功能在啟動時需要管理員登錄
()系統參數維護:啟用/停止系統監控功能等程序界面如圖所示
圖
()系統日志管理:日志的查詢打印等功能(見圖)
圖
總結和系統進一步完善計劃
本文詳細介紹了嵌入式IE浏覽器監控程序的開發方法和實現過程該系統以COM對象的形式嵌入到IE浏覽器中可以實現對IE浏覽器(即用戶)的監控功能
[] [] []
From:http://tw.wingwit.com/Article/program/Delphi/201311/24886.html
