Liste de process word et excel via api

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Liste de process word et excel via api

mouff

salut

Avec le code suivant (utilisation d'API):

Citation :

hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0& )

If hSnapshot = 0 Then Exit Sub

'parcours des process
uProcess.dwSize = Len(uProcess)
r = ProcessFirst(hSnapshot, uProcess)
Do While r
'Word
If InStr(1, UCase(uProcess.szexeFile), "WINWORD.EXE" ) And WinWord Then
NbWord = NbWord + 1
ProcessManagerWindow.FGrid_Word.AddItem uProcess.th32ProcessID & Chr(9) & "nom fenetre" & Chr(9) & "00" & Chr(9) & " ", 1
End If
'Excel
If InStr(1, UCase(uProcess.szexeFile), "EXCEL.EXE" ) And Excel Then
NbExcel = NbExcel + 1
ProcessManagerWindow.FGrid_Excel.AddItem uProcess.th32ProcessID & Chr(9) & "nom fenetre" & uProcess.th32ProcessID & Chr(9) & "00" & Chr(9) & " ", 1
End If

r = ProcessNext(hSnapshot, uProcess)
Loop

je peux lister les process word et excel. je voudrais en plus, savoir l'intitulé des fenetres des process pas mort (genre 'Microsoft excel - fichier1.xls' ) et le % en cpu...Vous pouvez m'aider ??? :heink:

---------------
Il suffit de me dire de me taire...

Publicité

cvb

mouff a écrit :

salut

Avec le code suivant (utilisation d'API):

Citation :

le % du CPU, ce n'est pas du tout la même API, c'est une fonction qui appartient à la *.dll, kernel32.dll. J'ai oublié son nom depuis, mais tu la trouveras dans API windows (cf ma signature). Aprés si tu veux savoir le pourcentage que prend chaque fichier excel ouvert, je ne sais pas, c'est peut-être une variante de l'API dont je te parle (tu as même l'exemple).

mouff

bon ben je vais regarder une à une [:joker]

---------------
Il suffit de me dire de me taire...

cvb

mouff a écrit :

bon ben je vais regarder une à une [:joker]

c'est cell-ci. Une fois comprise, par des calculs que tu n'as pas dans l'exemple te permettront de trouver le pourcentage de mémoire disponible...

Code :

Declare Sub GlobalMemoryStatus Lib "kernel32" ( _
lpBuffer As MEMORYSTATUS)
Versions :
. Windows 95/98 : Oui
. Windows NT : A partir de 3.1
. Windows 2000/XP : Oui
Description :
(Origine : int19h - Int19h@caramail.com)
Cette API permet de savoir la quantité de mémoire physique et virtuelle disponible sur l'ordinateur ainsi que l'espace libre.
Utilise une structure MEMORYSTATUS pour stocker le résultat.
dwLength est la taille de la structure.
dwMemoryLoad est le pourcentage de mémoire actuellement utilisé.
dwTotalPhys est la taille totale de la mémoire physique (en octets).
dwAvailPhys est la taille de la mémoire physique disponible (en octets).
dwTotalPageFile donne la taille totale que peut atteindre le fichier d'échange (en octets).
dwAvailPageFile indique l'espace disponible dans le fichier d'échange (en octets).
dwTotalVirtual retourne la mémoire totale pouvant être utilisée par l'application courante (en octets).
dwAvailVirtual représente l'espace libre totale (en octets).
Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type
Exemple d'utilisation :
' Exemple par int19h (Int19h@caramail.com)
' Placer le code sur une form vide
Private Sub Form_Load()
Dim Memoire As MEMORYSTATUS
Me.AutoRedraw = True
' Récupère les informations
GlobalMemoryStatus Memoire
' Affiche les informations sur la feuille
Print "Mémoire Physique Totale = ";
Print Format(Memoire.dwTotalPhys, "###,###,### octets " )
Print "Mémoire Physique Libre = ";
Print Format(Memoire.dwAvailPhys, "###,###,### octets" );
Print " (" & Int((Memoire.dwAvailPhys / Memoire.dwTotalPhys) * 100) & "% libres)."
End Sub

Message édité par cvb le 26-08-2003 à 14:42:45

mouff

ne sachant combien de mem prend mes process, je vois pas comment à partir de cette fonction api, je peux en déduire le %cpu pour chaque process :heink:

---------------
Il suffit de me dire de me taire...

cvb

pour chaque process, je ne sais pas, par contre, tu as le pourcentage total utilisé "dwMemoryLoad est le pourcentage de mémoire actuellement utilisé." et ça, "dwTotalVirtual retourne la mémoire totale pouvant être utilisée par l'application courante (en octets)". Pour le reste, je sais plus. Essaye d'aller sur www.vbfrance.com pour voir si tu trouves la solution à ton problème... [:spamafote]

mouff

pour la partie 'libel' de la fenetre, voici ce que j'ai reussi a faire finalement.

mon code précédent me donner l'instance du process mais pas de la fenetre (ce qui peut se reveler different). Et j'avais besoin de passer par la liste des process et non des handles fenetres pour x raisons (dont la possibilité de voir les instances excel/word ouvertes en ole...) donc, en donnant le pid du process, la fonction qui suit va me chercher le texte de la fenetre si existe

Citation :

Private Function GetProcessText(lProcessID As Long) As String
'recherche du texte window du process concerné
Dim test_hwnd As Long, test_pid As Long, test_thread_id As Long, lenS As Long
Dim Text As String

GetProcessText = "N/A" 'Not Available"

'se place sur la premiere fenetre
test_hwnd = FindWindow(ByVal 0&, ByVal 0& )
Do While test_hwnd <> 0
'verification si la fenetre n'est pas une fenetre child
If GetParent(test_hwnd) = 0 Then
'on cherche l'id de la fenetre
test_thread_id = GetWindowThreadProcessId(test_hwnd, test_pid)
If test_pid = lProcessID Then
'process concerné
lenS = GetWindowTextLength(test_hwnd)
Text = Space$(lenS + 1)
lenS = GetWindowText(test_hwnd, Text, lenS + 1)
Text = Left$(Text, Len(Text) - 1)
'texte valid pour une fenetre visible
If lenS <> 0 And Text <> "" And IsWindowVisible(test_hwnd) Then
GetProcessText = Text
Exit Do
End If
End If
End If
'retrieve the next window
test_hwnd = GetWindow(test_hwnd, GW_HWNDNEXT)
Loop
End Function

Par contre, je trouve toujours pas pour le %CPU :sweat:

---------------
Il suffit de me dire de me taire...

cvb

mouff a écrit :

Citation :

Par contre, je trouve toujours pas pour le %CPU :sweat:

si tu arrive à savoir combien de RAM te prend les process ouvert, tu peux ensuite faire une régle de 3 avec l'API que t'as été voir hier. Elle te permet de trouver la RAM libre et tu as une variable qui te donne ce que sa prend en charge pour le CPU...

*************
régle de 3
*************

% CPU machine (variable. dwMemoryLoad de l'API GlobalMemoryStatus) -----------> RAM prise (API windows GlobalMemoryStatus. Ce sont des calculs entre les secteur libre,ect...va voir l'exemple)

valeure aprés calcul du CPU -----------> RAM que te prenne les process (c'est à toi de trouver. comment, aucune idée !)

**************

je ne vois pas d'autre solution [:spamafote]

Message édité par cvb le 27-08-2003 à 12:19:30

mouff

attend attend, le %CPU n'est pas une valeur par rapport au temps de calcul du processeur de la machine ??? Ca n'a normalement aucun lien avec la RAM :heink:

---------------
Il suffit de me dire de me taire...

cvb

mouff a écrit :

attend attend, le %CPU n'est pas une valeur par rapport au temps de calcul du processeur de la machine ??? Ca n'a normalement aucun lien avec la RAM :heink:

le liens se trouve où ? Dés que tu fais monter la RAM tu vois la courbe du % CPU s'affoler, s'il y a d'autre facteur, je les connais pas... [:spamafote]

Publicité

mouff

evidemment quand un calcul se fait, le process nécessite la ram pour stock ces variables, mais clairement, les %CPU ne sont pas intrinséquement liés avec le %RAMutilisé pour déduire une équation entre ces deux valeurs.

où alors une putain d'équation mathématique à n-variables que je mettrais 15 ans à comprendre [:joker]

---------------
Il suffit de me dire de me taire...

cvb

mouff a écrit :

sur www.vbfrance.com, tu n'as pas trouvé d'exemple sur le calcul des ressources machine ou l'équation dont tu parles ?

mouff

nop, juste trouve comment avoir le CPU global ou comment avoir le graph.

juste trouvé ça http://www.vbfrance.com/forum.aspx?Article=76275 qui m'a aussi calmé un peu :whistle:
mais, je ne desespére pas

---------------
Il suffit de me dire de me taire...

cvb

mouff a écrit :

VB et le courage sa va ensemble ! [:ddr555]

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Liste de process word et excel via api

Sujets relatifs
Lien hypertexte sur une feuille d'une classeur Excel	userform et bouton Excel
Filtre automatique vba Excel	Remplir une zone de liste avec 2 plages nommées ???
Objet pour document Word	Ouvrir Excel ou Word depuis page Web
[Python]Ordonner une liste d'objet (sorting)	forcer liste deroulante à la valeur par défaut ?
[VBA] Kill d'un process
Plus de sujets relatifs à : Liste de process word et excel via api

Page générée en 0.073 secondes