CodeItBetter Programming Another VB Programming Blog

'System & API - How to Disable/Toggle screensaver in Windows XP/2003
'Toggle the Screensaver on-off
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
Private Const SPI_SETSCREENSAVEACTIVE = 17
 
'To Activate Screen Saver, set active to true.
'To deactivate, set active to false.
Public Sub ScreenSaver_Toggle(Active As Boolean)
   Dim lActiveFlag As Long
 
   lActiveFlag = IIf(Active, 1, 0)
   SystemParametersInfo SPI_SETSCREENSAVEACTIVE, lActiveFlag, 0, 0
End Sub