Disable/Enable CTRL+ALT+DEL

	Print
	Email

Submitted on: 3/12/1999
By: King Patrik the Zerg
Level: Not Given
User Rating:

By 1 Users
Compatibility:VB 4.0 (32-bit), VB 5.0, VB 6.0

Users have accessed this code 11798 times.

' This code disables/enabled CTRL+ALT+DEL pressing ' To disable CTRL+ALT+DEL, call the function Disable_CTRL_ALT_DEL ' To enabled CTRL+ALT+DEL, call the function Enable_CTRL_ALT_DEL

Windows API/Global Declarations:

Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!


'**************************************
'Windows API/Global Declarations for :Di
'     sable/Enable CTRL+ALT+DEL
'**************************************
'***************************************
'     ************************
'Windows API/Global Declarations for :Di
'     ssable / Enable CTRL + AL
' T + DEL
'***************************************
'     ************************

Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
    Public Const SPI_SCREENSAVERRUNNING = 97
Public Sub Disable_Ctrl_Alt_Del()

    'Disables the Crtl+Alt+Del
    Dim AyW As Integer
    Dim TurFls As Boolean
    AwY = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, TurFls, 0)
End Sub


Public Sub Enable_Ctrl_Alt_Del()

    'Enables the Crtl+Alt+Del
    Dim AwY As Integer
    Dim TurFls As Boolean
    AwY = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, TurFls, 0)
End Sub

code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!

Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.


'**************************************
' Name: Disable/Enable CTRL+ALT+DEL
' Description:' This code disables/enabl
'     ed CTRL+ALT+DEL pressing
' To disable CTRL+ALT+DEL, call the func
'     tion Disable_CTRL_ALT_DEL
' To enabled CTRL+ALT+DEL, call the func
'     tion Enable_CTRL_ALT_DEL
' By: King Patrik the Zerg
'
'This code is copyrighted and has' limited warranties.Please see http://w
'     ww.Planet-Source-Code.com/vb/scripts/Sho
'     wCode.asp?txtCodeId=1494&lngWId;=1'for details.'**************************************

' Put this into Sub Main in a module
' Disable/Enable CTRL+ALT+DEL
'***************************************
'     ************************
' Name: Dissable / Enable CTRL + ALT + D
'     EL
' Description:Dissable / Enable CTRL + A
'     LT + DEL , This does just
' what it says, it disables a used from 
'     pressing CTRL+ALT+DEL. Well
' not dissables them from doing it, it j
'     ust wont do anything if the
' y do. :o)This is useful in setup progr
'     ams when it is important th
' ea a user not end task your program.
' By: Cy Toad
'
'
' Inputs:'Example of use:
' Call Disable_Ctrl_Alt_Del()
'Then at another time:
' Call Enable_Ctrl_Alt_Del()
'
' Returns:Dissables / Enables CTRL + ALT
'     + DEL You wont be able t
' o use CTRL + ALT + DEL until you Enabl
'     e it again, or restart your
' system.
'
'Assumes:None
'
'Side Effects:You wont be able to use CT
'     RL + ALT + DEL until you
' Enable it again, or restart your syste
'     m.
'
'Code provided by Planet Source Code(tm)
'     (http://www.PlanetSource
' Code.com) 'as is', without warranties 
'     as to performance, fitness,
' merchantability,and any other warranty
'     (whether expressed or impl
' ied).
'***************************************
'     ************************
Dim X
X = MsgBox("Do you wish To disable CTRL+ALT+DEL?", 36, "Disable/Enable CTRL+ALT+DEL")
If X = vbYes Then
    Disable_Ctrl_Alt_Del
    MsgBox "CTRL+ALT+DEL is disabled, try pressing CTRL+ALT+DEL now.", , "Disable/Enable CTRL+ALT+DEL"
    Again:
    X = MsgBox("Enbale CTRL+ALT+DEL now?", 36, "Disable/Enable CTRL+ALT+DEL")
    If X = vbYes Then
        Enable_Ctrl_Alt_Del
    ElseIf X = vbNo Then
        MsgBox "The program will Not End before CTRL+ALT+DEL is enabled.", , "Disable/Enable CTRL+ALT+DEL"
        Goto Again
    End If

End If

Other 1 submission(s) by this author

Report Bad Submission

Your Vote!

Other User Comments

4/15/1999 4:03:00 PM:José Angel Soriano Glez.

Esta Super la pagina

4/16/1999 11:38:00 PM:Leo McGraw

Hey this was neat. It looks like one of 
the questions we did out of our book in 
computer science I today. Except mine 
didn't work 100%. Thanks for the answer.

4/18/1999 10:18:00 PM:Owen

I got a idea try useing other keys like 
pressing "A", etc button it would be 
cooler too

4/21/1999 9:28:00 AM:ed

this would be a kewl program to 
use
but, i am getting the error that 
says:
"...not allowed as public 
members of object modules"
what can 
i do to fix this?

4/23/1999 2:25:00 PM:Wow

Doesn't work on NT

7/25/1999 10:07:00 PM:smoke33

Works great to keep people from 
shutting down my server for my remote 
administration software.

7/31/1999 12:43:00 AM:Jonathan Feucht

This is great! Think of all the great 
bugs you can create with this.

8/3/1999 9:22:00 AM:Dr.Anarchyst

Very usefull code. Now this is great 
when you block the ctrl-alt-del 
functions and you load a program like I 
don`t know....

9/7/1999 1:03:00 AM:Gary McAllister

See we are back to the DOESN'T work 
under NT .. Situation. So is anyone 
here any good at re-writing dlls and if 
so re-write the Gina.dll under NT4 and 
re-write it so you can intercept CTRL 
ALT DEL Hopes this helps with the 
nagging people ..

9/12/1999 12:21:00 AM:beaven

Its working great on windows 95, 98. 
but is there any way to work the same 
thing on NT?

9/16/1999 1:57:00 PM:Glenn Fishwick

It isn't possible to do the same thing 
in NT as CTRL+ALT+DEL causes an 
hardware interupt in NT to protect NT 
from hackers trying to intercept users 
passwords - ie. using a trojan horse 
type program.

9/17/1999 4:08:00 PM:Jerry piere

the porgram works very well but 
How
you diable the windows keys in 
windows
95/98 and NT.

11/10/1999 10:33:00 AM:VaViN

Does not work on NT (Server/Workstation)

12/23/1999 6:32:17 PM:orion

Ok - the boolean variable (Dim AyW As 
Integer
    <u>Dim TurFls As 
Boolean</u>
    AwY = 
SystemParametersInfo(SPI_SCREENSAVERRUNN
ING, True, <u>TurFls</u>, 0)) give me a 
Type Mismatch error, whether i put it 
in a function or directly on the app 
itself.  why is this, and can i use 
CStr(1) instead of the boolean?  I 
tried, and it works, but, i can't 
enable the CTRLALTDEL screen.  Help.

1/9/2000 12:40:03 AM:Jan Nawara

Thank you for rewriting my code. :) 
Just search for "Exclusive Mode" to see 
my code. You will notice that my code 
is a lot simpler (and smaller) and does 
the same identical thing as yours. Plus 
it was written almost 15 months 
earlier. I don't mind you rewriting my 
original code but hope you (and 
everyone else) will take a look at my 
code as well.

2/18/2000 5:31:18 AM:Epos

Looks like bullsh** !
Code doesn't 
work ... not really ...

4/7/2002 1:13:15 PM:Adrian

Email me if you can make it work in Win 
Xp

3/18/2003 9:47:06 PM:Psyc

hey, i can't find the sub/function for 
disabling ctrl+alt+del! :(

Add Your Feedback!

Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.

NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.

For feedback not related to this particular code, please click here.