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

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

相关文章:
禁止使用 Alt-Tab 或 Ctrl-Alt-Del
禁止使用 Alt-Tab Ctrl-Alt-Del_工学_高等教育_教育专区。禁止使用 Alt-Tab Ctrl-Alt-Del??? Alt-TabCtrl-Alt-Del Private Declare Function E...
2013linux考试答案
将/etc 目录(包括其子目录和所有文件)打包并压缩到 /root/exam/etc.tar.gz ...禁止用户使用 ctrl-alt-del 组合键重启系统 ; vi /etc/inittab 一行注释掉 ...
Disable Ctrl-Alt-Delete, Alt-Tab, Ctrl-Esc
Disable Ctrl-Alt-Delete, Alt-Tab, Ctrl-Esc Using the SystemParametersInfo function you can trick Windows into thinking that the screen saver is running. ...
复习试题
A:Power B:Alt+Del+Ctrl C:Alt+Del+Shift D:Tab+Del+Shift 答案:B 24、...A:禁止使用 B:先查毒,后使用 C:使用后,就杀毒 D:随便使用 答案:B 47、...
大题库
A:Power B:Alt+Del+Ctrl C:Alt+Del+Shift D:Tab+Del+Shift 答案:B 15、...A:禁止使用 B:先查毒,后使用 C:使用后,就杀毒 D:随便使用 答案:B 34、...
计算机真题
+Del 按钮对计算机热启动 C.可用 Ctrl+Alt+Del ...粘贴最近一次剪切的内容 31.如果要禁止使用虚拟内存,...A. Shift B. Tab C. Ctrl D. Alt 69.在 ...
Linux系统安全
10. 使 CTRL-ALT-DEL 关机键无效 编辑/etc/inittab 文件注释 ca::ctrlclt...禁止使用控制台程序 删除/etc/security/console.apps 目录下的: halt power ...
高数
A.ctrl+alt+del B.ctrl+alt+shif C.ctrl+alt+tab D.ctrl+alt+end 第 1...例如,为了预防计算机病毒,对于外来信息应采取 A.禁止使用 C.使用后,就查毒 。...
信息1
C、Ctrl )。 D、Tab+Del+Shift C、Alt+Del+Shift 8、PC 机的中文含义是(...( A、编程程序 A、磁盘片 A、文字 A、禁止使用 16、开机时应先开 )的支持...
计算机网考
A.ctrl+alt+del B.ctrl+alt+shif C.ctrl+alt+tab D.ctrl+alt+end 此题...A.禁止使用 B.先查毒、后使用 C.使用后,就查毒 D.随便使用 这是一般常识...
更多相关标签:
win7禁止ctrl alt del | ctrl alt del | 开机显示ctrl alt del | 电脑开机ctrl alt del | ctrl alt del无限重启 | 禁用ctrl alt del | win7 ctrl alt del | 虚拟机ctrl alt del |