vb怎样kill一个其它程序进程

先说下基本思路吧。 

首先得到进程ID(EnumProcesses)，获得进程句柄(OpenProcess)，再用TerminateProcess  杀死它。

'3460是刚才系统给记事本分配的ID
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Const PROCESS_TERMINATE = &H1

Private Sub Command2_Click()
     Dim hand As Long
     'hand = OpenProcess(PROCESS_TERMINATE, True, Process.th32ProcessID) '获取进程句柄
     'hProcess = OpenProcess(PROCESS_QUERY_INFORMATION+SYNCHRONIZE,FALSE,pid)
     hand = OpenProcess(PROCESS_TERMINATE, True, 3460)
    TerminateProcess hand, 0 '关闭进程
End Sub