Html 登录时暂时禁用任务管理器

我有一个脚本，可以在PC登录时创建用户协议。此脚本强制用户单击“我拒绝”将自动注销用户，或单击“我接受”将关闭协议并让用户正常继续

程序运行得很好，唯一的问题是用户可以使用任务管理器来关闭协议。所有用户都可以正常访问，但每个人都可以访问任务管理器来关闭程序

我想知道是否有什么可以添加到脚本中，或者临时禁用CTRL+ALT+DEL/Task manager的方法，以便在不单击“我接受”或“我拒绝”的情况下无法关闭协议程序

脚本如下所示：

AUP.hta

AUP.vbs

---

要禁用任务管理器，请尝试以下代码：

Call DisableTaskMgr
'-----------------------------DisableTaskMgr-------------------------------------
sub DisableTaskMgr
Dim WshShell,System
System="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
Set WshShell=CreateObject("WScript.Shell")
Wshshell.RegWrite System, "REG_SZ"
WshShell.RegWrite System &"\DisableTaskMgr", 1, "REG_DWORD"
end sub

要再次启用它，请执行以下操作：

Call EnableTaskMgr
'------------------------------EnableTaskMgr-------------------------------------
sub EnableTaskMgr
Dim WshShell,System
System="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
Set WshShell=CreateObject("WScript.Shell")
Wshshell.RegWrite System, "REG_SZ"
WshShell.RegWrite System &"\DisableTaskMgr", 0, "REG_DWORD"
end sub

---

要禁用任务管理器，请尝试以下代码：

Call DisableTaskMgr
'-----------------------------DisableTaskMgr-------------------------------------
sub DisableTaskMgr
Dim WshShell,System
System="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
Set WshShell=CreateObject("WScript.Shell")
Wshshell.RegWrite System, "REG_SZ"
WshShell.RegWrite System &"\DisableTaskMgr", 1, "REG_DWORD"
end sub

要再次启用它，请执行以下操作：

Call EnableTaskMgr
'------------------------------EnableTaskMgr-------------------------------------
sub EnableTaskMgr
Dim WshShell,System
System="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
Set WshShell=CreateObject("WScript.Shell")
Wshshell.RegWrite System, "REG_SZ"
WshShell.RegWrite System &"\DisableTaskMgr", 0, "REG_DWORD"
end sub

---

太好了，这正是我想要的！谢谢完美，这正是我想要的！非常感谢。

Call EnableTaskMgr
'------------------------------EnableTaskMgr-------------------------------------
sub EnableTaskMgr
Dim WshShell,System
System="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
Set WshShell=CreateObject("WScript.Shell")
Wshshell.RegWrite System, "REG_SZ"
WshShell.RegWrite System &"\DisableTaskMgr", 0, "REG_DWORD"
end sub