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
Top Careers at Microsoft
February 3, 2023
Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job
