Überprüfen ob ein Programm gestartet wird

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Kangaroo.

    Überprüfen ob ein Programm gestartet wird

    Hallo guten Tag :)

    Ich wollte eine Anwendung schreiben die zählt wie lange die Datei gestartet ist(XXX.exe) und
    wenn sie weider geschlossen wird soll sie aufhören zu zählen ich habe schon gesucht aber nichts gefunden wie man
    das schreibt und das Programm soll im Hintergrud weiterlaufen


    Vielen dank im vorraus :thumbsup:

    Gugst Du GetProcessesByName(), oben rechts im Suchfenster eingeben.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    Gugst Du GetProcessesByName(), oben rechts im Suchfenster eingeben.
    @Rod Das geht besser mit WMI

    Eine Möglichkeit besteht natürlich darin in einem Timer immer die aktuellen Processe zu scannen.

    Eleganter ist die Möglichkeit einen ManagementWatcher über WMI zu definieren und dessen Ereignisse für Prozessstart/Ende abzufangen:
    "Notepad Watcher"

    VB.NET-Quellcode

    1. Imports System.Management
    3. Public Class Form1
    4. Private myProcessName As String = "notepad.exe"
    5. Private startWatcher As ManagementEventWatcher
    6. Private stopWatcher As ManagementEventWatcher
    8. ' FORM CLOSING EVENT
    9. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    10. ' stop startwatcher
    11. startWatcher.Stop()
    12. startWatcher.Dispose()
    13. ' stop stopwatcher
    14. stopWatcher.Stop()
    15. stopWatcher.Dispose()
    16. End Sub
    18. ' FORM LOAD EVENT
    19. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    20. ' watch current machine
    21. Dim scope As String = "\\.\root\CIMV2" ' watch local machine
    22. Dim interval As Integer = 2 ' interval 2 seconds
    23. Dim query As String
    25. ' Create startwatcher
    26. query = String.Format("SELECT TargetInstance FROM __InstanceCreationEvent WITHIN {0} WHERE TargetInstance ISA 'Win32_Process' AND TargetInstance.Name = '{1}'", interval, myProcessName)
    27. startWatcher = New ManagementEventWatcher(scope, query)
    28. AddHandler startWatcher.EventArrived, AddressOf ProcessStarted
    29. startWatcher.Start()
    31. ' Create stopwatcher
    32. query = String.Format("SELECT TargetInstance FROM __InstanceDeletionEvent WITHIN {0} WHERE TargetInstance ISA 'Win32_Process' AND TargetInstance.Name = '{1}'", interval, myProcessName)
    33. stopWatcher = New ManagementEventWatcher(scope, query)
    34. AddHandler stopWatcher.EventArrived, AddressOf ProcessStopped
    35. stopWatcher.Start()
    36. End Sub
    38. ' process stopped event
    39. Private Sub ProcessStopped(ByVal sender As Object, ByVal e As EventArrivedEventArgs)
    40. Dim targetInstance As ManagementBaseObject = DirectCast(e.NewEvent.Properties("TargetInstance").Value, ManagementBaseObject)
    41. Dim processName As String = targetInstance.Properties("Name").Value.ToString()
    42. ' do something
    43. MessageBox.Show(String.Format("{0} process ended", processName))
    44. End Sub
    46. ' process started event
    47. Private Sub ProcessStarted(ByVal sender As Object, ByVal e As EventArrivedEventArgs)
    48. Dim targetInstance As ManagementBaseObject = DirectCast(e.NewEvent.Properties("TargetInstance").Value, ManagementBaseObject)
    49. Dim processName As String = targetInstance.Properties("Name").Value.ToString()
    50. MessageBox.Show(String.Format("{0} process started", processName))
    51. End Sub
    52. End Class


    Um zu funktionieren muss vorher ein Verweis auf System.Management ins Projekt eingebunden sein.

    Kangaroo schrieb:

    Das geht besser mit WMI
    Wie auch immer.
    Ich sehe jeden Tag mindestens 2 neue Threads mit äquivalentem Inhalt, leider sind die Probanden nicht in der Lage, die Suchfunktion zu betätigen. ;(
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    Ich sehe jeden Tag mindestens 2 neue Threads mit äquivalentem Inhalt, leider sind die Probanden nicht in der Lage, die Suchfunktion zu betätigen.

    Du bist ja auch erheblich aktiver als ich ;)

    ... und wenn Suchfunktion und das Studium der MSDN Dokumentation Pflicht wären, so wäre das Forum tot und wir müssten in den Arbeitspausen wieder Sudoku spielen ;)

Facebook
Telefonspende