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

禁止使用 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 可能...11页 免费 禁止使用 Alt-Tab Ct... 2页 免费喜欢此文档的还喜欢 ...
电脑开机显示Ctrl+Alt+Del的解决办法
电脑开机显示Ctrl+Alt+Del的解决办法_电脑基础知识_IT/计算机_专业资料。电脑...使用 U 盘光盘启动到 PE 系统后使用 DM 处理过程: 右键点击硬盘 0(只有一...
Windows Server 2012禁用 Ctrl+Alt+Del方法
Windows Server 2012禁用 Ctrl+Alt+Del方法_计算机软件及应用_IT/计算机_专业资料。Windows Server 2012 禁用 Ctrl+Alt+Del 方法手动配置: 运行 Gpedit.msc[打开组...
WIN7使用组合键CTRL+ALT+DEL无法调出任务管理器
WIN7使用组合键CTRL+ALT+DEL无法调出任务管理器_计划/解决方案_实用文档。WIN7...禁止使用 Alt-Tab Ct... 1页 免费 win7快捷键-ctrlalt 2页 免费 ...
ctrl+alt+del后输入用户名与密码后自动注销返回登录
ctrl+alt+del 后输入用户名与密码后自动注销,返回登录界面,无法进入系统桌面,机器无法使用,更郁 闷的是,安全模式下也是一样~ ctrl+alt+del 后输入用户名与...
教你如何取消开机按键CTRL+ALT+DEL登陆的方法
取消开机按 CTRL+ALT+DEL 登陆的方法: 控制面板→管理工具→本地安全策略→本地策略→安全选项→交互式登陆:无须按 CTRL+ALT+DEL→已启用。 windows7 优化设置...
Ctrl+Alt+Del组合键
使用 Windows XP 系统中,按下 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页...
Ctrl+Alt+delete的使用
执行“本地计算机策略→用户配置→管理模板→系统 →Ctrl+Alt+Del 选项”命令。...或者 通过修改注册表,可以禁止用户使用“任务管理器”。新建一个双字节(REG_ ...
WINCC组合热键的禁止
XGINA_ALLOW_CTRL_ALT_DEL //Windows Key+E, /...ALLOW_ALT_TAB 2 3 1 4 5 6 注意 禁止/使能...Windows 键+ E 用于调 用 Windows 浏览器或者 ...
更多相关标签: