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

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

相关文章:
Windows XP系统中如何屏蔽 Ctrl+Alt+Del、Alt+Tab以及C...
Windows XP系统中如何屏蔽 Ctrl+Alt+DelAlt+Tab以及Ctrl+Esc键序列_电脑基础...如 Notepad 或者 WordPad 等都可以。此外,使用管理模板文件,系统管 理员可以用...
WIN7使用组合键CTRL+ALT+DEL无法调出任务管理器
WIN7使用组合键CTRL+ALT+DEL无法调出任务管理器_计划/解决方案_实用文档。WIN7...禁止使用 Alt-Tab Ct... 1页 免费 win7快捷键-ctrlalt 2页 免费 ...
电脑开机显示Ctrl+Alt+Del的解决办法
电脑开机显示Ctrl+Alt+Del的解决办法_电脑基础知识_IT/计算机_专业资料。电脑...使用 U 盘光盘启动到 PE 系统后使用 DM 处理过程: 右键点击硬盘 0(只有一...
Ctrl+Alt+Del组合键
使用 Windows XP 系统中,按下 Ctrl+Alt+Del 组合键,弹出“任务管理器”,它提供了正 在运行的程序和进程的相关信息, 可以监视计算机性能、 查看网络状态等, ...
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/计算机_专业资料。只要将本地电脑的输入法切换到系统默认的英文输入,同时将远程电脑的输入法切换成拼音五笔输入法即可,因为远...
按下Ctrl+alt+del三键为什么出现windows安全,而不是任...
禁用 ”选项, 单击”确定”以后,按”Ctrl+Alt+Del”组合 键就可以调出”任务...新建一个名称为“ DisableTaskMgr”的键值,值为 0 不存在时表 示允许使用[...
ctrl+alt+shift等常用快捷键
Alt+空格+S 改变窗口大小 CTRL+Esc 显示开始菜单 Alt+Tab 两个程序交换 CTRL...CTRL+Deltet: 删除光标后面的一个 英文单词一个中文词语(可反复 使用) 。 ...
...is missing Press Ctrl+Alt+del to Restart”问题
成功解决虚拟机( 成功解决虚拟机(VMware Workstation)安装 ghost 版系统提示 )“ntldr is missing Press Ctrl+Alt+del to Restart”问题 ” 虚拟机安装 ...
ctrl+alt+del后输入用户名与密码后自动注销返回登录
ctrl+alt+del 后输入用户名与密码后自动注销,返回登录界面,无法进入系统桌面,机器无法使用,更郁 闷的是,安全模式下也是一样~ ctrl+alt+del 后输入用户名与...
更多相关标签: