Stop A Running Screen Saver Programmatically !

[BLUE_SEA]

Hi all,

I am running a lenghthy loop and I want to PREVENT the screen saver from running during the time the loop is being excecuted.

I can detect when the screen saver kicks off but I can't seem to disable it as soon as that happens.

I have tried many things including SendKeys and Mouse move evnts, setcursorPos ....to emulate an action but without any luck !

this is waht I have so far but the "SPI_SETSCREENSAVERRUNNING" doesn't work !

Code:

Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
ByRef lpvParam As Long, ByVal fuWinIni As Long) As Long
 
Const SPI_SETSCREENSAVERRUNNING As Long = 97
Const SPI_GETSCREENSAVERRUNNING As Long = &H72
 
Public Sub TEST()
 
    Dim lngIsRunning As Long
    
    Do
        SystemParametersInfo SPI_GETSCREENSAVERRUNNING, vbNull, lngIsRunning, vbNull
        If CBool(lngIsRunning) Then
            'THIS DOESN'T DISABLE SCREEN SAVER !
            SystemParametersInfo SPI_SETSCREENSAVERRUNNING, 0, 0, 0
            Exit Do
        End If
    Loop
    MsgBox "FINISH"
 
End Sub

I have even used different SenMessage commands but nothing disables the screen saver !


FYI, I am using WIN XP.

ANY HELP PLEASE ?

THANK YOU.

[manavo11]

Have a look here : http://www.vbforums.com/showthread.php?t=381732

[BLUE_SEA]

Thanks Manavo but that link doesn't answer my question

I don't want to install or uninstall a screensaver, I want to unload it as soon as it kicks off just like when the mouse is moved or a key pressed by the user.

I hope I have explained this clearly.

FYI, emulating a mouse move via the mouse_event or SetCursorPos APIs or even SendKey don't seem to work !

Anyone has a solution to this one ?

Regards.

[manavo11]

What version of windows are you running? I had tried sending an "enter" press on Win XP Pro with sendkeys and it worked

[benmartin101]

Try api SendInput() to emulate keystroke.

[srisa]

May be I am being naive here. But what wait till the screen saver starts off? How about putting a timer with an interval of 5 minutes or so and simulating shift press and delete or may be even mousemove.