Quick Search for:  in language:    
code,CTRLALTDEL,pressing,disable,call,functio
   Code/Articles » |  Newest/Best » |  Community » |  Jobs » |  Other » |  Goto » | 
CategoriesSearch Newest CodeCoding ContestCode of the DayAsk A ProJobsUpload
Visual Basic Stats

 Code: 3,290,928. lines
 Jobs: 179. postings

 How to support the site

 
Sponsored by:

 
You are in:
 

Does your code think in ink?
Login





Latest Code Ticker for Visual Basic.
Check Placement of Form on Screen
By CubeSolver on 11/20


RT Full Duplex
By Brian Black on 11/20


C++ Template Hack
By OpcodeVoid on 11/20


Click here to see a screenshot of this code!DeskTop Generator
By Ziad Said on 11/20

(Screen Shot)

SQLMan
By Darwin H. de Leon on 11/20


Klik! CompareLib...Co mpare and synchronize schema differences in your Access databases...
By Özden Irmak on 11/20


listview000sher if
By Sherif Omran on 11/20


Using ComboBox instead of TextBox
By SMA Soft on 11/20


Click here to see a screenshot of this code!ColorFade
By SMA Soft on 11/19

(Screen Shot)

Click here to put this ticker on your site!


Add this ticker to your desktop!


Daily Code Email
To join the 'Code of the Day' Mailing List click here!

Affiliate Sites



 
 
   

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
Use this form to notify us if this entry should be deleted (i.e contains no code, is a virus, etc.).
Reason:
 
Your Vote!

What do you think of this code(in the Not Given category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor See Voting Log
 
Other User Comments
4/15/1999 4:03:00 PM:José Angel Soriano Glez.
Esta Super la pagina
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
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.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
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
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
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?
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
4/23/1999 2:25:00 PM:Wow
Doesn't work on NT
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
7/25/1999 10:07:00 PM:smoke33
Works great to keep people from 
shutting down my server for my remote 
administration software.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
7/31/1999 12:43:00 AM:Jonathan Feucht
This is great! Think of all the great 
bugs you can create with this.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
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....
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
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 ..
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
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?
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
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.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
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.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
11/10/1999 10:33:00 AM:VaViN
Does not work on NT (Server/Workstation)
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
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. 
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
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.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
2/18/2000 5:31:18 AM:Epos
Looks like bullsh** !
Code doesn't 
work ... not really ...
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
4/7/2002 1:13:15 PM:Adrian
Email me if you can make it work in Win 
Xp
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
3/18/2003 9:47:06 PM:Psyc
hey, i can't find the sub/function for 
disabling ctrl+alt+del! :(
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
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.
 
Name:
Comment:

 

Categories | Articles and Tutorials | Advanced Search | Recommended Reading | Upload | Newest Code | Code of the Month | Code of the Day | All Time Hall of Fame | Coding Contest | Search for a job | Post a Job | Ask a Pro Discussion Forum | Live Chat | Feedback | Customize | Visual Basic Home | Site Home | Other Sites | About the Site | Feedback | Link to the Site | Awards | Advertising | Privacy

Copyright© 1997 by Exhedra Solutions, Inc. All Rights Reserved.  By using this site you agree to its Terms and Conditions.  Planet Source Code (tm) and the phrase "Dream It. Code It" (tm) are trademarks of Exhedra Solutions, Inc.