Search Tools Links Login

Ctrl+Alt+Del & Alt+Tab Method (Enable/Disable)


This coding will let you ENABLE and DISABLE the Ctrl + Alt + Del Method and also the Alt + Tab Method. Have Fun. Please Vote for Me.

Original Author: iNfO

API Declarations

'- Made By: iNfO
'- About: These 2 functions let you enable and
'- disable the Ctrl+ Alt + Del Method and the
'- Alt + Tab Method
Public Declare Function SystemParametersInfo2 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 CtrlAltDel_Disable()
'in a button or anywhere,
'put this: ctrlaltdel_disable
Dim syssend As Long
syssend& = SystemParametersInfo2(SPI_SCREENSAVERRUNNING, True, False, 0)
End Sub
Public Sub CtrlAltDel_Enable()
'in a button or anywhere,
'put this: ctrlaltdel_enable
Dim syssend As Long
syssend& = SystemParametersInfo2(SPI_SCREENSAVERRUNNING, False, True, 0)
End Sub

Code

'- You will need:
'-        2 Command Buttons
Private Sub Form_Load()
'- Sets the Captions for the Buttons
Command1.Caption = "Disable"
Command2.Caption = "Enable"
End Sub
Private Sub Command1_Click()
'- This disables the Ctrl + Alt + Del Method
'- and the Alt + Tab Method
CtrlAltDel_Disable
End Sub
Private Sub Command2_Click()
'This enables the Ctrl + Alt + Del Method
'- and the Alt + Tab Method
CtrlAltDel_Enable
End Sub

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 136 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.