by iNfO (3 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 3.0
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating:
(6 Votes)
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.
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
'- 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