Trick screen saver

[petereddy]

Hi,

The common method I use for avoiding the group policy screen saver on my machine when I'm actively using my computer, but not necessarily typing, such as working from hard copies and with information on the screen, is to have Excel hit F15 every now and then:

Sub startTheClock()
    Application.OnTime Now + 4 / 60 / 24, "hitf15"
End Sub
Sub hitF15()
    SendKeys "{F15}"
    startTheClock
End Sub

This definitely prevents the screen saver from starting, but it has the obvious unintended consequence of toggling NumLock.

Is there a method that has no unintended consequences?

I think I read somewhere when I first investigated how to prevent the screen saver from popping up at inopportune times that you could move the mouse an imperceptible amount. Is that an option with VBA? If so, how can you do it? If not, are there other alternatives.

Thanks for your help.

Peter

 

[jasonb75]

Multiple F15 sends in the same procedure don't appear to toggle back but this looks like it works, although I have only done a very quick test.

Sub startTheClock()
    Application.OnTime Now + 4 / 60 / 24, "hitf15"
End Sub
Sub hitF15()
    SendKeys "{F15}"
    Application.Wait Now + TimeValue("00:00:01")
    hitF15again
End Sub
Sub hitF15again()
    SendKeys "{F15}"
    startTheClock
End Sub