如何关闭自己调用的.exe文件.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 17 行

VB调 用 Shell函 数 时 返 回 值 实 际 是 ProcessID， 使 用 OpenProcess可 以 得 到 Process的 Handle。 利 用 TerminateProcess就 可 以 关 闭 程 序 。 如 下 面 的 例 子 ： 
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess _ 
     As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long 
    Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess _ 
     As Long, ByVal uExitCode As Long) As Long 
    Dim x 
     
    Private Sub Command1_Click() 
     x = Shell("NotePad.EXE", 1) 
    End Sub 
     
    Private Sub Command2_Click() 
     hProgram = OpenProcess(0, False, x) 
     TerminateProcess hProgram, 0 
    End Sub 
<END>