Bonjour,
Je suis débutant en programmation VBnet et j'aurais eu besoin d'un peu d'aide sur un programme.
Mon programme fait les choses suivantes :
Sur clique d'un bouton
--> Vérification existance d'un programme (ex:spoolsv)
--> Arrêt du processus si existant
--> Vérification de la relance automatique du process
--> Fin du programme
En gros, lorsque j'ai tué mon process, je veux qu'on vérifie pendant un laps de temps (10s) que le process s'est relancé automatiquement.
J'utilise donc une boucle do ... Loop until ProcessExist = true
Le truc c'est que si le process ne se relance pas on se retrouve dans une boucle infinie, je cherche donc à y intégrer un timeout (timer).
Mais je n'arrive pas à faire fonctionner ce timer.
Voici le code que j'utilise :
J'ai l'impression ici qu'on ne passe jamais dans le timer.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Private Sub VerifProcess() Me.Timer1.Enabled = True Do ProcExist = SearchProc("notepad") Loop Until ProcExist = True Or Me.Timer1.Enabled = False End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Me.Tim += 1 If Me.Tim = 100 Then Me.Timer1.Enabled = False End If End Sub
Merci d'avance pour votre aide
Partager