VB编写C/S程序，解决U盘泛滥问题
海粟/文

--------------------------------------------------------------------------------

《软件报》24期

【编程引子】

随着MP3/MP4播放器价格的平民化，学生们普遍把手中的零用钱，转化为了心仪的数码产品。然而，它们在推动校园信息化进程的同时，学生实践课上乱用MP3，也成为计算机房病毒泛滥的元凶，令教师们防不胜防。与其被动地管理，还不如主动出击，比如在学生机上动动手脚。禁用USB功能？不行，这会给以后的机房维护带来不便；思前想后，笔者想到了C/S监控模式，这对于VB而言可谓"小菜一碟"。

【编程分析】

程序的大致思路是在学生机上安装客户端，实时监控USB移动存储设备，当发现系统中出现此类设备时，"主动"向教师机（即服务器端）发送本机用户名，教师端就可以轻松锁定目标了！

在功能实现上，主要借助于Winsock控件，所以在设计时首先要手动添加此部件的引用。此外，在协议的选择上，Winsock控件全面支持TCP和UDP协议。前者适合于建立稳定的连接，要求有连接请求以及响应的信息传递，能够保证数据传输的有效性，这在大量数据传输的情况下比较适用；而后者，则属于无连接协议，消息可以自由地从一方传递到另一方，无须连接请求与明确的连接关系，非常适合传输少量数据的情况。对于本例而言，采用UDP协议则是不二的选择。

为了防止学生手动终止监控程序，要求客户端程序运行后不显示主窗体，且隐藏任务列表（但不隐藏程序进程），这在一定程度上起到了隐蔽效果，如果把进程名改为"SVGHOST"什么的，效果就更好了！此外，服务器端还要求有一些手动功能，比如保存日志、清空列表等。

【主要代码】

1．客户端（Client）程序

客户端程序界面中，只须一个Winsock控件和一个时钟控件即可，前者用于向服务器端发送数据，后者用来实现实时监测。在窗体加载事件中，完成控件初始化工作，主要代码如下：

Private Sub Form_Load()

If App.PrevInstance = True Then End '防止程序重复运行

With UDPClient

.Protocol = sckUDPProtocol '指定协议

.RemoteHost = "abc" '远程服务器计算机的名字，此名称根据具体情况而定

.RemotePort = 1002 '连接的端口号。

End With

Form1.Visible = False

App.TaskVisible = False '使程序不出现在任务列表中

Timer1.Interval = 2000 '每隔两秒检测一次

Timer1.Enabled = True

End Sub

其中，控件的"RemoteHost"属性应设置为服务器端计算机名称，远程端口也应与服务器端程序绑定的端口一致。一切就绪后，时钟控件便自动进入工作状态，监视系统中的可移动存储设备，Timer()事件的主要代码如下：

Private Sub Timer1_Timer()

............ ‘变量声明与赋初值

temp = GetLogicalDriveStrings(Len(AllDrives),AllDrives)

Do

pos = InStr(AllDrives,Chr$(0))

If pos <> 0 Then

UDiskDrive = Left(AllDrives,pos)

AllDrives = Mid(AllDrives,pos + 1)

DriveType = GetDriveType(UDiskDrive)

If DriveType = DRIVE_REMOVABLE Then

UDiskFound = True

Exit Do

End If

End If

Loop Until AllDrives = "" Or pos = 0 Or DriveType = DRIVE_REMOVABLE

If UDiskFound Then

LpBuf = Space(30)

r = GetComputerName(LpBuf,Len(LpBuf))

If r <> 0 Then

PCName = Trim(LpBuf)

PCName = Left$(PCName,Len(PCName) - 1) '获取准确的本地计算机名

End If

UDPClient.SendData PCName '如果不停止USB设备，则始终发送数据

End If

End Sub

上述程序中，为了监视USB存储设备，使用了Windows API函数GetLogicalDriveStrings和GetDriveType，前者用来获取当前系统中全部逻辑驱动器的盘符信息，后者用来测试指定盘符的类型。如果发现USB存储设备，则通过API函数GetComputerName取得本地计算机名，并通过Winsock控件发送至服务器端，只要不停止USB设备，则始终发送数据信息。

2．服务器端（Server）程序

服务器端程序界面，主要包括Winsock控件、一个列表框和一组功能按钮，列表框的功能是分条显示接收来的客户端信息（如图1）。在窗体加载事件中，除了要指定UDP通信协议外，还要绑定本地端口（如"1002"），代码如下：

Private Sub Form_Load()

UDPServer.Protocol = sckUDPProtocol

UDPServer.Bind 1002 '绑定到本地的端口。

End Sub

在客户端数据到达之后，程序中要对数据中包含的计算机名进行判断、筛选，以去除重复数据，并将处理结果附带上当前时间后显示在列表中，主要代码如下：

Private Sub UDPServer_DataArrival(ByVal bytesTotal As Long)

Dim strData As String

UDPServer.GetData strData

For i = 1 To 200 '最多支持200台计算机

If strData <> PCName(i) Then '排除重复数据

If PCName(i) = "" Then

PCName(i) = strData

Exit For

End If

Else

Exit Sub

End If

Next i

List1.AddItem Now() & " 在计算机<" & strData & ">中发现可移动存储设备！"

End Sub

此外，在对日志记录进行保存时，本例中使用系统日期和时间作为文件名，但要提醒大家注意时间中的"冒号"不能作为文件名的组成部分，应予以置换处理（使用Replace函数），相关代码比较简单，不必细说。