'Open
new project. Add a module. Write down this public
declaration in. Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long Public Const SPI_SCREENSAVERRUNNING = 97 'Put 2 button on the form and write down the codes below in. Private Sub Command1_Click() t& = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, x&, 0&) End Sub Private Sub Command2_Click() t& = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, x&, 0&) End Sub Private Sub Form_Load() Command1.Caption = "Disable CTRL-ALT-Del and CTRL-ESC" Command2.Caption = "Enable CTRL-ALT-Del and CTRL-ESC" End Sub
|