用VC或VB如何屏闭掉ctrl + alt + del 热启动键,急等解答

rfit 2000-08-06 07:07:00
各位高手:

请问,在编程中 如何屏闭掉ctrl + alt + del 热启动键,

我在 csdn 找不到,如果各位知道该问题解答的网址,
还望告知!

非常感谢
...全文
561 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
dcrwy 2000-08-08
  • 打赏
  • 举报
回复
用HOOK也可以,抓到CTRL、ALT、DEL键,不让它向下传
ustczhy 2000-08-08
  • 打赏
  • 举报
回复
Dim DisAlt As Boolean
Dim AltUp As Boolean
Dim CtrlAlt As Boolean
Dim LastKey As Integer

Const SPI_SCREENSAVERRUNNING = 97
Private Declare Function ReadPort Lib "io.dll" (ByVal Address As Long) As Byte
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

Private Sub Command1_Click()
Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
DisAlt = True
Label1.Caption = "状态:禁止Ctrl+Alt_Del"
End Sub

Private Sub Command2_Click()
Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
DisAlt = False
Label1.Caption = "状态:允许Ctrl+Alt_Del"
End Sub


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim W As Byte
AltUp = False
LastKey = 0
If Shift = 6 And DisAlt = True Then
Do While AltUp = False
CtrlAlt = True
DoEvents
Loop
Else
CtrlAlt = False
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
AltUp = True
If LastKey = ReadPort(&H60) And LastKey = 184 And CtrlAlt = True Then
MsgBox "你按了Ctrl + Alt +Del 键!", vbOKOnly + vbInformation, "提示"
LastKey = 0
End If
LastKey = ReadPort(&H60)
End Sub

Private Sub Form_Load()
Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
DisAlt = False
AltUp = False
CtrlAlt = False
Label1.Caption = "状态:允许Ctrl+Alt_Del"
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
End Sub
祝您好运!
rfit 2000-08-07
  • 打赏
  • 举报
回复
谢谢

还有吗?
kinghan 2000-08-07
  • 打赏
  • 举报
回复
完成这一功能的最简单方法是使用RegisterHotKey函数。在调用该函数后你的进程回在ctrl + alt + del 按下时比系统先得到通知。 你需要处理的消息是WM_HOTKEY。

BOOL RegisterHotKey(HWND hWnd, int id, UINT fsModifiers, UINT vk);
参数 fsModifiers指明与热键联合使用按键,可取值为:MOD_ALT MOD_CONTROL MOD_WIN MOD_SHIFT
参数 vk指明热键的虚拟键码

Gempin 2000-08-06
  • 打赏
  • 举报
回复
禁止使用 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)
hugos 2000-08-06
  • 打赏
  • 举报
回复
SysParameterInfo API 调用
「已注销」 2000-08-06
  • 打赏
  • 举报
回复
使用api:SystemParametersInfo。

BOOL SystemParametersInfo(

UINT uiAction, // system parameter to query or set
UINT uiParam, // depends on action to be taken
PVOID pvParam, // depends on action to be taken
UINT fWinIni // user profile update flag
);

VC的:

int NoUse;
//...其他程序
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, &NoUse, 0);//设置成屏保模式

16,467

社区成员

发帖
与我相关
我的任务
社区描述
VC/MFC相关问题讨论
社区管理员
  • 基础类社区
  • Web++
  • encoderlee
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

        VC/MFC社区版块或许是CSDN最“古老”的版块了,记忆之中,与CSDN的年龄几乎差不多。随着时间的推移,MFC技术渐渐的偏离了开发主流,若干年之后的今天,当我们面对着微软的这个经典之笔,内心充满着敬意,那些曾经的记忆,可以说代表着二十年前曾经的辉煌……
        向经典致敬,或许是老一代程序员内心里面难以释怀的感受。互联网大行其道的今天,我们期待着MFC技术能够恢复其曾经的辉煌,或许这个期待会永远成为一种“梦想”,或许一切皆有可能……
        我们希望这个版块可以很好的适配Web时代,期待更好的互联网技术能够使得MFC技术框架得以重现活力,……

试试用AI创作助手写篇文章吧