Discussion :

[indemyx]

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

[Momoth]

Tu peux utiliser la classe StopWatch pour cela. Tu l'instancie et démarre avant le début de ta bouche et tu peux te baser sur le temps écoulé pour sortir de ta boucle.

[indemyx]

Tu peux utiliser la classe StopWatch pour cela. Tu l'instancie et démarre avant le début de ta bouche et tu peux te baser sur le temps écoulé pour sortir de ta boucle.

Merci pour ta réponse.
Je ne connaissais pas cette classe.

Peux tu me donner un exemple de comment appliquer cette fonction stp ?

Merci d'avance

[Pol63]

par défaut l'exécution ne peut être qu'à un endroit du code à la fois (refresh interface par le framework inclus)
donc en effet tant que tu es dans ta boucle le timer ne déclenche pas, et normalement l'interface utilisateur doit figer aussi

pour ca on utilise un mécanisme de multithreading (parmi plusieurs au choix) pour pouvoir faire plusieurs choses à la fois

[indemyx]

par défaut l'exécution ne peut être qu'à un endroit du code à la fois (refresh interface par le framework inclus)
donc en effet tant que tu es dans ta boucle le timer ne déclenche pas, et normalement l'interface utilisateur doit figer aussi

pour ca on utilise un mécanisme de multithreading (parmi plusieurs au choix) pour pouvoir faire plusieurs choses à la fois

Ok je comprends le principe, mais ne suis pas encore assez compétent pour voir comment mettre ça en place...

Du coup pourriez vous me donner un exemple de comment je pourrais gérer mon problème avec le multithreading svp ?
Merci d'avance

[Pol63]

y en a sur le net je pense
au choix
task / async/await
backgroundworker
thread
...

[Miska59]

Bonjour,
Voici un exemple :

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

Voici le code :

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
16
17
18
19
20
21
22
23
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If VerifierProgramme("notepad++") = True Then
            For Each proc As Process In Process.GetProcessesByName("notepad++")
                If Not proc.HasExited Then
                    proc.Kill() 'forcer le processus à sortir.
                End If
                proc.CloseMainWindow() 'demander au processus de sortir.
                proc.WaitForExit(10000) 'attendez jusqu'à 10 secondes.
            Next proc
            Process.Start("notepad++")
        Else
            Label1.Text = "ousp!! Le processus n'existe de pas!"
        End If
    End Sub
 
    Private Function VerifierProgramme(ProcessName As String) As Boolean
        For Each clsProcess As Process In Process.GetProcesses()
            If clsProcess.ProcessName.StartsWith(ProcessName) Then
                Return True
            End If
        Next
        Return False
    End Function

Cordialement,

[ZenZiTone]

J'ai l'impression ici qu'on ne passe jamais dans le timer.

Quels sont les valeurs de Timer1.Interval et Tim?