Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Sanlegas en 29 Octubre 2011, 03:12 am

Título: Tiempo sin mover el mouse/teclado
Publicado por: Sanlegas en 29 Octubre 2011, 03:12 am

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

Título: Re: Tiempo sin mover el mouse/teclado
Publicado por: seba123neo en 29 Octubre 2011, 03:56 am

Código

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

Título: Re: Tiempo sin mover el mouse/teclado
Publicado por: Sanlegas en 29 Octubre 2011, 04:02 am

Perfecto! ;-), gracias seba123neo :P