How to disable screensaver, sleep, lock, hibernate on windows 7 or using vb.net 2010

Question

I don't have any idea if it is possible and how can I code it.

I have created an application that needs to run on a non-administrator account on windows 7. It won't run if the PC goes sleep/ locked/ hibernate/ on-screensaver. So, I want to disable them programmatically using vb.net 2010. Can any one help me?

By the way, I already tried to edit the power settings of the PC so it will never sleep/ hibernate, etc. But unfortunately, it keeps on sleeping after few hours. Any idea?

Vinod · Answer 1 · 2012-06-04T08:27:04.157

0

Try this:

Private Const SPI_SETSCREENSAVERACTIVE As Integer = 17

Private Declare Function SystemParametersInfo Lib "user32" _
    Alias "SystemParametersInfoA" (ByVal uAction As Integer, _
    ByVal uParam As Integer, ByRef lpvParam As Integer, _
    ByVal uWinIni As Integer) As Integer

Public Function SetScreenSaverActive(ByVal Active As Boolean) As Boolean

    Dim Result As Integer = SystemParametersInfo(SPI_SETSCREENSAVERACTIVE, CInt(Active), 0, 0)
    Return (Result > 0)

End Function

edited Jun 04 '12 at 08:27

answered Jun 04 '12 at 07:18

Vinod

4,672
4
19
26

Unfortunately, since the account I am using is non-admin, I cannot access regedit. Any idea? – Kris Edison Jun 04 '12 at 07:53

score 0 · Answer 2 · edited May 23 '17 at 10:24

0

SetThreadExecutionState (VB) can be used to inform the system that it is in use. For CD-burners and things like that you might want to use ShutdownBlockReasonCreate.

edited May 23 '17 at 10:24

Community

1
1

answered Jun 04 '12 at 07:31

Anders

97,548
12
110
164

by the way, do I need to put the code inside the timer sub? or is it called only once? – Kris Edison Jun 04 '12 at 07:56
Not if you OR with ES_CONTINUOUS – Anders Jun 04 '12 at 08:20

How to disable screensaver, sleep, lock, hibernate on windows 7 or using vb.net 2010

2 Answers2