0引言

在学校的机房中经常需要进行上机实验环节的测验，在此过程中为了防止作弊是禁止使用Ｕ盘的。虽然有不少方法可以通过相应的设置禁止ＵＳＢ口的使用，但测验过后又需要重新开放ＵＳＢ口的使用。如果通过程序对ＵＳＢ口进行实时监控，只要有人在ＵＳＢ口插入Ｕ盘后就马上报警，可有效防止作弊行为的发生，并避免了反复设置的繁琐。本文介绍了在ＶＢ中使用ＳｙｓＩｎｆｏ控件对Ｕ盘进行实时监控，并给出了实现的关键代码。

1基本原理

ＳｙｓＩｎｆｏ控件可以检测操作系统提供的信息，同时对操作系统产生的事件作出反应。在Ｗｉｎｄｏｗｓ中，对于新设备添加到系统之后能够被自动检测出来，使用ＳｙｓＩｎｆｏ控件的属性和事件可以分享这种“即插即用”技术带来的好处。Ｓｙｓ－Ｉｎｆｏ控件不是标准的ＶｉｓｕａｌＢａｓｉｃ控件，需要通过选择“工程”→“部件”命令打开的对话框中选中“ＭｉｃｒｏｓｏｆｔＳｙｓ－ｉｎｆｏＣｏｎｔｒｏｌ６．０”复选框，将其添加到工具箱中。

使用ＳｙｓＩｎｆｏ控件的ＤｅｖｉｃｅＡｒｒｉｖａｌ和ＤｅｖｉｃｅＲｅｍｏｖｅ－Ｃｏｍｐｌｅｔｅ事件可以对加载驱动器、卸载驱动器的事件作出响应，通过该控件的这两个事件可以判断是否有存储器插拔。在本例中，使用了ＳｙｓＩｎｆｏ控件的ＤｅｖｉｃｅＡｒｒｉｖａｌ事件，该事件当系统中添加新设备时产生。事件有四个参数，其中ＤｅｖｉｃｅＴｙｐｅ指示已添加设备的类型，等于２表示添加了新的磁盘；ｄｅｖｉｃｅＩＤ参数识别设备的值，通过它可以转换得到新磁盘的盘符，其值等于２的ｎ次方，ｎ即为盘符(对应字母顺序Ａ盘为０、Ｂ盘为１．．．)。得到新磁盘的盘符后还要判断其是否为Ｕ盘，这需要使用ＡＰＩ函数ＧｅｔＤｒｉｖｅＴｙｐｅ。该函数的功能是判断一个磁盘驱动器的类型，其返回值２表示可移动磁盘。一旦发现新添加的是Ｕ盘，利用ＡＰＩ函数ＮｅｔＭｅｓｓａｇｅＢｕｆｆｅｒＳｅｎｄ给局域内指定为监控服务器的接收端计算机发送报警信息。使用这一函数的时候需要知道本机的计算机名，这通过调用ＡＰＩ函数ＧｅｔＣｏｍｐｕｔｅｒＮａｍｅ来实现。

2具体实现

启动ＶＢ新建一个窗体，在该窗体上添加一个ＳｙｓＩｎｆｏ控件，并将其命名为ＳｙｓＩｎｆｏ１。在窗体中输入如下代码：ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＮｅｔＭｅｓｓａｇｅＢｕｆｆｅｒＳｅｎｄＬｉｂ＂ＮＥＴＡＰＩ３２．ＤＬＬ＂(ＳｅｒｖｅｒＡｓＡｎｙ，ｙＴｏＮａｍｅＡｓＢｙｔｅ，ｙＦｒｏｍＮａｍｅＡｓＡｎｙ，ｙＭｓｇＡｓＢｙｔｅ，ＢｙＶａｌｌＳｉｚｅＡｓＬｏｎｇ)ＡｓＬｏｎｇ

ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＣｏｍｐｕｔｅｒＮａｍｅＬｉｂ＂ｋｅｒｎｅｌ３２＂Ａｌｉａｓ＂ＧｅｔＣｏｍｐｕｔｅｒＮａｍｅＡ＂(ＢｙＶａｌｌｐＢｕｆｆｅｒＡｓＳｔｒｉｎｇ，ｎＳｉｚｅＡｓＬｏｎｇ)ＡｓＬｏｎｇ

ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＤｒｉｖｅＴｙｐｅＬｉｂ＂ｋｅｒ－ｎｅｌ３２＂Ａｌｉａｓ＂ＧｅｔＤｒｉｖｅＴｙｐｅＡ＂(ＢｙＶａｌｎＤｒｉｖｅＡｓＳｔｒｉｎｇ)ＡｓＬｏｎｇ

ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ()

ＩｆＡｐｐ．ＰｒｅｖＩｎｓｔａｎｃｅＴｈｅｎＥｎｄ

Ａｐｐ．ＴａｓｋＶｉｓｉｂｌｅ＝Ｆａｌｓｅ＇在任务管理器中隐藏程序Ｍｅ．Ｈｉｄｅ＇隐藏程序窗体

基于ＶＢ实现的学校机房Ｕ盘实时监控

ＲｅａｌｉｚａｔｉｏｎｏｆＵＳＢＤｉｓｋＲｅａｌ－ｔｉｍｅＭｏｎｉｔｏｒｉｎｇｉｎＳｃｈｏｏｌＣｏｍｐｕｔｅｒＲｏｏｍＢａｓｅｄｏｎＶＢ

梁里宁

ＬｉａｎｇＬｉｎｉｎｇ

(暨南大学计算中心，广东广州５１０６３２)

(ＣｏｍｐｕｔｅｒＣｅｎｔｅｒ，ＪｉｎａｎＵｎｉｖｅｒｓｉｔｙ，ＧｕａｎｇｄｏｎｇＧｕａｎｇｚｈｏｕ５１０６３２)

摘要：介绍了利用ＶＢ所实现的学校机房Ｕ盘实时监控，并给出了实现的关键代码。

关键词：ＶＢ；Ｕ盘；实时监控

中图分类号：ＴＰ３７１文献标识码：Ａ文章编号：１６７１－４７９２－(２００９)１－０１５７－０２

Abstract：ＴｈｉｓｐａｐｅｒｐｒｅｓｅｎｔｓｈｏｗｔｏｒｅａｌｉｚｅＵＳＢｄｉｓｋｒｅａｌ－ｔｉｍｅｍｏｎｉｔｏｒｉｎｇｉｎｓｃｈｏｏｌｃｏｍｐｕｔｅｒｒｏｏｍｂｙｕｓｅｏｆＶＢｌａｎｇｕａｇｅ．Ｔｈｅｒｅａｌｉｚａｔｉｏｎｋｅｙｃｏｄｅｓａｒｅａｌｓｏｇｉｖｅｎ．

Keywords：ＶＢ；ＵＳＢＤｉｓｋ；Ｒｅａｌ－ｔｉｍｅＭｏｎｉｔｏｒｉｎｇ基于VB 实

现

的学

校

机

房U 盘实时监控

１５７