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

禁止使用 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 Declare 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)

相关文章:
开机取消按 “CTRL+ALT+DEL”和事件报告步骤
开机取消按 “CTRL+ALT+DEL”和事件报告步骤_电脑基础知识_IT/计算机_专业资料...“显示”关闭 事件跟踪程序””,在出现的对话框中选择“已禁用”,然后点击“...
电脑开机显示Ctrl+Alt+Del的解决办法
电脑开机显示Ctrl+Alt+Del的解决办法_电脑基础知识_IT/计算机_专业资料。电脑...使用 U 盘光盘启动到 PE 系统后使用 DM 处理过程: 右键点击硬盘 0(只有一...
Ctrl+Alt+Del组合键
使用 Windows XP 系统中,按下 Ctrl+Alt+Del 组合键,弹出“任务管理器”,它提供了正 在运行的程序和进程的相关信息, 可以监视计算机性能、 查看网络状态等, ...
Windows Server 2012禁用 Ctrl+Alt+Del方法
Windows Server 2012禁用 Ctrl+Alt+Del方法_计算机软件及应用_IT/计算机_专业资料。Windows Server 2012 禁用 Ctrl+Alt+Del 方法手动配置: 运行 Gpedit.msc[打开组...
WINCC组合热键的禁止
XGINA_ALLOW_CTRL_ALT_DEL //Windows Key+E, /...ALLOW_ALT_TAB 2 3 1 4 5 6 注意 禁止/使能...Windows 键+ E 用于调 用 Windows 浏览器或者 ...
QQ远程协助如何发送Ctrl+Alt+Del
QQ远程协助如何发送Ctrl+Alt+Del_IT/计算机_专业资料。只要将本地电脑的输入法切换到系统默认的英文输入,同时将远程电脑的输入法切换成拼音五笔输入法即可,因为远...
WIN7使用组合键CTRL+ALT+DEL无法调出任务管理器
WIN7使用组合键CTRL+ALT+DEL无法调出任务管理器_计划/解决方案_实用文档。WIN7...禁止使用 Alt-Tab Ct... 1页 免费 win7快捷键-ctrlalt 2页 免费 ...
...Ctrl+Alt+Del to restart的原因及解决方法
关于电脑重装系统提示A disk read error occurred,Press Ctrl+Alt+Del to restart的原因及解决方法_电脑基础知识_IT/计算机_专业资料。A disk read error occurred...
计算机第2章答案
A.Ctrl + Alt + Shift B.Ctrl + Alt + Del C.Ctrl + Alt + Tab D....A.鼠标直接将文件文件夹拖放到"回收站"中 B.Delete键删除 C.Shift ...
按下Ctrl+alt+del三键为什么出现windows安全,而不是任...
禁用 ”选项, 单击”确定”以后,按”Ctrl+Alt+Del”组合 键就可以调出”任务...新建一个名称为“ DisableTaskMgr”的键值,值为 0 不存在时表 示允许使用[...
更多相关标签: