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
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.