禁用U盘

在U盘插入或拔出时自动侦测 可以用 WMI 
举个小例子吧!先工程引用Microsoft WMI Scripting V1.2 Library 
窗体代码如下: 
Private Sub Form_Load() 
Dim Wql As String 
Set objSWbemSink = New SWbemSink 
Set objSWbemServices = GetObject("winmgmts://" & "." & "/root/cimv2") 
Wql = "Select * from Win32_VolumeChangeEvent" 
objSWbemServices.ExecNotificationQueryAsync objSWbemSink, Wql 
End Sub 
Private Sub objSWbemSink_OnObjectReady(ByVal objWbemObject As WbemScripting.ISWbemObject, _ 
ByVal objWbemAsyncContext As WbemScripting.ISWbemNamedValueSet) 
Dim S As String 
If objWbemObject.Properties_.Item("EventType").Value = 2 Then S = "插入" 
If objWbemObject.Properties_.Item("EventType").Value = 3 Then S = "弹出" 
MsgBox objWbemObject.Properties_.Item("DriveName").Value & "盘" & S 
End Sub 
'!!!!!!!!!!!!!!!!把我的加上 GetDriveType 不就行了,我的可以监视有没有盘插入,当有盘插入时用 GetDriveType 判断是不是U盘,就可以不用 TIMER了 
'WMI资料MSDN上有