Discussion :

[juju2015]

Bonjour depuis quelque jour je cherche comment faire apparaitre le PID d'un processus dan une label mes la je suis désespéré j'ai écris des centaine de truc mes rien ne fonctionne

ex: ProcID = Label2.Text ect...

mes rien ne fonctionne s'il vous plaît j'ai besoin de votre aide merci d'avance pour tout .

[Sehnsucht]

en partant du principe que ton ProcID soit ton PID et qu'il soit accessible (/visible) depuis là où tu veux l'utiliser il suffit de faire Label2.Text = ProcID.ToString ' ToString inutile si ProcID est déjà un String

[juju2015]

sa me mes plein d'erreur je veux simplement faire apparaitre par exemple Firefox se lance j'ai son PID dan la label

[ACIVE_CS]

Bonjour,

Cette discussion est résolue.

C'est génial pour les autres utilisateurs qui feront une recherche et qui tombent la dessus
Ils vont se dire 'tiens, il y a sûrement une bonne réponse puisque c'est résolu...'

Qu'est-ce que c'est ceci?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ex: ProcID = Label2.Text ect...

Je croyais que tu voulais afficher le PID dans le label... regarde ce que tu as écrit comme code stp

je cherche comment faire apparaitre le PID d'un processus dan une label

As-tu fait une boucle de ce genre ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For Each Proc As Process In Process.GetProcesses
 
Next

[juju2015]

Voici une partie de code quand Firefox s'ouvre son PID s’affiche dans le label !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim oFoundProcess As Process
        oFoundProcess = Process.GetProcessesByName("firefox")(0)
        Label2.Text = oFoundProcess.Id.ToString

[ACIVE_CS]

Re:

Ton code fonctionne parfaitement !
Sauf que la détection ne se fait pas en temps réel (tu ne l'expliques pas exactement ce que tu veux faire non plus)
Comme il faut deviner grâce à ma nouvelle boule de cristal, je te donne un exemple avec un '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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Timer As New Timer
        Timer.Interval = 500
        Timer.Enabled = True
        AddHandler Timer.Tick, AddressOf Timer_Tick
    End Sub
 
    Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Try
            Dim oFoundProcess As Process = Process.GetProcessesByName("firefox")(0)
            Label2.Text = oFoundProcess.Id.ToString
        Catch ex As Exception
            Label2.Text = "---"
        End Try
    End Sub

Ce n'est toujours pas en temps réel, dans ce exemple la détection se fait toutes les 500ms