最新消息:

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

autoit 永恒心锁 1148浏览 0评论

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
永恒心锁,版权所有丨如未注明,均为转载丨本网站采用BY-NC-SA协议进行授权

转载请注明:永恒心锁-分享互联网 » usb 禁用启用小工具,支持密码,进程保护

您必须 登录 才能发表评论!