Disable screensaver

[stbfireman]

Does anyone know how to disable the screensaver (using API or whatever)in VB 6(Not using DisablePro32.ocx either)

[SonGouki]

Sure do, try the following:

'<<< CONSTANTS >>>
Private Const SPI_SETSCREENSAVEACTIVE As Long = 17

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


'<<< DECLARES >>>
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

Then call like this:

   Dim lRet As Long
   Dim lCBool As Long
   
   lCBool = 0
   lRet = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, lCBool, ByVal 0, SPIF_UPDATEINIFILE)

Set lCBool to 0 (zero) to de-activate the screen saver, and set it to a nonzero value to re-activate the screen saver. Make sure if you de-activate the screen saver that you re-activate it before your program terminates, otherwise the screen saver will act buggy. Play with it yourself it see what I mean.

Later.