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

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

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>