|
|
发表于 2023-1-28 23:11:10
|
显示全部楼层
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_Version=beta
#AutoIt3Wrapper_Icon=DWRCD_3049.ico
#AutoIt3Wrapper_OutFile=USB接口管理.exe
#AutoIt3Wrapper_Res_Comment=USB接口管理
#AutoIt3Wrapper_Res_Description=USB接口管理
#AutoIt3Wrapper_Res_Fileversion=2011.7.2.21
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=JNS TECH
#AutoIt3Wrapper_Run_Tidy=y
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
;#NoTrayIcon
#include <Date.au3>
;防止多次打开文件
$g_szVersion = "Usb_Sys"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)
#include <Misc.au3>
_Singleton("Usb_Sys")
;---------------------------
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR", "Start", "REG_DWORD", "00000004");启用禁止加载USB驱动
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies", "WriteProtect", "REG_DWORD", "00000001");启用禁止写入移动磁盘
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDrives", "REG_DWORD", "00000001");启用隐藏U盘图标
$baohuo = 1;保护为1
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Usb", "time") = "" Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Usb", "time", "REG_DWORD", "20")
EndIf
;----------------------------
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Usb", "Pass") = "" Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Usb", "Pass", "REG_SZ", "12345")
Else
EndIf
;---------------------------
Opt("TrayMenuMode", 1) ; 默认菜单项目 (脚本暂停中/退出)(Script Paused/Exit) 将不会显示.
TraySetState()
TraySetToolTip("USB接口系统管理")
$usb = TrayCreateItem("解除保护")
TrayCreateItem("")
$settingsitem = TrayCreateMenu("高级设置")
$pass = TrayCreateItem("修改密码", $settingsitem)
TrayCreateItem("", $settingsitem)
$inupttime = TrayCreateItem("修改延时", $settingsitem)
TrayCreateItem("", $settingsitem)
$quititem = TrayCreateItem("卸载还原", $settingsitem)
TrayCreateItem("")
$aboutitem = TrayCreateItem("程序信息")
TrayCreateItem("")
$exititem = TrayCreateItem("关闭程序")
TraySetState(1)
TraySetClick(9)
;------------------------------
While 1
;----------------------------
$msg = TrayGetMsg()
Select
Case $msg = $usb
$input1 = InputBox("密码验证", "请输入解除保护的密码！", "", "*", 230, 100, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, 10)
If @error = 1 Then
ElseIf $input1 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Usb", "Pass") Then
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR", "Start", "REG_DWORD", "00000003");解除禁止加载USB驱动
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies", "WriteProtect", "REG_DWORD", "00000000");解除写入移动磁盘
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDrives", "REG_DWORD", "00000000");解除隐藏U盘图标
$baohuo = 0
TraySetState(4)
Else
MsgBox(16, "密码验证", "密码输入错误！", 1)
EndIf
Case $msg = $aboutitem
TrayTip("", "系统USB接口管理1.4 版本:2011.07.22", 5, 2)
Sleep(2000)
TrayTip("", "", 0)
Case $msg = $exititem
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR", "Start", "REG_DWORD", "00000004");启用禁止加载USB驱动
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies", "WriteProtect", "REG_DWORD", "00000001");启用禁止写入移动磁盘
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDrives", "REG_DWORD", "00000001");启用隐藏U盘图标
Exit
Case $msg = $quititem
$input1 = InputBox("卸载验证", "请输入解除保护的密码！", "", "*", 230, 100, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, 10)
If @error = 1 Then
ElseIf $input1 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Usb", "Pass") Then
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR", "Start", "REG_DWORD", "00000003");解除禁止加载USB驱动
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies", "WriteProtect", "REG_DWORD", "00000000");解除写入移动磁盘
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDrives", "REG_DWORD", "00000000");解除隐藏U盘图标
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Usb", "Pass")
MsgBox(48, "卸载验证", "卸载成功！", 1)
Exit
Else
MsgBox(16, "卸载验证", "密码输入错误！", 1)
EndIf
Case $msg = $pass
$value1 = InputBox("修改密码", "请输入修改前的密码！", "", "*", 230, 100, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, 10)
If @error = 1 Then
ElseIf $value1 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Usb", "Pass") Then
$value2 = InputBox("修改密码", "请输入新的密码！", "", "", 230, 100, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, 10)
$value3 = InputBox("修改密码", "请再次输入新的密码！", "", "", 230, 100, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, 10)
If $value2 = $value3 Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Usb", "Pass", "REG_SZ", $value2)
MsgBox(48, "修改密码", "密码核对修改成功！", 1)
Else
MsgBox(16, "修改密码", "密码两次输入不一致！", 1)
EndIf
Else
MsgBox(16, "修改密码", "密码输入错误！", 1)
EndIf
Case $msg = $inupttime
$input2 = InputBox("修改延时", "请输入修改延时(20~60秒)！", "", "", 230, 100, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, 10)
If @error = 1 Then
ElseIf $input2 < 61 And $input2 > 19 Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Usb", "time", "REG_DWORD", $input2)
Else
MsgBox(16, "修改错误", "请输入修改延时(20~60秒)！", 1)
EndIf
Case $msg = 0
Select
Case $baohuo = 0
$i = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Usb", "time")
While 1
TrayTip("", "USB接口可以正常使用" & $i & "秒钟后将自动再一次加锁!", 0)
If $i = 0 Then
$baohuo = 1
TrayTip("", "USB接口已被锁定不能正常使用!", 0)
Sleep(1000)
TrayTip("", "", 0)
ExitLoop
EndIf
$i = $i - 1
Sleep(1000)
WEnd
Case Else
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR", "Start", "REG_DWORD", "00000004");启用禁止加载USB驱动
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies", "WriteProtect", "REG_DWORD", "00000001");启用禁止写入移动磁盘
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDrives", "REG_DWORD", "00000001");启用隐藏U盘图标
TraySetState(8)
Sleep(500)
EndSelect
EndSelect
WEnd
|
|
|小黑屋|手机版|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
IP卡
狗仔卡
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
发表于 2023-1-27 10:35:22
楼主