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
© 版权声明
THE END
暂无评论内容