VB.NET启动并监测外部程序

"closed at: " & myProcess.ExitTime & "." & _
System.Environment.NewLine & "Exit Code: " & _
myProcess.ExitCode)
myProcess.Close()
　　前面的代码返回一个零（0）值的ExitCode。如果想看看非零值ExitCode的例子，可以在系统目录上附加一个"X"或其他字符，这样能使它非法。这导致出现一个错误，ExitCode值将不同。因为一个带有错误的过程可能会一直运行下去，代码在返回到控制启动的程序之前，使用一个超载WaitForExit方法来等待几毫秒时间。上面的代码等待一秒钟，然后调用Kill方法结束启动的过程，强迫过程退出。请查看一下你的应用程序启动目录中的dirOutput.txt是否存在。

15d 探测一个过程什么时候退出

　　在VB6中，你可以调用Win32 API的GetModuleUsage()函数来判定过程什么时候结束。在.NET中，相应的操作是在启动过程后不断的循环，检查Process.HasExited属性，并且调用Application.DoEvents方法处理你的应用程序中其他的事件，直到过程结束。

Do While Not myProcess.HasExited
Application.DoEvents
Loop
　　但是Process类给了你一个更简洁的方法来判断过程什么时候退出--它可以产生一个Exited事件。为了使这种情况出现，你需要设置Process.EnableRaisingEvents属性为True（默认情况下属性值为False），并创建一个事件句柄。例如：

'允许过程产生事件
myProcess.EnableRaisingEvents = True

'添加一个Exited事件句柄
AddHandler myProcess.Exited, _
AddressOf Me.ProcessExited

'开始过程
myProcess.Start()

'事件处理程序
Friend Sub ProcessExited(ByVal sender As Object, _
ByVal e As System.EventArgs)
Dim myProcess As Process = DirectCast( _
sender, Process)
MessageBox.Show("The process exited, raising " & _
"the Exited event at: " & myProcess.ExitTime & _
"." & System.Environment.NewLine & _
"Exit Code: " & myProcess.ExitCode)
myProcess.Close()
End Sub
　　使用这两种方法潜在的问题就是如果启动的过程挂起或者从不退出，你的应用程序就会一直停止。解决办法就是添加一个定时器，周期性的检查启动的程序是否有响应。

　　控制过程输入输出

　　有时候，你可能不仅仅想使用简单的命令行，而是想把更复杂的输入信息直接发送到启动的过程中。前面例子中的把输出导入到文件中的方法，并不总是最好的选择。在许多情况下，把输出直接导回你的应用程序可能更有效。对于使用StdIn、StdOut和StdErr的程序，比如控制台应用程序，你可以覆盖默认方法，提供一个StreamWriter来输入，并提供一个StreamReaders来读取StdOut和StdErr输出值。当你启动过程的时候，你需要设置ProcessStartInfo对象的RedirectStandardInput、RedirectStandardOutput和RedirectStandardError属性为True。然后，在启动过程之后，使用Process对象的StandardInput、StandardOutput和StandardError属性来把输入输出流分配到StreamReader和StreamWriter对象。

　　警告：默认情况下，框架使用Win32 ShellExecute函数，在内部启动过程；但是当你想再分配输入输出流的时候，你必须在启动过程之前设置ProcessStartInfo.UseShellExecute属性为False。注意当你那么做的时候，你必须要么指定到文件的完全路径，要么文件位置必须在环境路径中。例如，下面的代码创建一个不可见的窗口，取得系统目录中.com文件的目录列表，然后在一个消息框中显示结果。

Dim myProcess As Process = New Process()
Dim s As String
myProcess.StartInfo.FileName = "cmd.exe"
myProcess.StartInfo.UseShellExecute = False
myProcess.StartInfo.CreateNoWindow = True
myProcess.StartInfo.RedirectStandardInput = True
myProcess.StartInfo.RedirectStandardOutput = True
myProcess.StartInfo.RedirectStandardError = True
myProcess.Start()
Dim sIn As StreamWriter = myProcess.StandardInput
sIn.AutoFlush = True

Dim sOut As StreamReader = myProcess.StandardOutput
Dim sErr As StreamReader = myProcess.StandardError
sIn.Write("dir c:\windows\system32\*.com" & _
System.Environment.NewLine)
sIn.Write("exit" & System.Environment.NewLine)
s = sOut.ReadToEnd()
If Not myProcess.HasExited Then
myProcess.Kill()
End If

MessageBox.Show("The 'dir' command window was " & _
closed at: " & myProcess.ExitTime & "." & _
System.Environment.NewLine & "Exit Code: " & _
myProcess.ExitCode)

sIn.Close()
sOut.Close()
sErr.Close()
myProcess.Close()
MessageBox.Show(s)
　　对于不使用StdIn的程序，你可以使用SendKeys方法来输入按键事件。例如，下面这些代码启动记事本并输入一些文本。

Dim myProcess As Process = New Process()
myProcess.StartInfo.FileName = "notepad"
myProcess.StartInfo.WindowStyle = _
ProcessWindowStyle.Normal
myProcess.EnableRaisingEvents = True
AddHandler myProcess.Exited, _
AddressOf Me.SendKeysTestExited
myProcess.Start()

myProcess.WaitForInputIdle(1000)
If myProcess.Responding Then

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!