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
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
