当前位置:首页 >> 建筑/土木 >>

禁止使用 Alt-Tab 或 Ctrl-Alt-Del


禁止使用 Alt-Tab 或 Ctrl-Alt-Del

Private Declare Function EnableWindow Lib "user32" (ByVal hWnd As Integer, ByVal aBOOL As Integer) As Integer
Private Declar

e Function IsWindowEnabled Lib "user32" (ByVal hWnd As Integer) As Integer
Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Integer) As Integer
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Private TaskBarhWnd As Long
Private IsTaskBarEnabled As Integer
Private TaskBarMenuHwnd As Integer
'禁止或允许使用 Alt-Tab
Sub FastTaskSwitching(bEnabled As Boolean)
Dim X As Long, bDisabled As Long
bDisabled = Not bEnabled
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub
'禁止使用Ctrl-Alt-Del
Public Sub DisableTaskBar()
Dim EWindow As Integer
TaskBarhWnd = FindWindow("Shell_traywnd", "")
If TaskBarhWnd <> 0 Then
EWindow = IsWindowEnabled(TaskBarhWnd)
If EWindow = 1 Then
IsTaskBarEnabled = EnableWindow(TaskBarhWnd, 0)
End If
End If
End Sub
'允许使用Ctrl-Alt-Del
Public Sub EnableTaskBar()
If IsTaskBarEnabled = 0 Then
IsTaskBarEnabled = EnableWindow(TaskBarhWnd, 1)
End If
End Sub

禁止 Ctrl+Alt+Del
声明(For Win95):
Const SPI_SCREENSAVERRUNNING = 97
Private Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
lpvParam As Any, ByVal fuWinIni As Long) As Long
使用:
'禁止
Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
'开启
Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)

相关文章:
Windows XP系统中如何屏蔽 Ctrl+Alt+Del、Alt+Tab以及C...
Windows XP系统中如何屏蔽 Ctrl+Alt+DelAlt+Tab以及Ctrl+Esc键序列_电脑基础...最后需要强调的是 DisableTaskMgr 只是禁用 Ctrl+Alt+Del 的功能。下面我们来...
关于Ctrl+Alt+Del
关于Ctrl+Alt+Del_电脑基础知识_IT/计算机_专业资料。说到 Ctrl+Alt+Del 可能...11页 免费 禁止使用 Alt-Tab Ct... 2页 免费喜欢此文档的还喜欢 ...
Windows Server 2012禁用 Ctrl+Alt+Del方法
Windows Server 2012禁用 Ctrl+Alt+Del方法_计算机软件及应用_IT/计算机_专业资料。Windows Server 2012 禁用 Ctrl+Alt+Del 方法手动配置: 运行 Gpedit.msc[打开组...
更改“Ctrl+Alt+Del”设置
更改“Ctrl+Alt+Del”设置_电脑基础知识_IT/计算机_专业资料。电脑的基础知识 在Windows 2000/2003 中 按下"Ctrl+Alt+Del"组合键时 会弹出"Windows 安全"对话...
电脑开机显示Ctrl+Alt+Del的解决办法
电脑开机显示Ctrl+Alt+Del的解决办法_电脑基础知识_IT/计算机_专业资料。电脑...使用 U 盘光盘启动到 PE 系统后使用 DM 处理过程: 右键点击硬盘 0(只有一...
WIN7使用组合键CTRL+ALT+DEL无法调出任务管理器
WIN7使用组合键CTRL+ALT+DEL无法调出任务管理器_计划/解决方案_实用文档。WIN7...禁止使用 Alt-Tab Ct... 1页 免费 win7快捷键-ctrlalt 2页 免费 ...
WINCC组合热键的禁止
XGINA_ALLOW_CTRL_ALT_DEL //Windows Key+E, /...ALLOW_ALT_TAB 2 3 1 4 5 6 注意 禁止/使能...Windows 键+ E 用于调 用 Windows 浏览器或者 ...
按下Ctrl+alt+del三键为什么出现windows安全,而不是任...
禁用 ”选项, 单击”确定”以后,按”Ctrl+Alt+Del”组合 键就可以调出”任务...新建一个名称为“ DisableTaskMgr”的键值,值为 0 不存在时表 示允许使用[...
...is missing Press Ctrl+Alt+del to Restart”问题
成功解决虚拟机( 成功解决虚拟机(VMware Workstation)安装 ghost 版系统提示 )“ntldr is missing Press Ctrl+Alt+del to Restart”问题 ” 虚拟机安装 ...
...is missing Press Ctrl+Alt+Del to restart怎么办?
有的朋友启动电脑可能会遇到这种情况: 这个是系统找不到引导了,提示你按 Ctrl+alt+Del 重启,一般遇到这种情况,重启也 是没有的。 导致这种现象的原因有两点:...
更多相关标签: