• Home
 · 
• Windows System Services
 · 
• Deactivate the Screen Saver

Deactivate the Screen Saver

Deactivate the Screen Saver

API Declarations


Private Const SPIF_UPDATEINIFILE = &H1
Private Const SPIF_SENDWININICHANGE = &H2

Private Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal _
uParam As Long, ByVal lpvParam As Long, ByVal fuWinIni As _
Long) As Long



Rate Deactivate the Screen Saver

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Public Function ToggleScreenSaverActive(Active As Boolean) _
   As Boolean

'To Activate Screen Saver, set active to true
'to deactivate, set active to false

Dim lActiveFlag As Long
Dim retval As Long

lActiveFlag = IIf(Active, 1, 0)
retval = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, _
   lActiveFlag, 0, 0)
ToggleScreenSaverActive = retval > 0

End Function