usb 禁用启用小工具,支持密码,进程保护禁用usb存储设备,不禁用USB鼠标,启用USB存储设备需输入密码。
Alt + 0 = 退出脚本 Alt + 3 = 启用 Alt + 4 = 禁用
如果用户手动修改注册表启用usb,则程序自动修改成禁用。
#NoTrayIcon #include <Misc.au3> #include <ProtectProcess.au3> Opt("TrayIconHide",1) _ProtectProcess() HotKeySet("!0","_quit");退出 HotKeySet("!3","open");开启USB HotKeySet("!4","close");关闭USB Global $Paused While 1 $jianzhi = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR","Start") Sleep(600) If $jianzhi = "3" Then RegWrite ("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR","Start","REG_DWORD",4) DllCall("user32.dll","int","SendMessageTimeout","hwnd",65535,"int",26,"int",0,"int",0,"int",0,"int",1000,"str","dwResult") EndIf WEnd Func open() Dim $code,$mima $mima = "xxxxxx" $code = InputBox("密码验证","请输入正确的密码解锁","","*","-1","-1",default,default) If $code = $mima Then ;启用 RegWrite ("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR","Start","REG_DWORD",3) DllCall("user32.dll","int","SendMessageTimeout","hwnd",65535,"int",26,"int",0,"int",0,"int",0,"int",1000,"str","dwResult") ;Run("gpupdate /force","",@SW_HIDE) $Paused = Not $Paused While $Paused Sleep(100) WEnd EndIf EndFunc Func close() $Paused = Not $Paused While $Paused Sleep(100) WEnd RegWrite ("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR","Start","REG_DWORD",4) DllCall("user32.dll","int","SendMessageTimeout","hwnd",65535,"int",26,"int",0,"int",0,"int",0,"int",1000,"str","dwResult") ;Run("gpupdate /force","",@SW_HIDE) EndFunc Func _quit() $mi = "xxxxxxxxxx" $duqu = InputBox("退出程序 __ hzpc","请输入正确的密码","","*","130","130",default,default) If $duqu = $mi Then Exit EndIf EndFunc