Hola buenas. Vereis soy un friki que pasa demasiadas horas delante del ordenador y habia pensado hacer un programilla para saber cuanto tiempo paso realmente para verificar que tengo un problema y eso... Para medir el tiempo con el programatengo que poder hacer tambien que se pare cuando el ordenador este encendido pero no lo este usando, y ahí tengo un problema, porque si le digo al programa que pare el cronometro cuando lleve x tiempo de inactividad estoy induciendo un error bastante considerable para cuando, por ejemplo, este viendo la tele o una pelicula en el ordenador. Habia pensado entonces que la solucion mas adecuada era parar el reloj al activarse el protector de pantalla, pero claro eso yo ya no lo se hacer... A ver si alguien me puede echar una mano con eso. Muchas gracias.

No se si se puede hacer, pero me respondo a mi mismo tras un dia de busqueda y sin respuesta en el foro:


El ejemplo siguiente determina si el usuario tiene el protector de pantalla activado y tambien detecta cuando este esta corriendo:


En un form corriente y moliente:


Option Explicit


Private Declare Function SystemParametersInfo _
Lib "user32" _
Alias "SystemParametersInfoA" _
(ByVal uiAction As Long, _
ByVal uiParam As Long, _
pvParam As Any, _
ByVal fWInIni As Long) As Boolean


Private Const SPI_GETSCREENSAVEACTIVE As Long = &H10
Private Const SPI_GETSCREENSAVERRUNNING As Long = &H72





Private Sub Form_Load()
Dim bActive As Boolean

' Find out if screen saver is active, and display a suitable message.
SystemParametersInfo SPI_GETSCREENSAVEACTIVE, 0, bActive, False
If bActive Then
Me.Caption = "Screen saver is active"
Else
Me.Caption = "Screen saver is not active"
End If
End Sub



Private Sub Timer1_Timer()
Dim bRunning As Boolean


' Beep if the screen saver is running.
SystemParametersInfo SPI_GETSCREENSAVERRUNNING, 0, bRunning, False
If bRunning Then
Beep
End If
End Sub