• Home
 · 
• Miscellaneous
 · 
• Ctrl+Alt+Del & Alt+Tab Method (Enable/Disable)

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.

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


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

• 1
• 2
• 3
• 4
• 5

(6(6 Vote))

'- 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