как отловить Процесс.Exited

[student-uni]

есть такое событие Процесс.Exited а отловить его не получается

посмотрите пожалуиста код
может кто поимет в чем дело

спасибо

Код: Выделить всё

Dim WithEvents prc As Process
Dim handler As EventHandler

Private Sub Form_Load
        prc = New Process
        prc.StartInfo.FileName = "mstsc.exe"
        prc.StartInfo.Arguments = "c:\мy.rdp"
        AddHandler prc.Exited, handler

end Sub

Private Sub prc_Exited(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles prc.Exited
        MsgBox("Процесс прерван" )
End Sub


[Viper]

Так ты бы его запустил... процесс то для начала

[student-uni]

да запускаЮ

тут что то со статическим методом Process.Start
я похоже вешаюсь не на тот обьект ?

Код: Выделить всё

prc = New Process
                    prc = Process.Start(New ProcessStartInfo(strRasPfad, strCmdLine))

                    AddHandler prc.Exited, AddressOf subRemote

Private Sub subRemote(ByVal sender As Object, ByVal e As System.EventArgs)
        MsgBox("Kuku")
    End Sub


[mdx]

Код: Выделить всё

Dim prc As Process = Process.Start(New ProcessStartInfo("test.exe", ""))
AddHandler prc.Exited, New EventHandler(AddressOf OnExited)

...

Private Sub OnExited(ByVal sender As Object, ByVal e As System.EventArgs)
        MsgBox("Process exited")
End Sub

У меня так работает

[student-uni]

Мистика ... Скопировал твой - Не работает.
Нотепад стартует а при выходе ничего нет

Попробуй пожалуйста то что у меня получилось :

Код: Выделить всё

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim prc As Process = Process.Start(New ProcessStartInfo("notepad.exe", ""))
        AddHandler prc.Exited, New EventHandler(AddressOf OnExited)


    End Sub

    Private Sub OnExited(ByVal sender As Object, ByVal e As System.EventArgs)
        MsgBox("Process exited")
    End Sub
End Class


[Nord777]

Dim prc As Process = Process.Start(New ProcessStartInfo("notepad.exe", ""))
prc.EnableRaisingEvents = True
AddHandler prc.Exited, New EventHandler(AddressOf OnExited)

[student-uni]

Аллилуййя !
Спасибо
Блин я когда через WithEvents пытался ВС мне говорил, что через RaisingEvents нужно, не допёр