vb高手请进，关于关闭进程问题

pid 好象a=shell("") a返回的就是[这个要你自己去验证下，我也不清楚]

----------------------------
Dim objWMIService As Object,colProcesslist As Object,objProcess As Object
Set objWMIService = CreateObject("winmgmts:{impersonationLevel=Impersonate}!root\cimv2")
Set colProcesslist = objWMIService.ExecQuery("select * from win32_process where name='进程.exe'")

把进程.exe 换成你要结束的进程名 。不要用于干坏事哦~~ ^_^

Option Explicit
Dim Recn As Long
'======================用于查找进程和终止进程的API函数常数定义================ =====
Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Proces