MINUTERIE
cs_Alain
Messages postés
58
Date d'inscription
lundi 31 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003
-
22 août 2002 à 19:04
Utilisateur anonyme - 23 août 2002 à 14:40
Utilisateur anonyme - 23 août 2002 à 14:40
1 réponse
Utilisateur anonyme
23 août 2002 à 14:40
23 août 2002 à 14:40
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
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
