取得等待時間
無引數
傳回 等待時間 (微秒)
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
Visual Basic 4 以後 | 需同時引用modWindow模組 | cProcess.bas
|