FERMER AU BOUT D'UN CERTAIN TEMPS D'INACTIVITE VOTRE PROGRAMME

'**********************************************
'TC le 28/05/02
' Position de X et Y par rapport a l'écran
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Public OLD_X, OLD_Y As Long
Public OLD_DATE As Date
Public Tempo_Fermeture As Integer

Private Sub Form_Load()

 Dim pos As POINTAPI
    'Dim old_pos As POINTAPI
    
    'Tempo du timer qui permet de récupérer toutes les secondes la position de la souris (en ms)
    Timer_Pos_Souris.Interval = 1000
    'Tempo tu timer qui permet de fermer l'appli(en ms)
    Timer_Unload.Interval = 3000
    'Au bout de "Tempo_Fermeture" secondes on fermera l'appli ! (en s)
    Tempo_Fermeture = 1

End Sub

Private Sub Timer_Pos_Souris_Timer()
'Petite procédure pour récupérer
'la nouvelle position de la souris
'si celle-ci a changé depuis le précédent passage
Dim pos As POINTAPI

    GetCursorPos pos

    If OLD_X <> pos.X And OLD_Y <> pos.Y Then
        OLD_X = pos.X
        OLD_Y = pos.Y
        OLD_DATE = Now
    End If

End Sub

Private Sub Timer_Unload_Timer()
'Si aucune activité n'a été détecté i.e (la souris n'a pas bougé)
'alors on ferme !
If DateDiff("s", OLD_DATE, Now) >= Tempo_Fermeture Then
    Unload Me
End If

End Sub