Lister les processus actifs

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 244 fois - Téléchargée 36 fois

Contenu du snippet

ben voilou tout est dans le titre...

jetter juste un oeil sur la capture...

ce code est inspiré d'un autre pris sur se site... je c pu de ki c mais je le remercie...

en espérant que ca servira a qqun...

@+

Source / Exemple :


'//// A METTRE DANS UN MODULE
Option Explicit
Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, lProcessID As Long) As Long
Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Public Const MAX_PATH As Integer = 260
Public Const TH32CS_SNAPPROCESS As Long = 2&

Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long
    th32DefaultHeapID As Long
    th32ModuleID As Long
    cntThreads As Long
    th32ParentProcessID As Long
    pcPriClassBase As Long
    dwFlags As Long
    szexeFile As String * MAX_PATH
    End Type

'FONCTION A APPELER
Public Function liste_process() As String

Dim hSnapshot As Long
Dim uProcess As PROCESSENTRY32
Dim r As Long
Dim nom(1 To 100)
Dim nr As Integer

nr = 0
hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
uProcess.dwSize = Len(uProcess)
r = ProcessFirst(hSnapshot, uProcess)
Do While r
nr = nr + 1
nom(nr) = uProcess.szexeFile
Form1.List1.AddItem (nom(nr)) '//// A MODIFIER SELON VOS BESOINS
r = ProcessNext(hSnapshot, uProcess)
Loop
End Function

A voir également

Ajouter un commentaire Commentaires
Messages postés
278
Date d'inscription
vendredi 16 avril 2004
Statut
Membre
Dernière intervention
27 avril 2006
1
Meeeeeep Gros bug
en effet si tu place un timer pour apller la procedure tu va voir que le nombre de handle (pas tread) augmente a vue d'oeil et du coup sa te mange des resources je m'en sui aperçus car mon pc a ramer avec 1 go de ram lol

pour corriger le bug
api a ajouter
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

apres la boucle

CloseHandle (hSnapshot)
vala :))
Messages postés
1
Date d'inscription
lundi 30 juin 2003
Statut
Membre
Dernière intervention
12 septembre 2003

salut,
en fait jaimerai utiliser ce code en ASP est ce possible????
merci d'avance
Messages postés
140
Date d'inscription
jeudi 2 mai 2002
Statut
Membre
Dernière intervention
2 février 2010

Salut

heu....y'a comme un air de déja vu là....j'ai pondu le meme genre de code dans une utilitaire regroupant un gestionnaire de tache, un Moniteur System ainsi que différente info sur le système
http://www.vbfrance.com/article.aspx?Val=10388
...mais je dit pas que tu à pomper le mieux, je sais qu'il y en à plusieurs dans le meme genre ici...
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
3
lol c mon code je vien de poster le mm genre avec un bouton pour fermer un porcess!!!!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.