2024年3月9日发(作者：)
用VB6.0实现网络实时监控系统
计算机网络技术的日益发展和普及，为信息共享提供了一条全球性的高速通道，
但目前采用的TCP/IP协议族潜在着安全漏洞，其安全机制并不健全，如何保护
企业内部网络中的资源及信息不受外部攻击者肆意破坏或盗窃，是企业网络安全
需要解决的重要问题。当我们担心被黑客攻击或怀疑电脑被植入木马时，我们往
往求助于防火墙,本系统即通过实时监控全部TCP连接的方法来实现防黑客攻
击。同时网络管理人员在整个网络运行期间，能否实时监控联网计算机的运行状
态和操作对网络安全具有极其重要的作用．下面就以Visual Basic 6.0作为开
发工具讲述两个主要模块的设计和实现。
系统概述
该系统由两个子系统组成：服务器端系统和客户端(工作站)系统。服务器端
系统安装在网络管理人员的计算机上，用于实施各种对联网计算机的监控操作；
客户端系统安装在每台联网的计算机上，它运行后以图标的方式出现在系统任务
栏的提示区中，不影响工作站的其他操作，只用于响应服务器端的监控命令，并
根据服务的需要，及时采样工作站的相应数据返回给服务器端。该系统的运行环
境可以运行于Win98、Win95或WinNT、Win2000下。在系统的开发中，引入了
WINSOCK通讯控件，除此之外，为较好地实现各项监控操作，还用到了几个API
函数。
系统功能
1、监控全部TCP连接：实时监控所有服务器端口的连接情况、及时对异常
连接发出警告并提示用户删除异常连接；
2、屏幕监控：该功能允许服务器随时把被监控工作站的屏幕画面抓取到服
务器中，网络管理人员对相应工作站所进行的操作一目了然，若发现有非法操作
即可采取发送警告或强制措施，强迫其停止相应操作；
3、对工作站进行锁机、关机、限制鼠标活动等；
4、服务器和工作站之间的信息互送。
功能的实现
1、监控全部TCP连接
TCP/IP（Transmission Control Protocol/Internet Protocol：传输控制
协议/互联网协议）是一个包括TCP、IP、 UDP、ARP、RARP和ICMP等在内的网
络协议集。TCP/IP经常被称为“将Internet绑定在一起的粘合剂”，它允许在
空间上分离的多个信息网络连接在一起形成一个巨大的虚拟网络。TCP和UDP（用
户数据报协议）是两个最常用的数据传输协议，它们都使用设置监听端口的方法
来完成数据传输。
在本文中讨论TCP连接。通过使用TCP， Internet客户机可以打开到另一
个Internet客户机的虚拟连接并传送数据流。与UDP不同，TCP协议通过重传
丢失的数据报保证传输的可靠性。它也保证在接收端的应用程序按发送的顺序将
接收到的位和字节重新组装起来以获取完整的数据。 要获得与服务器系统
中全部有效的TCP连接，用到GetTcpTable这个API函数，它定义如下：
Private Declare Function GetTcpTable Lib "iphlpapi.
dll" (ByRef pTcpTable As MIB_TCPTABLE, ByRef
pdwSize As Long, ByVal bOrder As Long) As Long
其中参数pPcpTable是已生成的 TCP连接表缓冲区的指针，参数pdwsize
是缓冲区大小（当缓冲区不够大时，该参数返回实际需要的大小），参数bOrder
指示连接表是否需要按“Local IP”、“Localport”、“Remote IP”、“Remote
port”依次进行排序，1为按此顺序。
通过一个TIMEER控件的TIMER的事件来比较前后两个TCP连接表，我们可
以立即发现异常并发出警告。本系统用声音和报警标志提醒用户注意可能的外界
入侵。收到警告信号后，我们应首先将可疑连接删除掉，SetTcpEntry函数可以
帮助我们删除可疑连接。其定义为：
Private Declare Function SetTcpEntry Lib "iphlpapi.
dll" (ByRef pTcpTable As MIB_TCPROW) As Long
其中参数pTcptable为指向tcp表行的指针。然后将欲删连接的状态置为
MIB_TCP_STATE_DELETE_TCB（值为12）即可删除该连接。
TIMER事件源代码：
Private Sub Timer1_Timer()
Dim Return1 As Long, i As Long
Dim Tmp1 As Long, Tmp2 As Long
Dim Ip_Buf(1 To 4) As Byte
Dim Win_Path As String, TMP3 As String
Return1 = GetTcpTable(TCP1, Len(TCP1), 1)
If Last_Num_Of_Entries <> 0 And _
Last_Num_Of_Entries <> _Of_Entries Then
'异常时发出警告
e = True '警告标志
On Error Resume Next
Win_Path = String(145, 0)
'利用API函数GetWindowsDirectory获得当前系统目录
发布评论