先说下基本思路吧。
首先得到进程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