AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 06 17:38:46
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

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


Information sur la source

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é: 5 525 / 1 096
Auteur : violent_ken Site perso
Ecrire un message privé
Ce membre participe au partage de revenus publicitaires
Note :
9 / 10 - par 3 personnes
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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

Pour les "Membres Club", vous pouvez 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

Commentaires et avis

signaler à un administrateur
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

signaler à un administrateur
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...

@+

signaler à un administrateur
Commentaire de violent_ken le 12/11/2006 13:06:30

V'la une grosse MAJ.
@+

signaler à un administrateur
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 ?

signaler à un administrateur
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, @+

signaler à un administrateur
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

signaler à un administrateur
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, @+

signaler à un administrateur
Commentaire de poldere le 20/11/2006 23:33:20

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

signaler à un administrateur
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.

signaler à un administrateur
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 ^^

signaler à un administrateur
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 ?

@+

signaler à un administrateur
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 ^^

signaler à un administrateur
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 ?

@+

signaler à un administrateur
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

signaler à un administrateur
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



signaler à un administrateur
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

signaler à un administrateur
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...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


ARCHOS 5 (120 Go)
Entre 327€ et 360€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto friends
Photo regard intense d'une magnifique femmePhoto chambre pleine d'amour

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
Temps d'éxécution de la page : 0,421 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.