Processus

Question

Bonjours,

Je cherche &#224; connaitre soit le chemin des processus lanc&#233;s sans passer par la DLL PSAPI, soit a obtenir leurs tailles 

Merci de me repondre.

FREEGAMER

BruNews · Answer

LISTE PROCESSUS PAR API NATIVE (WIN32)
http://www.cppfrance.com/code.aspx?id=17658

ciao...
BruNews, MVP VC++

MadM@tt · Answer

Connaitre le chemin des processus : Sous 98 ilm est dans le nom du processus directement.

Sous XP :

Public Declare Function OpenProcess Lib "kernel32" (ByVal
dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal
dwProcessId As Long) As Long

' Enum&#233;re les modules d'un processus

Public Declare Function EnumProcessModules Lib "psapi.dll" (ByVal
hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef
lpcbNeeded As Long) As Long

' Pour r&#233;cup&#233;rer le chemin d'acc&#232;s complet d'un processus

' Pour NT/2000/XP/2003... seulement

' Renvoie le nom du module "hModule" du processus "hProcess" (ouvert avec OpenProcess)

Public Declare Function GetModuleFileNameEx Lib "psapi.dll" Alias
"GetModuleFileNameExA" (ByVal hProcess As Long, ByVal hModule As Long,
ByVal lpFilename As String, ByVal nSize As Long) As Long

'acc&#232;s en lecture de la m&#233;moire

Public Const PROCESS_VM_READ As Long = (&H10)

'acc&#232;s en collecte d'informations

Public Const PROCESS_QUERY_INFORMATION As Long = (&H400)

Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long



' Renvoie le chemin complet du processus

Public Function GetProcessFileName(ProcessID As Long) As String

    On Error GoTo Fin

    ' Processus 0

    If ProcessID = 0 Then

        GetProcessFileName = "[System Process]"

    ' Processus 4

    ElseIf ProcessID = 4 Then

        GetProcessFileName = "System"

    Else

        ' On cherche son chemin d'acc&#232;s complet

        Dim hProcess As Long    'handle du processus

        Dim hModule As Long     'handle du module de l'exe

        Dim Ret As Long         'r&#233;sultat

        ' On demande un handle pour le processus

        hProcess =
OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0&,
ProcessID)

        ' Si erreur (acc&#232;s refus&#233;)

        If hProcess = 0 Then GoTo Fin

        ' On demande le handle du module de l'exe

        EnumProcessModules hProcess, hModule, 4&, Ret

        ' On pr&#233;formatte la chaine

        GetProcessFileName = Space(260)

        ' On r&#233;cup&#232;re son nom complet

        GetModuleFileNameEx hProcess, hModule, GetProcessFileName, 260

        ' On ferme le handle ouvert

        CloseHandle hProcess

        ' On retire le vbNUllChar de fin de chaine

        GetProcessFileName =
Left$(GetProcessFileName, InStr(GetProcessFileName, vbNullChar) - 1)

    End If

    Exit Function

Fin:

    GetProcessFileName = "Inconnu"

End Function





Pour la taille m&#233;moire du processus :

http://www.vbfrance.com/code.aspx?ID=25836



J'esp&#232;re que &#231;a te suffira 



Cia&#242; 
MadMatt
http://matthieu.napoli.neuf.fr/wintools.html

MadM@tt · Answer

Ptain de merde BruNews t'es MVP !!! 



J'avais jamais remarqu&#233;  chu con !!



J'avais d&#233;j&#224; &#233;norm&#233;ment de respect pour tes conseils et toi meme mais alors la lol 



J'atteris sur terre mdr
Cia&#242; 
MadMatt
http://matthieu.napoli.neuf.fr/wintools.html

BruNews · Answer

he vi depuis un certain temps d&#233;j&#224;, &#231;a nous rajeunit pas tout &#231;a...

Au fait, il a demand&#233; SANS psapi.dll.

ciao...
BruNews, MVP VC++

cs_freegamer · Answer

Merci de me repondre si vite, mais comme le precisse BruNews, je voudrais le faire sans psapi.dll, sinon je voudrais savoir comment recuperer leur taille en octect sur le disque dur

FREEGAMER

BruNews · Answer

T'es allé voir le lien, tu as vu comment on fait sans psapi ???
Si ok on continue:
Chaque fichier tu le passes par FindFirstFile qui te remplira une Win32_FIND_DATA et tu auras la taille sur 64 bits dans ses champs.

cs_freegamer · Answer

Oui je suis aller voir le lien, et en VB sans donne quoi ?
Sinon serais tu comment obtenir la taille de l'application par son processus ?

FREEGAMER

MadM@tt · Answer

Oups d&#233;sol&#233; je ne me souvenait pas du tout que &#231;a utilisait cette libraire 
Cia&#242; 
MadMatt
http://matthieu.napoli.neuf.fr/wintools.html

BruNews · Answer

1) rien (mais je l'ai pas dit fort).
2) "taille de l'application" kesako ??? un processus est fait d'un exe et de toutes ses dépendances.

cs_freegamer · Answer

Justement je cherche &#224; obtenir la taille de l'exe correspondant au processus

FREEGAMER

BruNews · Answer

réponse de 20:06:06 pour taille exe.

cs_freegamer · Answer

Enfait j'aimerais pouvoir avoir la taille de l'executable correspondant au processus en octect, soit en connaissant le chemin complet soit lister les processus avec leur taille directement.

En fait j'aimerais faire comme cette source : http://www.vbfrance.com/code.aspx?ID=20821 mais sans utiliser psapi.dll

Merci de me repondre

FREEGAMER

BruNews · Answer

ben enfin, c'est soit en utilisant psapi soit comme dans ma source (ce que fait psapi en interne), y a pas 36 méthodes. Ensuite reste à savoir si c'est traductible en VB sans plantage, à toi d'essayer.

Processus

13 réponses

Discussions similaires