用TerminateProcess,如下:(得先知道ProcessId) Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject 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 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '--------------------------- Dim hPro As Long Dim ret As Long hPro = OpenProcess(PROCESS_TERMINATE, 1&,ProcessId) ret = TerminateProcess(hPro, 0) CloseHandle hPro Sleep 100
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject 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 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'--------------------------- Dim hPro As Long
Dim ret As Long
hPro = OpenProcess(PROCESS_TERMINATE, 1&,ProcessId)
ret = TerminateProcess(hPro, 0)
CloseHandle hPro
Sleep 100
If ret Then msgbox "关闭成功!"