GetScreenSaverState, SetScreenSaverState – Enable or disable the screen saver

GetScreenSaverState, SetScreenSaverState – Enable or disable the screen saver

Private Const SPI_SETSCREENSAVEACTIVE = 17Private Const SPI_GETSCREENSAVEACTIVE = 16Private 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 Enabled state of the screen saverFunction GetScreenSaverState() As Boolean    Dim result As Long    SystemParametersInfo SPI_GETSCREENSAVEACTIVE, 0, result, 0    GetScreenSaverState = (result <> 0)End Function' enable or disable the screen saver'' if second argument is true, it writes changes in user's profile' returns True if the operation was successful, False otherwiseFunction SetScreenSaverState(ByVal enabled As Boolean, _    Optional ByVal PermanentChange As Boolean) As Boolean    Dim fuWinIni As Long    If PermanentChange Then        fuWinIni = SPIF_SENDWININICHANGE Or SPIF_UPDATEINIFILE    End If    SetScreenSaverState = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, enabled, _        ByVal 0&, fuWinIni) <> 0End Function

See also  Essential Measures for Safeguarding Your Digital Data

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