 |
|
|
|
|
|
用VB编写网络监控软件
随着互联网迅速的膨胀发展，学校、企业、网吧大部分都通过局域网连上了Internet，但是由于人员多、上网机器分散，给上网管理带来了种种不便。为此，笔者编写了一个小程序，在局域网内的每个工作站运行此程序，可以对每个工作站访问的网址进行记录。
在网吧中，可以为网络犯罪提供可靠的依据；在学校里，我们可以及时地限制同学们访问非法站点和有不健康内容的网站。程序用VB6.0编写，下面是程序实现的步骤。该程序在Windows 98和IE5.5下调试通过。 一、程序核心 本程序的核心是通过API函数获得窗口句柄并获得浏览器访问的网址，在此基础上可以实现用Winsock控件进行远程的监视和管理。 1.先创建一个工程并在窗口Form1中，并声明下面的四个API函数和两个常量： Option Explicit Private Declare Function FindWindow Lib ″user32″ Alias ″FindWindowA″ (ByVal lpCl assName As String， ByVal lpWindowName As String) As Long ′Findwindow函数的功能是找到当前运行的IE窗口的url地址的句柄 Private Declare Function SendMessage Lib ″user32″ Alias ″SendMessageA″ (ByVal hwnd As Long， ByVal wMsg As Long， ByVal wParam As Long， lParam As Long) As Long ′SendMessage函数的功能是向操作系统发送一条消息 Private Declare Function FindWindowEx Lib ″user32″ Alias ″FindWindowExA″ (ByVal hWnd1 As Long，ByVal hWnd2 As Long， ByVal lpsz1 As String， ByVal lpsz2 As String) As Long ′FindwindowEx函数的功能是找到子窗体的句柄 Private Declare Function SendMessageByString Lib ″user32″ Alias ″SendMessageA″ (ByVal hwnd As Long， ByVal wMsg As Long， ByVal wParam As Long， ByVal lParam As String) As Long Private Const WM_GETTEXT = ＆HD Private Const WM_GETTEXTLENGTH = ＆HE 第 页 责任编辑:qwer19871212
相关文章
|
|
