用vb代开关闭exe文件

1.  Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long  
2.   Private Declare Function OpenProcess Lib "kernel32" _  
3.         (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _  
4.           ByVal dwProcessID As Long) As Long  
5.   Private Const PROCESS_TERMINATE = &H1  
6.   Private hProcess     As Long  
7. Private Sub Command1_Click()  
8.     Dim pid     As Long  
9.     pid = Shell("F:\webServer\mongoose-3.7.exe", vbNormalFocus)  
10.     If pid = 0 Then  
11.         MsgBox "没有打开程序"  
12.     Else  
13.         hProcess = OpenProcess(PROCESS_TERMINATE, 0, pid)  
14.     End If  
15.       
16. End Sub  
17.   
18. Private Sub Command2_Click()  
19.       Dim l As Long  
20.       l = TerminateProcess(hProcess, 1)  
21.       If l <> 0 Then  
22.             MsgBox "成功关闭"  
23.       Else  
24.             MsgBox "未关闭"  
25.       End If  
26. End Sub