参考: Typename, Disabling Keys in Windows XP with TrapKeys : http://msdn.microsoft.com/msdnmag/issues/02/09/CQA/default.aspxWindows XP系统中如何屏蔽 Ctrl+Alt+Del、Alt+Tab以及Ctrl+Esc键序列: http://www.vckbase.com/document/viewdoc.asp?id=424 http://www.1cplusplusstreet.com/vb/scripts/ShowCode.asp?txtCodeId=4163&lngWId=3
楼上的兄弟,先谢谢你了哦。。可是我要的是VB的哦。。你怎么都给我找C的来了啊???苦啊
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 LongPrivate Sub Command1_Click() Dim pOld As Boolean Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0) DisAlt = True Label1.Caption = "状态:禁止Ctrl+Alt_Del" End SubPrivate Sub Command2_Click() Dim pOld As Boolean Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0) DisAlt = False Label1.Caption = "状态:允许Ctrl+Alt_Del" End Sub
以上的方法在Win9X以后的版本上不起作用。
Open "c:\windows\system32\taskmgr.exe" For Binary Lock Read As #1 XP下行,2K下再说吧,你得把闪屏干掉!
Typename, Disabling Keys in Windows XP with TrapKeys :
http://msdn.microsoft.com/msdnmag/issues/02/09/CQA/default.aspxWindows XP系统中如何屏蔽 Ctrl+Alt+Del、Alt+Tab以及Ctrl+Esc键序列:
http://www.vckbase.com/document/viewdoc.asp?id=424
http://www.1cplusplusstreet.com/vb/scripts/ShowCode.asp?txtCodeId=4163&lngWId=3
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As LongPrivate Sub Command1_Click()
Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
DisAlt = True
Label1.Caption = "状态:禁止Ctrl+Alt_Del"
End SubPrivate Sub Command2_Click()
Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
DisAlt = False
Label1.Caption = "状态:允许Ctrl+Alt_Del"
End Sub
XP下行,2K下再说吧,你得把闪屏干掉!