PID vers Label

Version imprimable

28/04/2015, 21h35
juju2015

PID vers Label

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 .
28/04/2015, 21h42
Sehnsucht

:roll: 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
28/04/2015, 21h47
juju2015

sa me mes plein d'erreur je veux simplement faire apparaitre par exemple Firefox se lance j'ai son PID dan la label
28/04/2015, 23h02
ACIVE_CS
Bonjour,

Citation:

Cette discussion est résolue.

C'est génial pour les autres utilisateurs qui feront une recherche et qui tombent la dessus :roll:
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:

ex: ProcID = Label2.Text ect...

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

Citation:

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

As-tu fait une boucle de ce genre ?
Code:

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

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

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

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:

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