ARRÊTER UN PROGRAMME SI IL N'EST PAS ACTIF PENDANT QUELQUES SECONDES...

Private Sub Form_Load()
'Temps à attendre avant l'arrêt du programme (Là, 10 secondes)
Timer2.Interval = "10000"
'Temps de vérification (Il verifie si il y a une seconde la souris a bougé)
Timer1.Interval = "1000"
IX.Caption = "9999"
IX2.Caption = IX.Caption
Timer2.Enabled = False
Timer2.Enabled = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Quand on bouge ça augmente
IX.Caption = IX.Caption + 1
'Rajoute le même nombre a l'autre label (qui diminue si la souris ne bouge pas)
IX2.Caption = IX.Caption
'Si la souris bouge, on remet à 5000 le timer
Timer2.Enabled = False
Timer2.Enabled = True
End Sub

Private Sub Timer1_Timer()
'Si la souris bouge pas, on diminue..."
IX2.Caption = IX2.Caption - 1
End Sub

Private Sub Timer2_Timer()
'Si la souris n'a pas bougé, on ferme (Regarde IX par rapport à IX2)
If IX.Caption > IX2.Caption Then
End
Else
End If
End Sub
  

Télécharger le zip