Catch Application After Exit (WaitforExit) VB.Net

[Pete]

Hi All,

I'm new to this so please correct me if I'm wrong. I have written a
small program which holds details for task information. the program
holds an email address, i created a button which use
System.Diagnost ics.Process class in vb.net to start a "Mailto:" + email

address. This works fine, however I wanted to expand on this some more
when the user had sent the email I wanted to do something afterwards.
so looked around and found some code which raises an exit event when
the original event has exited. It works fine when launching something
like notepad.exe, but when I put my mailto command in it does not fire
the exit event. Below I have included the code working and the code not

working.
In advance thanks,
Pete.
Will not work with the below code:
Private Sub Button4_Click(B yVal sender As System.Object, ByVal e As

System.EventArg s) Handles Button4.Click
Dim oProcess As New Process
oProcess.StartI nfo.FileName = "MailTo:" + tbemail.Text
oProcess.StartI nfo.Arguments = ""
' This will allow the Exited event to fire.
oProcess.Enable RaisingEvents = True
' Add an event handler for this process.
' Run the OnProcessExit sub when this process exits.
AddHandler oProcess.Exited , AddressOf OnProcessExit
' Start the process.
oProcess.Start( )
End Sub
Private Sub OnProcessExit(B yVal sender As Object, ByVal e As
EventArgs)
' Avoid late binding and Cast the Object to a Process.
Dim proc As Process = CType(sender, Process)
' Write the ExitCode
Debug.WriteLine (proc.ExitCode)
' Write the ExitTime
Debug.WriteLine (proc.ExitTime. ToString)
MessageBox.Show ("exited")
End Sub
End Class
Will work with the below code:
Private Sub Button4_Click(B yVal sender As System.Object, ByVal e As

System.EventArg s) Handles Button4.Click
Dim oProcess As New Process
' Provide the name of the application or file.
oProcess.StartI nfo.FileName = "Noteopad"
' Specify the arguments.
oProcess.StartI nfo.Arguments = ""
' This will allow the Exited event to fire.
oProcess.Enable RaisingEvents = True
' Add an event handler for this process.
' Run the OnProcessExit sub when this process exits.
AddHandler oProcess.Exited , AddressOf OnProcessExit
' Start the process.
oProcess.Start( )
End Sub
Private Sub OnProcessExit(B yVal sender As Object, ByVal e As
EventArgs)
' Avoid late binding and Cast the Object to a Process.
Dim proc As Process = CType(sender, Process)
' Write the ExitCode
Debug.WriteLine (proc.ExitCode)
' Write the ExitTime
Debug.WriteLine (proc.ExitTime. ToString)
MessageBox.Show ("exited")
End Sub
End Class

[Cor Ligthert [MVP]]

Pete,

Tom has made some days ago a nice better working sample for your problem.

http://groups.google.com/group/micro...837d41bb5bb22c

I hope this hlps,

Cor

"Pete" <ba***@hotmail. comschreef in bericht
news:11******** *************@m 73g2000cwd.goog legroups.com...

Hi All,

I'm new to this so please correct me if I'm wrong. I have written a
small program which holds details for task information. the program
holds an email address, i created a button which use
System.Diagnost ics.Process class in vb.net to start a "Mailto:" + email

address. This works fine, however I wanted to expand on this some more
when the user had sent the email I wanted to do something afterwards.
so looked around and found some code which raises an exit event when
the original event has exited. It works fine when launching something
like notepad.exe, but when I put my mailto command in it does not fire
the exit event. Below I have included the code working and the code not

working.
In advance thanks,
Pete.
Will not work with the below code:
Private Sub Button4_Click(B yVal sender As System.Object, ByVal e As

System.EventArg s) Handles Button4.Click
Dim oProcess As New Process
oProcess.StartI nfo.FileName = "MailTo:" + tbemail.Text
oProcess.StartI nfo.Arguments = ""
' This will allow the Exited event to fire.
oProcess.Enable RaisingEvents = True
' Add an event handler for this process.
' Run the OnProcessExit sub when this process exits.
AddHandler oProcess.Exited , AddressOf OnProcessExit
' Start the process.
oProcess.Start( )
End Sub
Private Sub OnProcessExit(B yVal sender As Object, ByVal e As
EventArgs)
' Avoid late binding and Cast the Object to a Process.
Dim proc As Process = CType(sender, Process)
' Write the ExitCode
Debug.WriteLine (proc.ExitCode)
' Write the ExitTime
Debug.WriteLine (proc.ExitTime. ToString)
MessageBox.Show ("exited")
End Sub
End Class
Will work with the below code:
Private Sub Button4_Click(B yVal sender As System.Object, ByVal e As

System.EventArg s) Handles Button4.Click
Dim oProcess As New Process
' Provide the name of the application or file.
oProcess.StartI nfo.FileName = "Noteopad"
' Specify the arguments.
oProcess.StartI nfo.Arguments = ""
' This will allow the Exited event to fire.
oProcess.Enable RaisingEvents = True
' Add an event handler for this process.
' Run the OnProcessExit sub when this process exits.
AddHandler oProcess.Exited , AddressOf OnProcessExit
' Start the process.
oProcess.Start( )
End Sub
Private Sub OnProcessExit(B yVal sender As Object, ByVal e As
EventArgs)
' Avoid late binding and Cast the Object to a Process.
Dim proc As Process = CType(sender, Process)
' Write the ExitCode
Debug.WriteLine (proc.ExitCode)
' Write the ExitTime
Debug.WriteLine (proc.ExitTime. ToString)
MessageBox.Show ("exited")
End Sub
End Class