processus utilisant telle application...Résolu

Question

Bonjour et merci d'avance pour les conseils.
J'ai téléchargé un code qui devrait me permettre de  savoir quel processus utilise telle application mais ignorant en prog, je ne sais comment utiliser les fichiers fournis dans ce code.
Je dispose de Visual Basic 6
Merci de votre comprehension

cs_rt15 · Accepted Answer

Bonjour,


Déjà, il faut que le code que tu as télé soit pour VB6 (Et pas VB.NET. Si c'est du vb.net, on peut télé une express gratuite).


Le plus simple pour toi :

Fait un clique droit sur le fichier .vbp (Visual Basic Project) contenu
dans le zip, et sélectionne Make. Un .exe devrait apparaître dans le
dossier (F5 pour raffraichir le dossier).


Je te conseil aussi d'allumer cinq cierges et de danser autour du PC lors de la compilation. Ca peut aider...

<hr size="2" width="100%" />Je
suis en deuxième année en école d'ingénieur et passionné de
développement logiciel sous D7 et VB6. Je cherche un stage en
entreprise sur Paris de début avril à fin juillet 2007.

cs_JMO · Answer

Bonjour,

Il y a simple avec WMI.
Exemple avec process Excel.

Option Explicit
Dim strComputer,objWMIService,colProcesses,objProcess,ProcessTime,strCreationDate,user,Domain,strOwner,h,m,s,chaine
strComputer = "." 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2") 
Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process      where Name='EXCEL.EXE' ")
Chaine="Process     |Creation Date Time |Handles|Threads|Owner              |Priority|MemoryUsage|MaxMemUsage|MemRequired|MaxMemRequi|       Swap|   Max Swap|CPU time|PID |PFaults|Path" & vbCrLf 
For Each objProcess in colProcesses 
        If objProcess.GetOwner ( User, Domain ) = 0 Then 
                strOwner= Domain & "" & User 
        Else 
                strOwner= Domain & "" & user 'strOwner="Unknown" 
        End If 
        ProcessTime=(CSng(objProcess.KernelModeTime) + CSng(objProcess.UserModeTime)) / 10000000 
        h=right("0" & fix(ProcessTime/60/60),2) 
        ProcessTime=ProcessTime-h*60*60 
        m=right("0" & fix(ProcessTime/60),2) 
        s=Right("0" & round(ProcessTime-m*60),2) 
        strCreationDate=Mid(objProcess.CreationDate,7,2) & "/" & Mid(objProcess.CreationDate,5,2) & "/" & Left(objProcess.CreationDate,4) & " " & Mid(objProcess.CreationDate,9,2) & ":" & Mid(objProcess.CreationDate,11,2) & ":" & Mid(objProcess.CreationDate,13,2) 
        If strCreationDate="// ::" Then strCreationDate=Space(19) 
        Chaine=Chaine &  Left(objProcess.Name & space(8),12) & "|" _ 
                & strCreationDate & "|" & Right(Space(6) & objProcess.HandleCount,7) & "|" _ 
                & Right(Space(6) & objProcess.ThreadCount,7) & "|" _ 
                & Left(strOwner & space(14),19) & "|" _ 
                & Left(objProcess.Priority & Space(7),8) & "|" _ 
                & Right(Space(10) & objProcess.PageFileUsage ,11) & "|" _ 
                & Right(Space(10) & objProcess.PeakPageFileUsage ,11) & "|" _ 
                & Right(Space(8) & objProcess.WorkingSetSize ,11) & "|" _ 
                & Right(Space(8) & objProcess.PeakWorkingSetSize ,11) & "|" _ 
                & Right(Space(10) & objProcess.VirtualSize ,11) & "|" _ 
                & Right(Space(10) & objProcess.PeakVirtualSize ,11) & "|" _ 
                & h & ":" & m & ":" & s & "|" _ 
                & Left(objProcess.ProcessID & space(3),4) & "|"  _ 
                & Right(Space(6) & objProcess.PageFaults ,7) & "|" & objProcess.ExecutablePath 
        Chaine=Chaine & vbCrLf 
'If objProcess.Name = "EXCEL.EXE" Then MsgBox objProcess.Name & " " & objProcess.VirtualSize
Next 
Set objWMIService = Nothing
Set colProcesses = Nothing
wscript.echo chaine

jean-marc

Processus utilisant telle application...

2 réponses

Votre réponse

Discussions similaires