Disable/Enable CTRL+ALT+DEL - visual basic, vb, active server pages (ASP),j

code,CTRLALTDEL,pressing,disable,call,functio

RentACoder Stats

Code: lines
Jobs: 0 postings

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 :D
    //     isable/Enable CTRL+ALT+DEL
    //**************************************
    //     
    '***************************************************************
    'Windows API/Global Declarations for :Dissable / 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 langauges 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/enab
    //     led 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
    // By: King Patrik the Zerg
    //
    //This code is copyrighted and has    // limited warranties.Please see http://
    //     www.Planet-Source-Code.com/xq/ASP/txtCod
    //     eId.1494/lngWId.-10/qx/vb/scripts/ShowCo
    //     de.htm    //for details.    //**************************************
    //     
    
    ' Put this into Sub Main in a module
    ' Disable/Enable CTRL+ALT+DEL
    '***************************************************************
    ' Name: Dissable / Enable CTRL + ALT + DEL
    ' Description:Dissable / Enable CTRL + ALT + DEL , This does just
    ' what it says, it disables a used from pressing CTRL+ALT+DEL. Well
    ' not dissables them from doing it, it just wont do anything if the
    ' y do. :o)This is useful in setup programs 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 Enable it again, or restart your
    ' system.
    '
    'Assumes:None
    '
    'Side Effects:You wont be able to use CTRL + ALT + DEL until you
    ' Enable it again, or restart your system.
    '
    '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

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.