外部檔案的執行及終止


請問VB5是用shell來執行外部檔案,那執行後,要怎樣用VB的語法來終止此檔案的執行呢!?

老怪答：

Dim FHandle As Variant '(儲存視窗代碼的變數

Private Sub Command1_Click()
FHandle = Shell("C:\WIND98\CALC.EXE", 1) '(開啟外部執行檔)
End Sub

Private Sub Command2_Click()
AppActivate FHandle '讓先前開啟的視窗取得焦點。
SendKeys "%{f4}", True '送出 [Alt]+[F4] Windows 系統的關閉組合鍵。
End Sub

改寫成能處理錯誤的呼叫函數則如下：

開啟 Windows 應用程式
'varAppName 是程式路徑及名稱之傳遞參數
'varWinState 是應用程式視窗開啟狀態,設定方式請參考 Shell
'的 WindowsStyle 說明
Private Function OpenApp(ByVal varAppName As String, _
Optional ByVal varWinState As Integer)
'傳回應用程式之視窗代碼
Dim varWinTitle As Variant

'錯誤處理
On Error GoTo OpenAppErr

varWinTitle = Shell(varAppName, varWinState)
OpenApp = varWinTitle
Exit Function

OpenAppErr:
Select Case Err.Number
Case 53
MsgBox "程式路徑或名稱錯誤", vbOKOnly, "開啟應用程式"
End Select
End Function

'關閉 Windows 應用程式
'varWinTitle 是開啟程式時 Windows 系統給的代碼
Private Sub CloseApp(ByVal varWinTitle As Variant)

'錯誤處理
On Error GoTo CloseAppErr

AppActivate varWinTitle
'用 SendKeys 陳述模擬鍵盤 [ALT]+[F4]
SendKeys "%{F4}"
Exit Sub

CloseAppErr:
Select Case Err.Number
Case 5
MsgBox "程式視窗已被關閉", vbOKOnly, "關閉應用程式"
End Select
End Sub

'上面是改寫 Shell 和 AppActivate 的兩個函數，呼叫方式如下：

'宣告一個儲存視窗代碼的變數
Private WinTitle As Variant

'開程式
Private Sub Command1_Click()
Dim AppName As String

AppName = "你的程式路徑及名稱"
WinTitle = OpenApp(AppName)
End Sub

'關程式
Private Sub Command2_Click()
CloseApp WinTitle
End Sub