在学校机房上课，学生们都是带U盘去的，里面有两样东西。
1.冰刃  一上来就杀掉学生端软件，避免被老师广播而无法使用电脑
2.男生街机游戏，女生看情书什么的～～不亦乐乎～～


偶不是老师啊～～作为一名学生，他们是对自己不负责啊～～我想做这个软件
在网上抄了一大段 呵呵～～～然后自己写写改改  终于弄的差不多了   不过这只是基础部分的代码
Option Explicit
               Dim boTimeOut As Boolean
               Private Const DRIVE_CDROM As Long = 5
               Private Const DRIVE_REMOVABLE As Long = 2
               Private Const GENERIC_READ As Long = &H80000000
               Private Const GENERIC_WRITE As Long = &H40000000
               Private Const OPEN_EXISTING As Long = 3
               Private Const FILE_DEVICE_FILE_SYSTEM As Long = 9
               Private Const FILE_DEVICE_MASS_STORAGE As Long = &H2D&
               Private Const METHOD_BUFFERED As Long = 0
               Private Const FILE_ANY_ACCESS As Long = 0
               Private Const FILE_READ_ACCESS As Long = 1
               Private Const LOCK_VOLUME As Long = 6
               Private Const DISMOUNT_VOLUME As Long = 8
               Private Const EJECT_MEDIA As Long = &H202
               Private Const MEDIA_REMOVAL As Long = &H201
               Private Const INVALID_HANDLE_VALUE As Long = -1
               Private Const LOCK_TIMEOUT As Long = 1000
               Private Const LOCK_RETRIES As Long = 20
               Private Declare Function GetDriveType Lib "kernel32.dll" _
               Alias "GetDriveTypeA" _
               (ByVal nDrive As String) As Long
               Private Declare Function CloseHandle Lib "kernel32.dll" _
               (ByVal hObject As Long) As Long
               Private Declare Function CreateFile Lib "kernel32.dll" Alias "CreateFileA" _
               (ByVal lpFileName As String, _
               ByVal dwDesiredAccess As Long, _
               ByVal dwShareMode As Long, _
               ByRef lpSecurityAttributes As Long, _
               ByVal dwCreationDisposition As Long, _
               ByVal dwFlagsAndAttributes As Long, _
               ByVal hTemplateFile As Long) As Long
               Private Declare Function DeviceIoControl Lib "kernel32.dll" _
               (ByVal hDevice As Long, _
               ByRef dwIoControlCode As Long, _
               ByRef lpInBuffer As Any, _
               ByVal nInBufferSize As Long, _
               ByRef lpOutBuffer As Any, _
               ByVal nOutBufferSize As Long, _
               ByRef lpBytesReturned As Long, _
               ByRef lpOverlapped As Long) As Long
               Private Function CTL_CODE(lngDevFileSys As Long, lngFunction As Long, _
               lngMethod As Long, lngAccess As Long) As Long
               CTL_CODE = (lngDevFileSys * (2 ^ 16)) Or (lngAccess * (2 ^ 14)) Or (lngFunction * (2 ^ 2)) Or lngMethod
               End Function
               Private Function OpenVolume(strLetter As String, lngVolHandle As Long) As Boolean
               Dim lngDriveType As Long
               Dim lngAccessFlags As Long
               Dim strVolume As String
               lngDriveType = GetDriveType(strLetter)
               Select Case lngDriveType
               Case DRIVE_REMOVABLE
               lngAccessFlags = GENERIC_READ Or GENERIC_WRITE
               Case DRIVE_CDROM
               lngAccessFlags = GENERIC_READ
               Case Else
               OpenVolume = False
               Exit Function
               End Select
               strVolume = " \\.\" & strLetter
               lngVolHandle = CreateFile(strVolume, lngAccessFlags, 0, _
               ByVal CLng(0), OPEN_EXISTING, ByVal CLng(0), ByVal CLng(0))
               If lngVolHandle = INVALID_HANDLE_VALUE Then
               OpenVolume = False
               Exit Function
               End If
               OpenVolume = True
               End Function
               Private Function CloseVolume(lngVolHandle As Long) As Boolean
               Dim lngReturn As Long
               lngReturn = CloseHandle(lngVolHandle)
               If lngReturn = 0 Then
               CloseVolume = False
               Else
               CloseVolume = True
               End If
               End Function
               Private Function LockVolume(ByRef lngVolHandle As Long) As Boolean
               Dim lngBytesReturned As Long
               Dim intCount As Integer
               Dim intI As Integer
               Dim boLocked As Boolean
               Dim lngFunction As Long
               lngFunction = CTL_CODE(FILE_DEVICE_FILE_SYSTEM, LOCK_VOLUME, METHOD_BUFFERED, FILE_ANY_ACCESS)
               intCount = LOCK_TIMEOUT / LOCK_RETRIES
               boLocked = False
               For intI = 0 To LOCK_RETRIES
               boTimeOut = False
               Timer1.Interval = intCount
               Timer1.Enabled = True
               Do Until boTimeOut = True Or boLocked = True
               boLocked = DeviceIoControl(lngVolHandle, ByVal lngFunction, _
               CLng(0), 0, CLng(0), 0, lngBytesReturned, ByVal CLng(0))
               DoEvents
               Loop
               If boLocked = True Then
               LockVolume = True
               Timer1.Enabled = False
               Exit Function
               End If
               Next intI
               LockVolume = False
               End Function
               Private Function DismountVolume(lngVolHandle As Long) As Boolean
               Dim lngBytesReturned As Long
               Dim lngFunction As Long
               lngFunction = CTL_CODE(FILE_DEVICE_FILE_SYSTEM, DISMOUNT_VOLUME, METHOD_BUFFERED, FILE_ANY_ACCESS)
               DismountVolume = DeviceIoControl(lngVolHandle, ByVal lngFunction, _
               0, 0, 0, 0, lngBytesReturned, ByVal 0)
               End Function
               Private Function PreventRemovalofVolume(lngVolHandle As Long) As Boolean
               Dim boPreventRemoval As Boolean
               Dim lngBytesReturned As Long
               Dim lngFunction As Long
               boPreventRemoval = False
               lngFunction = CTL_CODE(FILE_DEVICE_MASS_STORAGE, MEDIA_REMOVAL, METHOD_BUFFERED, FILE_READ_ACCESS)
               PreventRemovalofVolume = DeviceIoControl(lngVolHandle, ByVal lngFunction, _
               boPreventRemoval, Len(boPreventRemoval), 0, 0, lngBytesReturned, ByVal 0)
               End Function
               Private Function AutoEjectVolume(lngVolHandle As Long) As Boolean
               Dim lngFunction As Long
               Dim lngBytesReturned As Long
               lngFunction = CTL_CODE(FILE_DEVICE_MASS_STORAGE, EJECT_MEDIA, METHOD_BUFFERED, FILE_READ_ACCESS)
               AutoEjectVolume = DeviceIoControl(lngVolHandle, ByVal lngFunction, _
               0, 0, 0, 0, lngBytesReturned, ByVal 0)
               End Function
               Private Function USBDISKINDEX() As String '找到U盘
               Dim i As Long
                   For i = Asc("C") To Asc("Z")
                       If GetDriveType(Chr(i) + ":") = 2 Then
                           USBDISKINDEX = Chr(i)
                       End If
                   Next i
               End Function
               Private Sub Eject(strVol As String)
               Dim lngVolHand As Long
               Dim boResult As Boolean
               Dim boSafe As Boolean
               strVol = strVol & ":"
               '
               ' Open and get a Handle for the Volume
               '
               boResult = OpenVolume(strVol, lngVolHand)
               If boResult = False Then
               'MsgBox "Error Opening Volume " & Err.LastDllError
               Exit Sub
               End If
               '
               ' Lock the Volume
               '
               boResult = LockVolume(lngVolHand)
               If boResult = False Then
               'MsgBox "Error Dismounting Volume " & Err.LastDllError
               CloseVolume (lngVolHand)
               Exit Sub
               End If
               '
               'Dismount the Volume
               '
               boResult = DismountVolume(lngVolHand)
               If boResult = False Then
               'MsgBox "Error Dismounting Volume " & Err.LastDllError
               CloseVolume (lngVolHand)
               Exit Sub
               End If
               '
               ' Set to allow the Volume to be Removed
               '
               boResult = PreventRemovalofVolume(lngVolHand)
               If boResult = False Then
               'MsgBox "Error Allowing Removal of Volume " & Err.LastDllError
               CloseVolume (lngVolHand)
               Exit Sub
               End If
               boSafe = True
               '
               ' Eject the Volume
               '
               boResult = AutoEjectVolume(lngVolHand)
               If boSafe = True Then
               'MsgBox "Media may be Safely Removed from Drive " & UCase(strVol)
               End If
               '
               ' Close the Handle
               '
               boResult = CloseVolume(lngVolHand)
               If boResult = False Then
               'MsgBox "Error Closing Volume " & Err.LastDllError
               Exit Sub
               End If
               End Sub
Private Sub Command1_Click()
Timer3.Enabled = False
Timer2.Enabled = True
End Sub
Private Sub Command2_Click()
Timer2.Enabled = False
Timer3.Enabled = True
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Timer1_Timer()
boTimeOut = True
End Sub
Private Sub Timer2_Timer()
Dim WSH '禁用USB
Set WSH = CreateObject("WScript.Shell")
WSH.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Start", 4, "REG_DWORD"
WSH.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Cdrom\Start", 4, "REG_DWORD"
WSH.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Flpydisk\Start", 4, "REG_DWORD"
WSH.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Sfloppy\Start", 4, "REG_DWORD"
WSH.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\disabletaskmgr", 1, "REG_DWORD"
'结束任务管理器
WSH.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 1, "REG_DWORD"
'禁用注册表
Eject USBDISKINDEX '删除U盘
Label1.Caption = "USB移动磁盘，注册表，任务管理器  已禁用"
End Sub
Private Sub Timer3_Timer()
Dim WSH '启用USB
Set WSH = CreateObject("WScript.Shell")
WSH.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Start", 3, "REG_DWORD"
WSH.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Cdrom\Start", 3, "REG_DWORD"
WSH.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Flpydisk\Start", 1, "REG_DWORD"
WSH.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Sfloppy\Start", 3, "REG_DWORD"
WSH.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\disabletaskmgr", 0, "REG_DWORD"
WSH.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 0, "REG_DWORD"
Label1.Caption = "USB移动磁盘，注册表，任务管理器  已启用"
End Sub