activate / deactivate screen server
2

Question

activate / deactivate screen server

sal21 (Programmer)

(OP)

13 Feb 21 07:21

POssible to activate/deactivate screen saver, via commandbutton?
Tks.

Error7 (Programmer) · Answer 1 · 2021-02-13 14:22:58

If the screen saver is active, i.e. blank screen, how would you see the command button to deactivate it?

Experience is something you don't get until just after you need it.

sal21 (Programmer) · Answer 2 · 2021-02-15 10:43:16

ERROR7, Im stupid!

My request is:

pseudo code

...
deactivate scree saver
...
do until rs.eof
...
rs.move.next
...
loop
reactivate normal screen saver
....

Andrzejek (Programmer) · Answer 3 · 2021-02-15 13:12:21

What do you do to your rs that you exceed the time limit of your screen saver?
My point is – if you do it more efficiently, you may not need to mess with the screen saver.

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson

2009luca (Programmer) · Answer 4 · 2021-02-15 15:09:37

Really the RS are approx 123.xxx
And i fill a TXT file with RS valute.

Note:
I have 2 account on forum, sal21 and 2009luca

Andrzejek (Programmer) · Answer 5 · 2021-02-15 15:28:28

That is not many records. Writing to a text file is pretty straight forward process.
That should not take so long to have a screen saver kick in.

Why are you exceeding the time limit of your screen saver?

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson

Error7 (Programmer) · Answer 6 · 2021-02-15 16:13:24

Will a simple Send Key command periodically prevent the screen saver from kicking in?

Experience is something you don't get until just after you need it.

Andrzejek (Programmer) · Answer 7 · 2021-02-15 17:04:53

Error7 - true, so is periodically moving a mouse just a little in code, but I am trying to figure out what takes so long for screen saver to kick in. I would rather speed up my process rather that mess with PC settings.
pc2

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson

2009luca (Programmer) · Answer 8 · 2021-02-15 17:15:48

RE: activate / deactivate screen server

2009luca (Programmer) 15 Feb 21 17:15

Error7.
Nice suggestioni,
For example...?

Error7 (Programmer) · Answer 9 · 2021-02-15 18:45:07

This solution is based on Andrzejek idea:

Private Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2

Private Sub Form_Load()
Timer1.Interval = 50000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
End Sub

Experience is something you don't get until just after you need it.

sal21 (Programmer) · Answer 10 · 2021-02-15 19:03:37

wat you think about my knowledge...

...
I = I + 1
If I Mod 1000 = 0 Then
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
DoEvents
End If
...

Andrzejek (Programmer) · Answer 11 · 2021-02-15 19:34:10

"the RS are approx 123.xxx" records (?)
I would investigate why my process takes so long (how long anyway?) for so few records...

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson

strongm (MIS) · Answer 12 · 2021-02-16 16:00:57

I'd use Error7's approach - but I wouldn't use the MOUSEEVENTF_LEFTDOWN event. I'd incline towards using MOUSEEVENTF_MOVE (MOUSEEVENTF_MOVE = &H1) instead to invisibly wiggle the mouse.

>wat you think about my knowledge...
I wouldn't do it that way. A tight loop, with DoEvents? No. Use Error7's technique, which uses a timer.

>Will a simple Send Key command periodically prevent the screen saver from kicking in?

No. SendKeys (a horrible kludge, IMO) doesn't do enough to convince the screensaver that there has been activity

sal21 (Programmer) · Answer 13 · 2021-02-16 17:50:42

ok. strongm
wath is your approch?

in other case found this:

CODE

Option Explicit
Private Const SPI_GETSCREENSAVEACTIVE = 16&
Private Const SPI_SETSCREENSAVEACTIVE = 17&
Private 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
'Active = True  - To Activate
'Active = False - To Deactivate
'ScreenSaver False
'ScreenSaver True
Public Function ScreenSaver(Active As Boolean) As Boolean

    Dim A As Long
    Dim R As Long

    A = Abs(Active)    'Needs 1 or 0
    R = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, A, 0, 0)
    ScreenSaver = (R > 0)

End Function
Public Function IsScreenSaverActivated() As Boolean

    Dim A As Long
    Dim R As Long

    R = SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, A, 0)
    IsScreenSaverActivated = (A <> 0)

End Function

strongm (MIS) · Answer 14 · 2021-02-16 18:06:50

>wath is your approch?

I already said - I'd use MOUSEEVENTF_MOVE rather than MOUSEEVENTF_LEFTDOWN. You might want to have a quick look at the documentation for the mouse_event API

>in other case found this:

Great at starting a screensaver, rubbish at stopping one

sal21 (Programmer) · Answer 15 · 2021-02-16 18:16:31

please strongm, can you modify this:

CODE

Private Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2

Private Sub Form_Load()
Timer1.Interval = 50000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
End Sub

strongm (MIS) · Answer 16 · 2021-02-16 19:58:19

CODE -->

Private Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_MOVE = &H1 ' as detailed in one of my previous posts

Private Sub Form_Load()
Timer1.Interval = 50000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
' A tiny wiggle
Call mouse_event(MOUSEEVENTF_MOVE, 1, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_MOVE, -1, 0, 0, 0)
End Sub

sal21 (Programmer) · Answer 17 · 2021-02-17 09:54:37

Hi stringm,
tks, work!

but possible to stop the execution of timer?

strongm (MIS) · Answer 18 · 2021-02-17 10:43:30

> stop the execution of timer?

Timer1.Enabled=False

Come Join Us!

Posting Guidelines

activate / deactivate screen server
2