[RESOLVED] Determine if ScreenSaver is running?

[rnd me]

How does one do that?
i need to tell if a workstation is vacant.
Now using a complicated patchwork of last input api, and system idletime through WMI, and i would like one more evaluation: is the screen saver running?

with just the first two, i get false positives if a low-cpu app like an NES emulator is running, using USB controllers.
but if the screensaver is on, they aren't playing any games...

any ideas?

[schoolbusdriver]

I don't have a working example or know how you'd do it over a network but how about the SystemParametersInfo function with the SPI_GETSCREENSAVERRUNNING as the first parameter ?

[rnd me]

thanks sbd!

[rnd me]

for the sake of readers:

Private Const SPI_SETSCREENSAVEACTIVE = 17
Private Const SPI_SETSCREENSAVETIMEOUT = 15
Private Const SPI_GETSCREENSAVETIMEOUT = 14
Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPIF_UPDATEINIFILE = &H1
 
Public 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
     
 
Public Function SSon() As Long 'returns 0 is Screen Saver is off
    Dim result As Long
    SystemParametersInfo 16, 0, result, 0
    SSon = result
End Function