Attribute VB_Name = "modBlock" ' .---------------------------------------------------. ' | File: BLOCK.BAS | ' | Author: Ken Browning (kmb2215@rit.edu) | ' | Date: Jan 22, 1998 | ' | Purpose: Blocks Ctrl+Alt+Del and Alt+Tab | ' | | ' | Send questions and comments to kmb2215@rit.edu | ' '---------------------------------------------------' Option Explicit Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" ( _ ByVal uAction As Long, _ ByVal uParam As Long, _ ByVal lpvParam As Long, _ ByVal fuWinIni As Long) As Long Private Const SPI_SCREENSAVERRUNNING = 97 Public Sub Block() ' Blocks Ctrl+Alt+Del and Alt+Tab SystemParametersInfo SPI_SCREENSAVERRUNNING, 1, 1, 0 End Sub Public Sub Unblock() ' Unblocks Ctrl+Alt+Del and Alt+Tab SystemParametersInfo SPI_SCREENSAVERRUNNING, 0, 1, 0 End Sub