usb 禁用启用小工具,支持密码,进程保护

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
喜欢就支持一下吧
点赞12 分享
评论 抢沙发

请登录后发表评论

    暂无评论内容