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

基于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 Integer, g As Integer 　　For i = 65 To 75 　　g = GetDriveType(Chr(i) :\)’判断是否有新的设备插入 　　If g = 2 And f(i) = 0 Then’2表示有磁盘驱动器插入 　　 f(i) = 1 　　Form2.Show’启用Form2 　　 End If 　　If g 2 And f(i) = 1 Then’不等于2表示没有插入设备或者插入的不是磁盘驱动器 　　f(i) = 0 　　 Timer1.Enabled = True’执行Timer计时 　　End If 　　Next i 　　End Sub 　　Private Sub Form_Load() 　　设置开机自启动 　　Set w = CreateObject(wscript.shell) 　　w.regwrite HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\ App.EXEName, App.Path \ App.EXEName .exe 　　App.TaskVisible = False 在任务管理器中隐藏程序 　　Me.Hide 隐藏程序窗体 　　Timer1.Interval = 1000’设置计时器的计时时间间隔 　　End Sub 　　Private Sub Timer1_Timer() 　　 Call isU’调用u盘检测函数 　　End Sub 　　Timer不停的循环检测，一旦发现有u盘的插入即刻启动Form2的屏蔽程序。并且机房使用中每学生都不想被控制，所以每次开机Form1都必须自启动。 　　添加一个新的窗体Form2，在窗体中添加两个Timer组件Timer1和Timer2，添加两个label组件label1和label2。Form2 的代码如下： 　　‘声明部分 　　禁用任务栏调用禁用任务栏的函数 　　禁用windows菜单限定 　　任务栏隐藏 　　窗口置前限定 　　***************************************** 　　摘录自 CBM666编程教材 Timer篇 (马表计时器) 　　***************************************** 　　Option Explicit 强制宣告定义变量 　　Private Declare Function GetTickCount Lib kernel32 () 计时专用的API 　　Dim StartTm!, ElapTm!, LeftTm! 定义变量 　　声明部分禁