用CreateToolhelp32SnapShot创建一个SnapShot句柄
用Process32First来获取第一个进程
判断进程的szExeFile是不是你所指定的进程名
用TerminateProcess关闭进程 注意 不能关闭比自己级别高的进程 修改进程级别用AdjustTokenPrivileges
用Process32Next查看下一个进程循环.
就是这样就可以了 怎么样解决了没有
楼主留言：
我已经会了 是这个
Private Sub Command2_Click()
procname = "DNF.exe"
strcomputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList = objWMIServi
