Connaitre le temps UC d'un processus

Question

J'ai fais un prog qui lance une appli externe plusieurs fois en fonction du nombre de fichier à traiter.

Je controle actuellement que le dernier fichier a bien été traité par cette appli externe (processus inactif) avant de poursuivre dans mon prog.

Le problème c'est que cette appli plante parfois et j'aimerai pourvoir connaitre le "temps UC".

Sachant que l'appli travaille 3-4 secondes sur chaque fichier, il m'arrive que mon prog soit planté car cette appli externe est bloqué sur un fichier depuis plusieurs heures.

Merci d'avance.

Si ce que tu as à dire est moins profond que le silence alors ne dis rien.

intoxacls · Answer

Bonjour

Je pense que ceci peut t'aider.  (wProcessCpu)

 Private Sub test_processes(ByVal MonPc, ByVal MonApp)
        On Error GoTo pEndSub
        Dim nProcess As Process
        For Each nProcess In Process.GetProcesses(MonPc)
            If LCase(nProcess.ProcessName) = LCase(MonApp) Then
                Dim wProcessId = Format(nProcess.Id, "0000")
                MyTimeNow = nProcess.StartTime
                wTimeaa = Format(MyTimeNow, "yy")
                wTimemm = Format(MyTimeNow, "MM")
                wTimejj = Format(MyTimeNow, "dd")
                wTimehh = Format(MyTimeNow, "hh")
                wTimemn = Format(MyTimeNow, "mm")
                wTimess = Format(MyTimeNow, "ss")
                wTime = wTimejj & "/" & wTimemm & "/" & wTimeaa & " " _
                        & wTimehh & ":" & wTimess
                wProcessTime = wTime
                Dim wProcessName = Mid(nProcess.ProcessName, 1, 10)
                wProcessCpu = nProcess.PrivilegedProcessorTime.ToString

                wConsoleLigne = DateTime.Now & " " & MonPc & " : " & wProcessId & " " & wProcessTime & " " & wProcessCpu & " " & wProcessName
                Call ConsoleLog()
                GoTo pEndSub
            End If
        Next

        'Dim allProcess = ""
        'For Each nProcess In Process.GetProcesses(MonPc)
        '   allProcess = allProcess & nProcess.ProcessName & " - "
        'Next
pEndSub:
    End Sub

Bonne journée

pHoEnIxFuRy · Answer

Merci pour cette réponse rapide.

Je n'arrive pas à utiliser cette "fonction".

Un petit exemple, ça serait sympa.  :D

Ce n'est pas du code vb.NET par hazard ?

Si ce que tu as à dire est moins profond que le silence alors ne dis rien.

intoxacls · Answer

oui...

c'est du code vb.net

l'équivalent devrait exister dans un autre environnement.

pHoEnIxFuRy · Answer

C'est bien ce que je pensai car le GetProcesses n'existe pas en VB6.

Si un solution equivalente existe pour VB6 je suis preneur. :D

Merci pour les infos en tout cas.

Si ce que tu as à dire est moins profond que le silence alors ne dis rien.

Connaitre le temps UC d'un processus

4 réponses

Discussions similaires