🚀 go-pugleaf

Luc Kumps wrote:
 
> Zoek dan eens op je MSDN naar het woord "SPI_SETSCREENSAVEACTIVE"...

Bedankt voor je heel nutige informatie. Ik moest uiteindelijk een Visual
Basic toepassing hebben dus heb ik via altavista naar
"+SPI_SETSCREENSAVEACTIVE +visual basic" gezocht. Dit was geen probleem.
Hier een kopie van mijn source zodat iedereen er wat aan heeft:

---------

Public Declare Function SystemParametersInfo Lib "user32" _
 Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As
Long, _
                                ByVal lpvParam As Any, ByVal fuWinIni As
Long) As Long
Public Const SPI_SETSCREENSAVEACTIVE As Long = &H11
Public Const SPIF_SENDWININICHANGE As Long = &H2

Sub vbPreventScreenSaver() ' bij programmastart
  SystemParametersInfo SPI_SETSCREENSAVEACTIVE, False, 0&,
SPIF_SENDWININICHANGE
End Sub
Sub vbRestoreScreenSaver() ' bij programmastop
  SystemParametersInfo SPI_SETSCREENSAVEACTIVE, True, 0&,
SPIF_SENDWININICHANGE
End Sub

------

Met vriendelijke groeten,
Hugo Maes