Tester la présence de l'utilisateur isinputidle

Description

Ce petit code permet de détecter la présence, ou dumoins l'activité de l'utilisateur, suivant un intervalle parametrable...

Source / Exemple :


Private Declare Function GetLastInputInfo Lib "user32.dll" (ByRef plii As LASTINPUTINFO) As Long
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long

Private Type LASTINPUTINFO
    cbSize As Long
    dwTime As Long
End Type

'# Permet de savoir si l'utilisateur est considéré comme absent. L'intervalle est en secondes
Public Function IsInputIdle(ByVal vIdleTimeout As Long) As Boolean
Dim LII As LASTINPUTINFO
    LII.cbSize = Len(LII)
    If GetLastInputInfo(LII) <> 0 Then
        IsInputIdle = (GetTickCount - LII.dwTime) > (1000 * vIdleTimeout)
    End If
End Function

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.