用Delphi监控IE浏览器[3]

开发监控模块

监控模块主要完成对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浏览器(即用户)的监控功能

[] [] []