GetScreenSaverTimeout, SetScreenSaverTimeout – Control the screen saver’s timeout

Private Const SPI_SETSCREENSAVETIMEOUT = 15Private Const SPI_GETSCREENSAVETIMEOUT = 14Private Const SPIF_SENDWININICHANGE = &H2Private Const SPIF_UPDATEINIFILE = &H1Private Declare Function SystemParametersInfo Lib "user32" Alias _    "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _    ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long' return the screen saver's timeout value in secondsFunction GetScreenSaverTimeout() As Long    Dim result As Long    SystemParametersInfo SPI_GETSCREENSAVETIMEOUT, 0, result, 0    GetScreenSaverTimeout = resultEnd Function' set the screen saver timeout'' if second argument is True, it writes changes in user's profile' returns True if the operation was successful, False otherwiseFunction SetScreenSaverTimeout(ByVal seconds As Long, Optional PermanentChange _    As Boolean) As Boolean    Dim fuWinIni As Long    If PermanentChange Then        fuWinIni = SPIF_SENDWININICHANGE Or SPIF_UPDATEINIFILE    End If    SetScreenSaverTimeout = SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT , _        seconds, ByVal 0&, fuWinIni) <> 0End Function

Share the Post:
Share on facebook
Share on twitter
Share on linkedin


Recent Articles: