Tiempo sin mover el mouse/teclado

[Sanlegas]

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 ! 

[seba123neo]

Código (vb) [Seleccionar] Expandir

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

[Sanlegas]

Perfecto!  , gracias seba123neo