Binaryworld - GetScreenSaverTimeout, SetScreenSaverTimeout - Control the screen save ... [ VB -> Windows ]

Private Const SPI_SETSCREENSAVETIMEOUT = 15
Private Const SPI_GETSCREENSAVETIMEOUT = 14
Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPIF_UPDATEINIFILE = &H1

Private 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 seconds

Function GetScreenSaverTimeout() As Long
  Dim result As Long
  SystemParametersInfo SPI_GETSCREENSAVETIMEOUT, 0, result, 0
  GetScreenSaverTimeout = result
End 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 otherwise

Function 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) <> 0
End Function