Process.Exited

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Bluespide.

    Process.Exited

    Hallo zusammen,

    ich habe mal eine Frage bezüglich Process.Exited.

    Ich habe einen Prozess, welcher auf die rundll32.exe zugreift.

    VB.NET-Quellcode

    1. ​Private WithEvents Shell As New Process


    Der Aufruf klappt auch so wie gedacht.

    VB.NET-Quellcode

    1. ​ With Shell
    2. .StartInfo.FileName = "rundll32.exe"
    3. .StartInfo.Arguments = "InetCpl.cpl,ClearMyTracksByProcess 255"
    4. .Start()
    5. End With


    Allerdings wird das Process.Exited Event nicht ausgeführt, wenn sich das Fenster schließt.

    VB.NET-Quellcode

    1. ​Private Sub Shell_Exited(sender As Object, e As EventArgs) Handles Shell.Exited
    2. btnRunSownloader.Enabled = True
    3. btnRunSownloader.Visible = True
    4. End Sub


    Wie kann ich den Code erst ausführen, wenn sich rundll32.exe beendet?

    LG,
    Marvin

    warum er das Event nicht feuert kann ich dir leider nicht sagen aber du könntest (gesetzt dem Fall es geht einfach darum etwas auszuführen sobald er fertig ist) auch folgendes machen :

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim t As New Process
    3. With t
    4. .StartInfo.FileName = "rundll32.exe"
    5. .StartInfo.Arguments = "InetCpl.cpl,ClearMyTracksByProcess 255"
    6. .Start()
    8. .WaitForExit()
    10. If .HasExited Then
    11. btnRunSownloader.Enabled = True
    12. btnRunSownloader.Visible = True
    13. End If
    15. End With


    Greets
    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    So funktioniert es zwar, allerdings muss ich es in einen anderen Thread ausführen, da ansonsten die Form solange einfriert, wie rundll32.exe aktiv ist.

    Ich würde es allerdings bevorzugen dies zu vermeiden.

    LG,
    Marvin

    Maybe... :

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private WithEvents t As New Process
    3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    5. With t
    6. .StartInfo.FileName = "rundll32.exe"
    7. .StartInfo.Arguments = "InetCpl.cpl,ClearMyTracksByProcess 255"
    8. .EnableRaisingEvents = True
    9. .Start()
    10. .WaitForExit()
    11. End With
    12. End Sub
    14. Private Sub Shell_Exited(sender As Object, e As EventArgs) Handles t.Exited
    15. btnRunSownloader.Enabled = True
    16. btnRunSownloader.Visible = True
    17. End Sub

    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private WithEvents T2 As Thread
    3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    4. Dim T2 As New Threading.Thread(AddressOf Fun)
    5. T2.start()
    7. While T2.IsAlive
    8. Application.DoEvents()
    9. End While
    10. btnRunSownloader.Enabled = True
    11. btnRunSownloader.Visible = True
    13. End Sub
    15. Private Sub Fun()
    16. Dim T As New Process
    17. With t
    18. .StartInfo.FileName = "rundll32.exe"
    19. .StartInfo.Arguments = "InetCpl.cpl,ClearMyTracksByProcess 255"
    20. .Start()
    21. .WaitForExit()
    22. End With
    23. End Sub


    is allerdings sicherlich nicht die logischte lösung ^^ mir fällt nur keine bessere ein
    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    Man könnte es auch so lösen:

    VB.NET-Quellcode

    1. Private Async Sub button1_Click(sender As Object, e As EventArgs)
    3. Await Task.Run(Function()
    4. Dim p As New Process()
    5. p.StartInfo.FileName = "rundll32.exe"
    6. p.StartInfo.Arguments = "InetCpl.cpl,ClearMyTracksByProcess 255"
    7. p.EnableRaisingEvents = True
    8. p.Start()
    9. p.WaitForExit()
    11. End Function)
    13. MessageBox.Show("Feertig")
    14. End Sub

    Vorteil: Man muss kein böses DoEvents nutzen ! Warum nicht Application.DoEvents()?

    Warum so kompliziert?
    Einfach das Event abonnieren und darauf achten, dass EnableRaisingEvents auf True gesetzt ist.
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Niko Ortner schrieb:

    Warum so kompliziert?
    Einfach das Event abonnieren und darauf achten, dass EnableRaisingEvents auf True gesetzt ist.


    das ist so leicht nicht Möglich, da die Controls sonst von anderen Threads aufgerufen werden.

    Dafür gibt es Invoke:

    VB.NET-Quellcode

    1. Private Sub Shell_Exited(sender As Object, e As EventArgs) Handles Shell.Exited
    2. If InvokeRequired Then
    3. Me.Invoke(Sub() Shell_Exited(sender, e))
    4. Return
    5. End If
    6. btnRunSownloader.Enabled = True
    7. btnRunSownloader.Visible = True
    8. End Sub

Facebook
Telefonspende