?? 39.txt
字號:
監視程序的運行情況
我們使用 VB 提供的 Shell 方法調用外部程序時,Shell 方法執行后會繼續執行下面的代碼,而我們不能確定外部程序什么時候調用結束。我們現在可以通過以下方法來實現對被調用程序的監視:
(1)首先在工程中添加一個模塊,然后聲明 OpenProcess 及 CloseHandle 這兩個 API 函數;
(2)然后加入下面的函數:
Public Function StillRun(ByVal ProgramID) As Boolean
Dim lHProgram As Long
Dim lReturn As Long
hProgram = OpenProcess(0, False, ProgramID)
If Not hProgram = 0 Then
StillRun = True
Else
StillRun = False
End If
CloseHandle hProgram
End Function
說明:ProgramID 是 Shell 函數返回的那個值, 那是一個進程號;lHProgram 是被測程序的進程句柄;lReturn是進程的返回碼。本程序只是在WIN32下有效,使用重要注意一個問題, 就是代碼的重入問題。可以用類似以下的代碼來解決。
While StillRun(id)
DoEvents
Wend
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -