等待至程序閒置
Milliseconds | Long | 4 | 可省略 | INFINITE | 等待時間,微秒,預設無限等待 |
程序結束傳回 True ,否傳回 False
Private Sub Command1_Click() Dim pi As New cProcess pi.Start "C:\Windows\system32\calc.exe" ' do something pi.EmptyWorkSet ' do something pi.WaitForIdle 5000 ' do something pi.WaitForExit 5000 Debug.Print "Waitting second=" & pi.WaitMilliseconds / 1000 ' do something Debug.Print "ProcessId=" & pi.Id Debug.Print "hProcess=" & pi.Handle Debug.Print "hWnd=" & pi.MainWindowHandle ' do something pi.CloseMainWindow If Not pi.HasExited Then pi.Kill Debug.Print pi.ExitCode End Sub
若需取得等待時間,可參考 WaitMilliseconds
Visual Basic 4 以後 | 需同時引用modWindow模組 | cProcess.bas
|