begin process at 2012 02 17 08:25:53
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Système

 > CLASSE SUR LES PROCESSUS (ET LEURS MODLES) ==> PERMET D'AVOIR LES INFOS, LISTER, KILLER, CHANGER LA PRIORITÉ, SUSPENDRE...

CLASSE SUR LES PROCESSUS (ET LEURS MODLES) ==> PERMET D'AVOIR LES INFOS, LISTER, KILLER, CHANGER LA PRIORITÉ, SUSPENDRE...


 Information sur la source

Note :
9 / 10 - par 3 personnes
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Système Classé sous :processus, classe, module, createtoolhelpsnapshot, adjusttokenprivileges Niveau :Initié Date de création :11/11/2006 Date de mise à jour :20/11/2006 22:59:51 Vu / téléchargé :7 233 / 1 294
Auteur : violent_ken

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (17)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Cette source est une classe rapide (parce que c'est beaucoup plus propre ainsi) qui permet de faire diverses opérations sur les processus.

Voici les fonctions disponible :
-Enumérer les processus
-Enumérer les modules de processus
-changer la priorité
-obtenir le chemin d'un processus depuis son PID
-obtenir le nom d'un processus depuis son PID
-obtenir le temps processeur d'un processus
-killer un processus
-suspendre/reprendre un processus
-vérifier l'existence d'un processus
-obtenir 20 infos sur chaque processus, et 10 sur chaque module



Le code donne automatiquement le privilege DEBUG au programme (compte admin nécessaire il me semble).

Code TRES commenté. Je sais que je n'invente rien, mais cette source a le mérite d'être une classe et de marcher correctement.

Source

  • 'Utilisation du code :
  • 'C'est une classe, on la définit donc comme ceci :
  • Private MaClasse As clsProcess
  • Set MaClasse = New clsProcess
  • 'Les informations sur un procesus sont obtenues en faisant :
  • MaClasse.GetProcess(PID).szImagePath '(pour avoir le path complet, par exemple)
  • 'Possiblité d'avoir récursivement les processus parents en faisant par exemple :
  • MaClasse.GetProcess(PID, True).procParentProcess.procParentProcess.szImagePath '(obtient le path du processus qui a lancé le processus qui a lancé le processus désigné par PID).
  • 'Pour obtenir le nom d'un module SANS PASSER par EnumerateModules
  • sName = MaClasse.GetProcess(MonPID, , True).procModules(2).szExeFile 'pour avoir le path du second module
  • 'Voir l'exemple pour comprendre comment obtenir TOUTES les infos
'Utilisation du code :
'C'est une classe, on la définit donc comme ceci :

Private MaClasse As clsProcess
Set MaClasse = New clsProcess

'Les informations sur un procesus sont obtenues en faisant :
MaClasse.GetProcess(PID).szImagePath '(pour avoir le path complet, par exemple)

'Possiblité d'avoir récursivement les processus parents en faisant par exemple :
MaClasse.GetProcess(PID, True).procParentProcess.procParentProcess.szImagePath  '(obtient le path du processus qui a lancé le processus qui a lancé le processus désigné par PID).

'Pour obtenir le nom d'un module SANS PASSER par EnumerateModules
sName = MaClasse.GetProcess(MonPID, , True).procModules(2).szExeFile   'pour avoir le path du second module


'Voir l'exemple pour comprendre comment obtenir TOUTES les infos

 Conclusion

Laissez un commentaire et une note SVP ;)


Dernier point ; vous pouvez très facilement utiliser cette source dans votre programme, mais aussi trè facilement ajouter des fonctions à la classe.
Les 3 classes sont nécessaires dans votre application.


Je ne pense pas mettre à jour cette source (sauf si vous voyez des bugs).


Merci beaucoup, @+

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

12 novembre 2006 13:05:39 :
Ajout de la gestion des modules PAR processus (en faisant par exemple MaClasse.GetProcess(pid, , True).procModules(2).szExeFile). Ajout de l'obtention des infos mémoire
12 novembre 2006 14:02:10 :
Je m'étais planté d'argument pour OpenProcess GetProcessMemoryInfo (il fallait mettre PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ).
19 novembre 2006 11:20:53 :
Avait oublié un CloseHandle :(
20 novembre 2006 22:59:51 :
Correction du bug vu par poldere

 Sources du même auteur

Source avec Zip Source avec une capture Source .NET (Dotnet) UTILITAIRE DE SANITIZATION DES DISQUES DURS/FICHIERS (SUPPRE...
Source avec Zip Source avec une capture Source .NET (Dotnet) SIMPLE SHUTDOWN SCHEDULER : ARRÊTS PLANIFIÉS (LOCAL OU REMOT...
Source avec Zip Source .NET (Dotnet) COMMENT DÉMARRER UN PROCESSUS SUR PC DISTANT DE MANIÈRE CACH...
Source avec Zip Source avec une capture Source .NET (Dotnet) YET ANOTHER (REMOTE) PROCESS MONITOR
Source avec Zip Source avec une capture Source .NET (Dotnet) COMMENT DÉTECTER LES PROCESSUS CACHÉS (VIRUS, ROOTKITS...) +...
Toutes les sources de violent_ken

 Sources de la même categorie

Source avec Zip Source avec une capture AUTORISER/REFUSER L'EXECUTION DE PROCESSUS par pierreh51
Source avec Zip Source .NET (Dotnet) CLONE/FORK DES FLUX DE LA CONSOLE : PERMETTRE LA REDIRECTION... par ShareVB
Source avec Zip Source .NET (Dotnet) DÉFRAGMENTER UN FICHIER par ShareVB
Source avec Zip Source .NET (Dotnet) ECRAN DE VEILLE : DÉTECTER LE LANCEMENT/DÉCLENCHER/EMPÊCHER par ShareVB
Source avec Zip Source avec une capture DESACTIVER / ACTIVER LES MISES EN VEILLES PC par Arsena
Toutes les sources de la catégorie Système

 Sources en rapport avec celle ci

Source avec Zip MODULE DE CLASSE FICHIER par webnomad
Source avec Zip Source avec une capture CLASSE POUR RÉCUPERER L'UTILISATION CPU D'UN PROCESSUS par draluorg
Source avec Zip Source avec une capture PROCESSVIEW ==> ARBORESCENCE AFFICHANT LES PROCESSUS LANCES ... par violent_ken
Source avec Zip PROCESSPRIORITY par XelectroX
Source avec Zip Source avec une capture SYSTEM INFO par draluorg

Commentaires et avis

Commentaire de diablamanshadow le 11/11/2006 02:31:03

comme quoi les codeur dorme jamais ^^'
j'ai pas encore looker le code au vu qu'il est tard et que demain je lan ^^ mais je ne comprend pas se que tu entend par module de procesus :s je vois le pid , le nom , la path enfin tout mais je comprend pas se que tu entend par un module de processus :s

Commentaire de violent_ken le 11/11/2006 09:56:57

Salut, un module de processus est un fichier chargé par le processus. Ce sont généralement des fichiers *.dll, .ocx, *sys...

@+

Commentaire de violent_ken le 12/11/2006 13:06:30

V'la une grosse MAJ.
@+

Commentaire de poldere le 20/11/2006 22:39:48

Léger petit bug quand je fais " AFFICHER LES PROCESSUS " puis " TOUTES LES INFOS " puis " CANCEL " = bug ici dans
Private Sub Command3_Click()
s = s & "procParentProcess=" & p.procParentProcess.szExeFile & "=[" & p.procParentProcess.th32ProcessID & "]" & vbNewLine
Et autre chose; on trouve ou le PID ?

Commentaire de violent_ken le 20/11/2006 22:58:35

Salut, alors

-pour le bug, c'est
1) je tentais de récupérer le pointeur sur la string rendue par InputBox, alors qu'en fait j'avais convertis la string en Long (avec Val), donc SrtPtr fonctionnait pas.... c'est corrigé
2) que j'avais pas défini avec Set...=... le processus parent du processus 0, c'est corrigé

-pour le PID, c'est l'info th32ProcessID.

Merci pour le commentaire constructif et qui m'a permis de voir un bug, @+

Commentaire de poldere le 20/11/2006 23:09:56

Effectivement ça fonctionne mieux là. J'ai peut-être l'air encore stupide mais : on trouve ou le numéro du PID pour affiché toutes les infos ?.
J'arrive pas à trouver les options :
-obtenir le temps processeur d'un processus
-killer un processus
-suspendre/reprendre un processus
-vérifier l'existence d'un processus
-obtenir 20 infos sur chaque processus, et 10 sur chaque module
Merci

Commentaire de violent_ken le 20/11/2006 23:29:07

Ok, pas de problèmes, je vais détailler un peu.

Appuie sur Ctrl+Alt+Suppr.
Le gestionnaire des taches s'ouvre (Taskmgr.exe).
Va dans l'onglet Processus, et clique sur le menu "Affichage", "sélection des colonnes", et coche "PID (identificateur de processus)" si c'est pas déjà fait.
Le PID apparaitra ensuite dans la liste des processus dans le gestionnaire des taches.


Le PID est un numéro unique qui désigne un processus en cours d'utilisation.
Pour pouvoir killer un processus, changer sa prioirté, le suspendre...etc, il te faut juste fournir ce numéro (voir tout en abs du message).


Pour voir la liste des processus et leur PID avec ma classe, tu peux ajouter un bouton (Command4) sur la form, et ajouter ce code dans ta form :

Private Sub Command4_Click()
Dim p() As ProcessItem
Dim x As Long
    List1.Clear
    Text1.Visible = False
    MaClasse.EnumerateProcesses p() 'récupère la liste des processus
    
    For x = 0 To MaClasse.ProcessNumber - 1
        List1.AddItem "processus = " & p(x).szExeFile & "    PID = " & p(x).th32ProcessID
    Next x
    Me.Caption = x & " processus"
End Sub



Pour pouvoir killer, suspendre,...etc, regarde ce code, c'est comme cela qu'il faut procéder pour utiliser les actions de la classe :

Private Sub Command5_Click()
Dim x As Long   'contiendra le PID du processus
Dim cls As clsProcess   'cette variable contient la classe sur les processus
Dim k As Double, u As Double, p As Double   'définition des variables dans lesquelles
'seront stockés les temps processeur, temps utilisateur...

    Set cls = New clsProcess    'définit la classe

    'demande le numéro du PID (sera stocké dans x)
    x = Val(InputBox("Travailler avec quel processus ?", "Donnez le PID"))
    
    'cls.SuspendProcess x   'suspend le processus
    'cls.ResumeProcess x    'ne suspend plus le processus (resume)
    'cls.ChangePriority x, HIGH_PRIORITY    'passe le processus en priorité HAUTE
    'cls.GetProcTimes x, k, u, p    'stocke le temps processeur dans la variable p
    'cls.TerminateProc x    'kill le processus
End Sub

Pour obtenir 20 infos sur les processus, le code est donné dans Command3_Click.


J'espère que çà t'aidera, @+

Commentaire de poldere le 20/11/2006 23:33:20

Merci là ça commence à être complet ici. Merci beaucoup

Commentaire de violent_ken le 20/11/2006 23:39:04

De rien ;)

@+ (n'oublie pas de noter si la source te plait ^^) et bonne prog.

Commentaire de diablamanshadow le 21/11/2006 15:14:45

une faille a ete detectee dazns les processeur intel qui permet de casser les protection SSL 128 bytes juste en ecoutant le processeur donc saurais tu si ses possible en vb de faire comme du "sniffing" du processeur (a but educatif bien sur) car je savais meme pas que c'etais fesable :s et ici j'ai rien trouver sur le sujet ^^

Commentaire de violent_ken le 21/11/2006 20:33:04

"en ecoutant le processeur" ==> c'est à dire ? Opérations bas niveau = pas possible en VB. Donc accès direct au processeur = mission impossible

"comme du "sniffing" du processeur " ==> Gne ? C'est à dire ? Sniffer un processeur, çà veut dire quoi ?

Est ce que tu confondrais pas processeur et processus ?

@+

Commentaire de diablamanshadow le 21/11/2006 21:51:18

non ses bien sniffer le processeur le temp d'attende d'entree et de sortie d'information etc ;-)
mais je me suis renseigner aupres de pote codeur pousser et en vb ses pas fesable comme je voudrais ^^

Commentaire de violent_ken le 21/11/2006 21:54:22

Mwao, çà m'a l'air bien tendu comme manipulaton !

Tes potes ont raison, coder si bas niveau est infaisable en VB.

Mais quel(s) rapport(s) entre le processeur avec les protections SSL 128 bits ?

@+

Commentaire de diablamanshadow le 22/11/2006 02:51:23

si j'ai bien capter le principe ses que le code est lu par le processeur et suivant le travail du processeur on peut alors faire un shema genre

0100100110
_.__._.._.

et en cela donne un resultat qui permet de decrypter la faille a ete decouverte il y a quelque jour par des ingenieur et il devront changer tt les processeur intel par les nouveau et de plus fixer un logiciel dans le "coeur" du processeur pour etablir comme un "mur" pour eviter ces probleme , ces securitee sont utilisee pour tous ce qui es carte bancaire , transaction internet , payement , code de securitee web etc

j'ai regarder sur le web mais ce n'est pas encore publier, c'est passer hier sur le journal de la rtbf ^^ ou avant hier je sais plus mais me semble que c'etais hier

Commentaire de larigue34 le 12/02/2007 18:28:42

Volient_ken ton code est bon et le programme fonctionne.

Je cherche à choper l'info contenu dans la colonne "Processeur" (pas "temps processeur") du TSKMNGR. J'ai lancé ton programme mais je n'arrive pas a la trouver. Peux-tu m'aiguiller.?

Voici ce que je veux faire dis moi ce que tu en penses.
Il m'arrive d'avoir mon appli qui plante et se retrouve sans fenetre visible (Classique). j'ai remarqué que dans ce cas la colonne processeur indique 50 pour le processus "planté".

Si l'utilisateur relance l'appli je voudrai d'abord killer le processus planté après l'avoir identifié avec cette méthode.

Quelqu'un a t'il une autre idée pour repérer une appli qui a planté. Car pour l'utilisateur mongolien de base c'est pas simple d'aller stoper le process dans le TaskMngr.

Merci



Commentaire de violent_ken le 02/03/2007 18:50:21

Salut, désolé de ne répondre que maintenant, mais je l'avais fait il y a fort longtemps et a priori la réponse n'est pas apparue ??
Comme je passais ici par hasard, je vois çà...

Enfin bon, je répond quand même 3 mois après...

- pour récupérer l'usage de l'UC, c'est par ici : http://www.vbfrance.com/codes/POURCENTAGE-UTILISATION-CPU-PROCESSUS-ENFIN_38633.aspx

- ta méthode pour détecter les processus planté n'est pas très bonne. 50 signifie 50% d'utilisation du processeur, c'est à dire que le processus mange toutes les ressources (puisque tu dois avoir soit un processeur multi-coeurs, soit un pentium HT avec 2 processeurs logiques). Donc si un programme mange 50% d'UC (un jeu gourmand par exemple), il sera detecté en tant que programme planté.
La meilleure solution est ceci : http://www.vbfrance.com/codes/LISTE-TACHES-COMME-DANS-ONGLET-APPLICATION-GESTIONNAIRE-TACHES_27148.aspx
Il faut utiliser la fonction IsApplicationHung.

@+ et désolé de répondre si tard

Commentaire de frank150 le 29/03/2008 22:29:32 8/10

Salut, j'ai tester ton code et sa marche bien.

Mais jai un petit souci:

Si je créé un nouveau projet avec tes 4 classes, dans l'ide je peut lister sans problème mais une fois compilé sa 'bloque' dans la sub EnumerateProcess juste apres avoir énumérer csrss.exe

Quelqu'un a un idée du problème?

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Constructeur dans module de classe [ par antho ] Bonjour,Je voudrais savoir s'il est possible de passer des paramètres à un constructeur dans une classe VB. L'événement Class_initialize ne prend pas module de classe HEEEELLPPP !!!! [ par fou volant13 ] Ba wala, j'ajoute un module de classe dans lequel je declare une fonction mais ca marche pas... Je peux pas l'appeler depuis form1.WHY ?? Les modules [ par Dalamar ] Je voudrais savoir c'est quoi la différence entre un module .bas et un module de classe et comment on utilise un module de classe? Merci beaucoup d'av parametre d'un module de classe [ par sherazade ] j'ai une fonction public dans un module de classe qui se trouve dans un projet Dll .je fais appel a cette fonction a partir d'un autre projet exe .Le Comment utiliser les fonctions qu'on met dans un "module classe"? [ par Tioneb ] J'ai vue sur le site que si on met du code dans un dll, ça allait plus vite. J'ai besoin de la plus rapide exécution possible d'un bout de code.Un mod Datareport avec module de classe configuré comme source de données [ par pedroscom ] Bonjourj'ai creé un module de classe configuré comme source de données; j'ai attribué une instance du module à la propriété datasource du datareportet Passage d'un parametre d'un module de classe à une Form [ par sankukai ] Bonjour à tous, J'aimerais savoir comment fait-on pour passer un parametre de type Objet d'un module de classe dans une form ?Merci pour votre aide !! Passage d'un parametre d'un module de classe à une Form [ par rgaisset ] J'ai une application qui appelle une dll constitue par un module de classe et une form.J'appelle la form dans le module de classe par :Form.Show vbMod Comment passer un type de variable dans un module de classe [ par DARKSIDIOUS ] Bonjour à tous,Voilà mon problème : j'essaye, en vain, de passer un type de donnée dans un module de classe. Par exemple :Public Type Essai LNG_rouge Comment passer un type de variable dans un module de classe [ par DARKSIDIOUS ] Bonjour à tous,Voilà mon problème : j'essaye, en vain, de passer un type de donnée dans un module de classe. Par exemple :Public Type Essai LNG_rouge


Nos sponsors


Sondage...

Comparez les prix


Apple iPhone 4 Noir (16 Go)
Entre 0€ et 0€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Monument Valley Utah known as The Mittens
Photo Waterfall in Kauai Hawaii With Rainbow 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,920 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)