Fermer au bout d'un certain temps d'inactivite votre programme

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 700 fois - Téléchargée 56 fois

Contenu du snippet

Ce bout de code permet de fermer votre application au bout d'un certain temps si la souris n'a pas bougé ! Pensez à rajouter 2 timer !

Source / Exemple :


'**********************************************
'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

A voir également

Ajouter un commentaire

Commentaires

Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
mp280272
Messages postés
6
Date d'inscription
dimanche 15 avril 2007
Statut
Membre
Dernière intervention
23 juin 2010
-
Bonjour à tous

est-ce que ce code fonctionne sus Vb .net express
les valeurs des position en X et Y reste a zero constamant

merci de votre reponse

A+
pgagletor
Messages postés
9
Date d'inscription
mardi 5 avril 2005
Statut
Membre
Dernière intervention
29 mars 2007
-
bonjour à tous,

Juste une question sur le programme, comment fait on pour rajouter deux timer?

Merci beaucoup

Bonne journée
cs_DAHOKHAN
Messages postés
20
Date d'inscription
mercredi 19 octobre 2005
Statut
Membre
Dernière intervention
12 décembre 2005
-
Et merci super prog!!!!!
cs_DAHOKHAN
Messages postés
20
Date d'inscription
mercredi 19 octobre 2005
Statut
Membre
Dernière intervention
12 décembre 2005
-
resalut au faite g compris il faut ajouter des timers
excuse je n'avais pas compris ce que tu avais dis !
car je suis novice ton prog fais parti des premier prog en vb que je allez bye !!!

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.