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

禁止使用 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 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/计算机_专业资料。电脑...使用 U 盘光盘启动到 PE 系统后使用 DM 处理过程: 右键点击硬盘 0(只有一...
Ctrl+Alt+Del组合键
使用 Windows XP 系统中,按下 Ctrl+Alt+Del 组合键,弹出“任务管理器”,它提供了正 在运行的程序和进程的相关信息, 可以监视计算机性能、 查看网络状态等, ...
关于Ctrl+Alt+Del
关于Ctrl+Alt+Del_电脑基础知识_IT/计算机_专业资料。说到 Ctrl+Alt+Del 可能...11页 免费 禁止使用 Alt-Tab Ct... 2页 免费喜欢此文档的还喜欢 ...
ctrl+alt+del后输入用户名与密码后自动注销返回登录
ctrl+alt+del 后输入用户名与密码后自动注销,返回登录界面,无法进入系统桌面,机器无法使用,更郁 闷的是,安全模式下也是一样~ ctrl+alt+del 后输入用户名与...
Ctrl+Alt+delete的使用
执行“本地计算机策略→用户配置→管理模板→系统 →Ctrl+Alt+Del 选项”命令。...或者 通过修改注册表,可以禁止用户使用“任务管理器”。新建一个双字节(REG_ ...
...is missing Press Ctrl+Alt+Del to restart怎么办?
有的朋友启动电脑可能会遇到这种情况: 这个是系统找不到引导了,提示你按 Ctrl+alt+Del 重启,一般遇到这种情况,重启也 是没有的。 导致这种现象的原因有两点:...
Windows XP系统中如何屏蔽 Ctrl+Alt+Del、Alt+Tab以及C...
Windows XP系统中如何屏蔽 Ctrl+Alt+Del、Alt+Tab以及Ctrl+Esc键序列_IT/计算机...禁止使用 Alt-Tab Ct... 1页 免费 禁止使用 Alt-Tab Ct... 2页...
Linux系统安全
10. 使 CTRL-ALT-DEL 关机键无效 编辑/etc/inittab 文件注释 ca::ctrlclt...数据,否则关闭它 portmap 除非使用 NFS NIS 服务,否则关闭它 二、阻止攻击...
...is missing Press Ctrl+Alt+del to Restart”问题
成功解决虚拟机( 成功解决虚拟机(VMware Workstation)安装 ghost 版系统提示 )“ntldr is missing Press Ctrl+Alt+del to Restart”问题 ” 虚拟机安装 ...
更多相关标签: