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 :

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
J'ai l'impression ici qu'on ne passe jamais dans le timer.

Merci d'avance pour votre aide