MINUTERIE

Messages postés
58
Date d'inscription
lundi 31 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003
-
 Utilisateur anonyme -
Bonjour,

Je souhaite réaliser une source permettant l'ouverture d'un même programme toutes les 5 minutes. Je n'y parviens pas pouvez vous m'aider.

Merci.

1 réponse


Salut... éssaie ce code sur une feuille vierge avec 2 timers...
Private Sub Form_Load()
Timer1.Interval = 50000 'tout les 5 minutes démarre timer1
Timer2.Interval = 0 'arrête le timer2
End Sub

Private Sub Timer1_Timer()
Shell ("c:\winnt\system32\calc.exe")
'démarre la calculatrice ( à taper le chemin du programme (c:\... etc))
Timer2.Interval = 10000
'au bout d'une minute démarre le timer2 qui ferme la calculatrice
End Sub
Private Sub Timer2_Timer()
SendKeys "%{F4}", True ' Envoie la combinaison ALT+F4 pour fermer
' l'application Calculatrice.
Timer2.Interval = 0 'arrête le timer2
End Sub