2009-01-15 21 views

Répondre

4

Voici comment j'ai implémenté cette fonctionnalité il y a quelques années. La fonction fnIdleTime vous indiquera le nombre de secondes écoulées depuis que l'utilisateur a touché la souris ou le clavier.

Public Declare Function timeGetTime Lib "WINMM.DLL"() As Long 

Private Type LASTINPUTINFO 
    cbSize As Long 
    dwTime As Long 
End Type 

Public Declare Function GetLastInputInfo Lib "user32.dll" (plii As LASTINPUTINFO) As Long 

Public Function fnIdleTime() As Long 

    Dim lii As LASTINPUTINFO 

    lii.cbSize = Len(lii) 

    If (GetLastInputInfo(lii) > 0) Then 
    fnIdleTime = (timeGetTime - lii.dwTime) \ 1000 
    End If 

End Function