DA ENUMPROCESSES CODE

' fonction permettant d'énumérer les processus
Private Declare Function _
EnumProcesses Lib "PSAPI.DLL" (ByRef _
    tableau_process As Long, ByVal taille_tableau_supposee As Long, _
    ByRef taille_tableau_reelle As Long) As Long
    
' fonction permettant d'ouvrir les processus
Private Declare Function _
OpenProcess Lib "Kernel32.dll" (ByVal _
    acces_desire As Long, _
    ByVal heritage_handle As Long, _
    ByVal handle_process As Long) As Long

' fonction permettant de connaître le nom d'un processus dont on connait le handle
Private Declare Function _
GetModuleFileNameExA Lib "PSAPI.DLL" (ByVal _
    handle_process_ouvert As Long, _
    ByVal handle_module As Long, ByVal _
    nom_processus As String, _
    ByVal taille As Long) As Long
    
' fonction permettant de fermer un handle de processus
Private Declare Function _
CloseHandle Lib "Kernel32.dll" (ByVal _
    handle_process_ouvert As Long) As Long


' variable pour openprocess, permet de consulter le nom des processus
Private Const PROCESS_VM_READ = 16
Private Const PROCESS_QUERY_INFORMATION = 1024


' initialisation des variables
Dim taille_tableau_supposee As Long
Dim taille_tableau_reelle As Long
Dim nb_process As Long
Dim tableau_process() As Long
Dim nom_processus As String
Dim taille As Long
Dim handle_process_ouvert As Long
Dim item As Long

  
  
  
Sub Form_Load()

' on suppose qu'il y a maximum 250 processus en cours
ReDim tableau_process(250) As Long


' dimensions en octets du tableau (4 octets par procesus, soit 1000 octets)
taille_tableau_supposee = 1000


'passe la fonction EnumProcess pour remplir le tableau des de processus et en connaître la taille reelle
EnumProcesses tableau_process(1), taille_tableau_supposee, taille_tableau_reelle


'Compte les processus (4 octets par processus, il y a donc 4 fois moins de handle que le nombre
'contenu dans taille_reelle
nb_process = taille_tableau_reelle / 4

'passe en revu tous les handles  de processus pour en obtenir le nom
For item = 1 To nb_process
        DoEvents
        'Donne le handle du processus et l' ouvre
        handle_process_ouvert = OpenProcess(PROCESS_QUERY_INFORMATION + PROCESS_VM_READ, 0, tableau_process(item))
        If handle_process_ouvert <> 0 Then
                'initialise un buffer pour recevoir le nom du processus
                nom_processus = Space(250)
                taille = 250
                'Prend le nom du processus, cette fonction renvoi le nb de caractère du nom , d'où l'utilisation de la variable taille réelle
                taille_reelle = GetModuleFileNameExA(handle_process_ouvert, 0, nom_processus, taille)
                'Enlève les espaces
                nom_module = Left(nom_module, taille_reelle)
        End If
'Ferme les handles du processus
CloseHandle handle_process_ouvert


'ajoute à une liste le processus en cours ainsi que son handle (appelé PID dans le gestionnaire des tâches)
List1.AddItem nom_module & " " & tableau_process(item)
Next

End Sub