外部檔案的執(zhí)行及終止


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

老怪答：

Dim FHandle As Variant '(儲(chǔ)存視窗代碼的變數(shù)

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

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

改寫成能處理錯(cuò)誤的呼叫函數(shù)則如下：

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

'錯(cuò)誤處理
On Error GoTo OpenAppErr

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

OpenAppErr:
Select Case Err.Number
Case 53
MsgBox "程式路徑或名稱錯(cuò)誤", vbOKOnly, "開啟應(yīng)用程式"
End Select
End Function

'關(guān)閉 Windows 應(yīng)用程式
'varWinTitle 是開啟程式時(shí) Windows 系統(tǒng)給的代碼
Private Sub CloseApp(ByVal varWinTitle As Variant)

'錯(cuò)誤處理
On Error GoTo CloseAppErr

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

CloseAppErr:
Select Case Err.Number
Case 5
MsgBox "程式視窗已被關(guān)閉", vbOKOnly, "關(guān)閉應(yīng)用程式"
End Select
End Sub

'上面是改寫 Shell 和 AppActivate 的兩個(gè)函數(shù)，呼叫方式如下：

'宣告一個(gè)儲(chǔ)存視窗代碼的變數(shù)
Private WinTitle As Variant

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

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

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