16,722
社区成员




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