Que tal, hace mucho vi una función que te devolvía el tiempo en el que el mouse o el teclado no habia sido utilizado, es decir sin actividad del usuario..., ahora que la busco no la encuentro pero se usaba una api, no recuerdo cual, alguien sabra algo parecido... creo que se podría hacer un hook y crear mi propio contador, pero es algo que con solo una api se puede, un saludo y gracias de antemano ! :P
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function GetLastInputInfo Lib "user32" (plii As Any) As Long
Private Type LASTINPUTINFO
cbSize As Long
dwTime As Long
End Type
Private Sub Timer1_Timer()
Dim lii As LASTINPUTINFO
lii.cbSize = Len(lii)
Call GetLastInputInfo(lii)
Me.Caption = FormatNumber((GetTickCount() - lii.dwTime) / 1000, 2)
End Sub
Perfecto! ;-), gracias seba123neo :P