GetScreenSaverTimeout, SetScreenSaverTimeout – Control the screen saver’s timeout

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

See also  Redefining Energy Management: Advanced Solutions for Modern Buildings

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist