devxlogo

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

devx-admin

Share the Post: