Disable screensaver

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

Sure do, try the following:

Code:

---

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

Code:

---

  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.