上次我已介绍如何运行外部
![](/icons/88597chengxu.gif)
![](/icons/88597yi.gif)
1.有好多时,我们需要
![](/icons/88597diaoyong.gif)
![](/icons/88597de.gif)
![](/icons/88597chengxu.gif)
![](/icons/88597de.gif)
\'怎样等待外部
![](/icons/88597chengxu.gif)
\'从系统资料夹读入文件
Dim sysFolder As String = _
Environment.GetFolderPath(Environment.SpecialFolder.
![](/icons/88597System.gif)
\'创建
![](/icons/88597yi.gif)
![](/icons/88597de.gif)
Dim pInfo As New ProcessStartInfo
![](/icons/88597kh.gif)
\'设置其成员FileName为系统资料
![](/icons/88597de.gif)
pInfo.FileName = sysFolder & \"\\eula.txt\"
\'运行该文件
Dim p As Process = Process.Start(pInfo)
\'等待
![](/icons/88597chengxu.gif)
p.WaitForInputIdle
![](/icons/88597kh.gif)
\'等待进行程退出
p.WaitForExit
![](/icons/88597kh.gif)
\'继续执行下面
![](/icons/88597de.gif)
MessageBox.Show(\"继续执行代码\")
2.我们想在5秒钟后,强行关闭它.而不是需要我手工关闭.
\'设置退出时间
Dim timeOut As Integer = 5000
Dim sysFolder As String = _
Environment.GetFolderPath(Environment.SpecialFolder.
![](/icons/88597System.gif)
Dim pInfo As New ProcessStartInfo
![](/icons/88597kh.gif)
pInfo.FileName = sysFolder & \"\\eula.txt\"
Dim p As Process = Process.Start(pInfo)
p.WaitForInputIdle
![](/icons/88597kh.gif)
p.WaitForExit(timeOut)
\'检查是否在超时前已关闭了.
If p.HasExited = False Then
\'进行程还在运行
\'看进程有没有回应
If p.Responding Then
p.CloseMainWindow
![](/icons/88597kh.gif)
Else
p.Kill
![](/icons/88597kh.gif)
End If
End If
MessageBox.Show(\"继续执行代码\")
最新评论