首页 > Windows开发 > 详细

Win 7 下 杀进程

时间:2014-10-04 03:16:06      阅读:345      评论:0      收藏:0      [点我收藏+]

Call KillProcess("Skype.exe,xmptipwnd.1.0.0.79.exe,KKV.exe,1905Server.exe,xmp.exe,QvodWebService.exe")
 
Function KillProcess(strProcessToKill)
 
 processArr = split(strProcessToKill,",")
 
 Const strComputer = "."
 Dim objWMIService, colProcessList
 Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
 ‘processArr
 dim cond
 if ubound(processArr) = 0 then
 
 Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name =‘" & strProcessToKill & "‘")
 else
 for j = 0 to ubound(processArr)
  if j = 0 then
   cond = "Name = ‘" & processArr(j) & "‘ "
  else
   cond = cond & " or Name = ‘" & processArr(j) & "‘ "
  end if
  
  Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE " & cond )
 next
end if
 
 For Each objProcess in colProcessList
 objProcess.Terminate()
 Next
 
End Function



本文出自 “杭州丹尼” 博客,请务必保留此出处http://dannyhz.blog.51cto.com/2174974/1560554

Win 7 下 杀进程

原文:http://dannyhz.blog.51cto.com/2174974/1560554

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!