vb如何检测某一个进程是否存在 存在的花如何结束

Question

如题

Answer 1

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='racer.exe' ")
For Each objProcess in colProcessList
objProcess.Terminate()
Next

Answer 2

http://blog.csdn.net/Modest/archive/2006/10/11/1330505.aspx

Answer 3

    '-- 判断当前程序是否已运行
    If App.PrevInstance = True Then
        MsgBox "系统已经在运行!如果在任务栏无法看到，请在任务管理器里强行结束，然后再次运行。", vbInformation, "提示"
        End
    End If

Answer 4

我也来个方案,与老魏一样是API版:http://www.m5home.com/bbs/dispbbs.asp?boardid=28&Id=745&page=2'查找进程 
if FindProcess("qq.exe")=true then 
      msgbox "QQ进程存在!" 
end if  '结束进程 CloseProcess "qq.exe" 
不一定能结束与查找到所有进程,因为有些进程有保护.

Answer 5

可以考虑
shell ntsd -c q -p pid,vbhide这样杀进程比较有效,只有几个杀不掉

Answer 6

现在可以了  找了个结束进程的方法
Shell "taskkill.exe /im PROCESS.exe /f", vbHide