Process et ParentProcess

Version imprimable

Bonjour,

Je cherche une solution à mon problème.
Je voudrais que ma boucle me liste les process avec leur parent, tout ca dans un treeview en gros:

si mon_process a un parent_process alors mon_process est un subitem du parent_process

Sachant que mon_process peut etre lui meme parent d'un autre process. J'utilise WMI pour mes boucles, mais depuis plusieurs heures je galère à trouver ma boucle
Code:

1 2 3 4 5 6 Dim Win32_Process As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_Process") For Each queryObj As ManagementObject In Win32_Process.Get() 'La boucle à trouver .... 'sachant que 'queryObj("ParentProcessId")' = process_parent de mon_process 'et que 'queryObj("ProcessId")' = mon_process Next
Si quelqu'un pouvait m'aider à mettre tout cela en forme

Merci d'avance

05/11/2007, 09h03
SaumonAgile

Quelle est la question exactement ?
05/11/2007, 17h48
restesouple

Et bien je ne trouve pas la boucle pour contruire mon treeview avec les process en cours et les process parent. Je souhaiterai qu'o m'aide à la faire

J'ai décidé d'utiliser un autre control que le treeview, mais le principe reste le même, j'ai réussi à faire une partie du code mais j'ai un problème à la fin de cette boucle (mis en commentaire dans la source).
"La collection a été modifiée ; l'opération d'énumération peut ne pas s'exécuter."

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
        Dim Values As Object()
        Dim Node As TreeListNode
        Dim Node2 As TreeListNode
        Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_Process")
        For Each queryObj As ManagementObject In searcher.Get()
            Dim classInstance As New ManagementObject("root\CIMV2", "Win32_Process.Handle='" & queryObj("Handle") & "'", Nothing)
            Dim outParams As ManagementBaseObject = classInstance.InvokeMethod("GetOwner", Nothing, Nothing)
            If TreeList1.Nodes.Count = 0 Then
                Values = New Object() {queryObj("Caption"), outParams("User"), queryObj("ExecutablePath"), ConvertirDate(queryObj("CreationDate")), queryObj("ProcessId")}
                Node2 = TreeList1.AppendNode(Values, -1)
                Node2.HasAsParent(Node2)
            Else
                For Each Node In TreeList1.Nodes
                    If Not queryObj("ParentProcessId") = queryObj("ProcessId") Then
                        If queryObj("ParentProcessId") = Node.GetDisplayText(4) Then
                            Values = New Object() {queryObj("Caption"), outParams("User"), queryObj("ExecutablePath"), ConvertirDate(queryObj("CreationDate")), queryObj("ProcessId")}
                            Node2 = TreeList1.AppendNode(Values, Node.Id)
                            Node2.HasChildren = True
                        Else
                            Values = New Object() {queryObj("Caption"), outParams("User"), queryObj("ExecutablePath"), ConvertirDate(queryObj("CreationDate")), queryObj("ProcessId")}
                            Node2 = TreeList1.AppendNode(Values, -1)
                            Node2.HasAsParent(Node2)
                        End If
                    End If
                Next 'La collection a été modifiée ; l'opération d'énumération peut ne pas s'exécuter.
            End If
        Next

Je ne vois pas comment eviter l'erreur... Si quelqu'un peut m'éclairer :) Merci

J'ai trouvé une méthode pas très propre mais fonctionnelle :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
            TreeList1.ClearNodes()
            Dim Values As Object()
            Dim ParentPresent As Boolean
            Dim ParentParentPresent As Boolean
            Dim ParentParentParentPresent As Boolean
            Dim ParentId As Integer
            Dim ParentParentId As Integer
            Dim ParentParentParentId As Integer
            Dim Node As TreeListNode
            Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_Process")
            For Each queryObj As ManagementObject In searcher.Get()
                ParentPresent = False
                ParentParentPresent = False
                ParentParentParentPresent = False
                If queryObj("ParentProcessId") = queryObj("ProcessId") Then
                    Dim classInstance As New ManagementObject("root\CIMV2", "Win32_Process.Handle='" & queryObj("Handle") & "'", Nothing)
                    Dim outParams As ManagementBaseObject = classInstance.InvokeMethod("GetOwner", Nothing, Nothing)
                    Values = New Object() {queryObj("Name"), outParams("User"), queryObj("ExecutablePath"), ConvertirDate(queryObj("CreationDate")), queryObj("ProcessId")}
                    Node = TreeList1.AppendNode(Values, -1)
                    TreeList1.ExpandAll()
                End If
                For i As Integer = 0 To TreeList1.Nodes.Count - 1
                    If TreeList1.Nodes(i).GetDisplayText(4) = queryObj("ParentProcessId") Then
                        If TreeList1.Nodes(i).GetDisplayText(4) <> queryObj("ProcessId") Then
                            ParentPresent = True
                            ParentId = TreeList1.Nodes(i).Id
                        End If
                    End If
                    For j As Integer = 0 To TreeList1.Nodes(i).Nodes.Count - 1
                        If TreeList1.Nodes(i).Nodes(j).GetDisplayText(4) = queryObj("ParentProcessId") Then
                            If TreeList1.Nodes(i).Nodes(j).GetDisplayText(4) <> queryObj("ProcessId") Then
                                ParentParentPresent = True
                                ParentParentId = TreeList1.Nodes(i).Nodes(j).Id
                            End If
                        End If
                        For k As Integer = 0 To TreeList1.Nodes(i).Nodes(j).Nodes.Count - 1
                            If TreeList1.Nodes(i).Nodes(j).Nodes(k).GetDisplayText(4) = queryObj("ParentProcessId") Then
                                If TreeList1.Nodes(i).Nodes(j).Nodes(k).GetDisplayText(4) <> queryObj("ProcessId") Then
                                    ParentParentParentPresent = True
                                    ParentParentParentId = TreeList1.Nodes(i).Nodes(j).Nodes(k).Id
                                End If
                            End If
                        Next
                    Next
                Next
                If ParentParentParentPresent = True Then
                    Dim classInstance As New ManagementObject("root\CIMV2", "Win32_Process.Handle='" & queryObj("Handle") & "'", Nothing)
                    Dim outParams As ManagementBaseObject = classInstance.InvokeMethod("GetOwner", Nothing, Nothing)
                    Values = New Object() {queryObj("Name"), outParams("User"), queryObj("ExecutablePath"), ConvertirDate(queryObj("CreationDate")), queryObj("ProcessId")}
                    Node = TreeList1.AppendNode(Values, ParentParentParentId)
                    TreeList1.ExpandAll()
                End If
                If ParentParentPresent = True Then
                    Dim classInstance As New ManagementObject("root\CIMV2", "Win32_Process.Handle='" & queryObj("Handle") & "'", Nothing)
                    Dim outParams As ManagementBaseObject = classInstance.InvokeMethod("GetOwner", Nothing, Nothing)
                    Values = New Object() {queryObj("Name"), outParams("User"), queryObj("ExecutablePath"), ConvertirDate(queryObj("CreationDate")), queryObj("ProcessId")}
                    Node = TreeList1.AppendNode(Values, ParentParentId)
                    TreeList1.ExpandAll()
                End If
                If ParentPresent = True Then
                    Dim classInstance As New ManagementObject("root\CIMV2", "Win32_Process.Handle='" & queryObj("Handle") & "'", Nothing)
                    Dim outParams As ManagementBaseObject = classInstance.InvokeMethod("GetOwner", Nothing, Nothing)
                    Values = New Object() {queryObj("Name"), outParams("User"), queryObj("ExecutablePath"), ConvertirDate(queryObj("CreationDate")), queryObj("ProcessId")}
                    Node = TreeList1.AppendNode(Values, ParentId)
                    TreeList1.ExpandAll()
                End If
                If ParentPresent = False Then
                    If ParentParentPresent = False Then
                        If ParentParentParentPresent = False Then
                            If Not queryObj("ProcessId") = 0 Then
                                Dim classInstance As New ManagementObject("root\CIMV2", "Win32_Process.Handle='" & queryObj("Handle") & "'", Nothing)
                                Dim outParams As ManagementBaseObject = classInstance.InvokeMethod("GetOwner", Nothing, Nothing)
                                Values = New Object() {queryObj("Name"), outParams("User"), queryObj("ExecutablePath"), ConvertirDate(queryObj("CreationDate")), queryObj("ProcessId")}
                                Node = TreeList1.AppendNode(Values, -1)
                                TreeList1.ExpandAll()
                            End If
                        End If
                    End If
                End If
            Next

06/11/2007, 22h30
Kaidan

For Each sert uniquement à parcourir une collection mais on ne peut pas modifier le contenu de la collection (logique).