基于Vb的学校机房u盘管理

　　摘要：作为u盘大量使用的年代，机房作为公用电脑最集中的地方不可避免要使用u盘，u盘病毒的传播也随之加剧，机房管理员的工作难度变大。为了减小病毒的侵害，可以控制u盘的使用。基于Vb开发了学校机房u盘管理软件。
　　关键词：Vb；病毒；机房；管理
　　中图分类号：TP308文献标识码：A文章编号：1009-3044(2011)30-7564-03
　　1 起因
　　如今u盘价格大幅下降，拥有u盘的人数也与日俱增。机房作为公用电脑最集中的地方不可避免的要使用u盘，这样也给机房管理带来很多的麻烦。譬如上课用的机房会有同学经常拷入一些游戏，给教师的上课带来很坏的影响。如今u盘病毒非常猖獗，很多人在公共场所使用u盘毫不注意。使得机房之间病毒传播很厉害。为了解决这一问题开发此软件。
　　虽然有很不少方法可以通过相应的设置禁止usb口的使用，但又要考虑usb其它设备的使用。如果通过程序对usb口进行实时监控，只要有人在usb口插入u盘即刻停止使用并且控制电脑的操作。本文介绍了在vb中完成u盘控制的操作，并给出了实现的关键代码。
　　2 基本原理，构思流程
　　采用GetDriveType完成磁盘驱动器的实时监控，当发现有u盘插入的时候调用u盘屏蔽程序，控制电脑并且实时监控u盘是否拔出，u盘拔出允许学生继续使用电脑，如果长时间没有拔出为了程序禁止被人破解关闭计算机。
　　3 解决方案，具体实现
　　启用vb新建一个Form1窗体，在窗体中添加一个Timer组件。在Form1中添加代码如下：Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long’函数的声明
　　Dim f(80) As Integer
　　Private Sub isU()’u盘检测函数
　　Dim i As Inte