驱动自动卸载 AU3代码

#NoTrayIcon

Dim $Class, $Cls, $Device, $DeviceID, $DeviceName, $FileHandle, $i, $j, $k, $NoUnloadClass[5], $Flag, $LastDeviceID

$Flag = MsgBox(4, "驱动自动卸载程序", "本程序将卸载除计算机电源管理、IDE控制器、PS/2键盘、PS/2鼠标、系统设备之外的所有硬件驱动程序，如果您正在使用USB键盘或鼠标，会因为此卸载而失去作用。是否要执行本驱动自动卸载程序？")
If $Flag = 7 Then Exit

$Class = "HKLM\SYSTEM\CurrentControlSet\Control\Class\"
$FileHandle = FileOpen(@ScriptDir & "Device.esp", 2)
$i = 1
$NoUnloadClass[0] = "{4D36E966-E325-11CE-BFC1-08002BE10318}"
$NoUnloadClass[1] = "{4D36E96A-E325-11CE-BFC1-08002BE10318}"
$NoUnloadClass[2] = "{4D36E96B-E325-11CE-BFC1-08002BE10318}"
$NoUnloadClass[3] = "{4D36E96F-E325-11CE-BFC1-08002BE10318}"
$NoUnloadClass[4] = "{4D36E97D-E325-11CE-BFC1-08002BE10318}"
$LastDeviceID = "Skyfree"
While (1)
 $Cls = RegEnumKey($Class, $i)
 If @error = -1 Then ExitLoop
 $k = 0
 $Flag = 0
 While ($k < 5)
  If $Cls = $NoUnloadClass[$k] Then
   $Flag = 1
   ExitLoop
  EndIf
  $k = $k + 1
 WEnd
 If $Flag = 0 Then
  $Cls = $Class & "\" & $Cls