[贴士] 结束特定进程

SzAngel

在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--Sz

Function RevisePriority(ByVal p)
          Dim objWMIService, colProcesses, prt
          set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
          Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'Client.exe'")
          For Each objProcess in colProcesses
          objProcess.Terminate()
End Function

jneyxwry

Windows自带工具 taskkill

将以下命令在运行中运行就可以将QQ.exe进程关闭

taskkill /f /im QQ.exe



看过管理员的贴子这么多，怎么都感觉 管理员都想把 内容写的复杂呢！ 是不是不想让别人看懂？

SzAngel

因为代码都是在按键精灵中运行的,
所以和实际最简单的方式不同

就比如 taskkill /f /im QQ.exe
我在按键精灵内必须写一个VBS运行外部程序才可能达到这样的目的,
还不如直接使用VBS自己的结束进程代码

jneyxwry

原来如此。