16,721
社区成员
发帖
与我相关
我的任务
分享
Dim retVal
retVal = Shell("\windows\iesample.exe")
Dim retVal
retVal = Shell("C:\Program Files\Internet Explorer\iexplore.exe")
Dim s As String
s = "\windows\iesample.exe"
Dim procID As Integer
Dim newProc As Diagnostics.Process
newProc = Diagnostics.Process.Start(s, "")
procID = newProc.Id
newProc.WaitForExit()
Dim procEC As Integer = -1
If newProc.HasExited Then
procEC = newProc.ExitCode
End If