Board logo

标题: [转贴] VBS脚本瞬间关闭多个系统进程 [打印本页]

作者: VBScript    时间: 2012-4-28 17:39     标题: VBS脚本瞬间关闭多个系统进程

程序利用 vbs 的wmi 、scripting.filesystemobject、shell.application、scripting.dictionary、 wscript.shell的相关功能功能实现将当前进程列表显示在一个文本文件中,通过用户界面的选择,确定需要瞬间中断的进程列表,然后中断之。程序试验环境为 windows xp_sp2,主要针对系统存在多个需要中断进程的情况下,瞬间成批中断进程。
  1. '----------------------------------------------------------------------------------
  2. On Error Resume next
  3. Set fs=CreateObject("scripting.filesystemobject")
  4. Set os=CreateObject("wscript.shell")
  5. Set os0=createobject("shell.application")
  6. Set d0=CreateObject("scripting.dictionary")
  7. Set wmi=GetObject("winmgmts:\\.")
  8. Set pro_s=wmi.instancesof("win32_process")
  9. '-------------创建临时文本文件文件,把当前进程输入该文本文件之中并通过记事本打开之
  10. '---------同时把进程对应序号 和 pid 传递给dictionary(d0)一份
  11. filename=fs.GetTempName
  12. set f1=fs.CreateTextFile(filename,True)
  13. msg="序号"&vbTab&"名称"&vbTab&"PID"&vbTab&"程序文件"&vbtab&now&Chr(10)
  14. f1.Writeline(msg)
  15. n=1
  16. For Each p In pro_s
  17. f1.WriteLine(n&". "&p.name&"    ,    "&p.handle&"    ,    "&p.commandline&Chr(10))
  18. d0.Add ""&n,Trim(p.handle)
  19. n=n+1
  20. Next
  21. f1.Close
  22. os0.MinimizeAll
  23. os.Exec "notepad.exe "&filename
  24. wscript.sleep 500
  25. '--------------等待用户输入欲中断的进程相关的序号列,确定之后关闭并删除临时文本文件
  26. x=InputBox("请根据"&filename&"中的内容"+Chr(10)+ _
  27.      "选择需要同时中断的进程对应序号:"+Chr(10)+ _
  28.      "(序号之间用','间隔 例如:'1,3,5,7,11')","选择")
  29. os.AppActivate filename&" - 记事本"
  30. os.SendKeys "%fx"
  31. WScript.Sleep 500
  32. fs.DeleteFile filename
  33. '--------如果用户取消了操作,就退出程序
  34. If x="" then wscript.quit
  35. '--------把用户输入的序号列中相关的序号传递给一个数组 xs
  36. xs=Split(x,",",-1,1)
  37. '-----------对用户输入的序号列进行校对,将重复序号标记为 -2,计算实际序号个数
  38. For i=0 to ubound(xs) '---利用双重循环将重复输入的内容保留一份,其他的标记为-1
  39. for n=0 to ubound(xs)
  40.     if n=i then
  41.      n=n+1
  42.      if n>ubound(xs) then exit for
  43.     end if
  44.     if Trim(xs(n))=Trim(xs(i)) Or _
  45.      Trim(xs(n))="" Then
  46.      xs(n)="-1"
  47.     end If
  48. next
  49. Next
  50. w=0 '----把不真实可用的序号剔除并计算出其个数
  51. For i=0 To UBound(xs)
  52. If d0.Exists(xs(i))=False Then
  53.      xs(i)="-2"
  54.      w=w+1
  55. End If
  56. Next
  57. w=(UBound(xs)+1-w)    '---得出可用的序号个数
  58. '------------如果序列中没有输入任何序号就退出程序
  59. If w=0 Then
  60. MsgBox "需要中断的进程列表为空!"
  61. WScript.Quit
  62. End If
  63. '-------------根据用户输入信息中断相应进程
  64. m=0
  65. For i=0 To UBound(xs)
  66. If xs(i) <> "-2" then '---只有真实可用的序号才参与循环
  67. For Each p In pro_s
  68.     If Trim(p.handle)=trim(d0(xs(i))) Then '---如果进程pid号码正是需要中断的就尝试中断
  69.      p_name=p.name
  70.      pd=p.terminate()
  71.      If pd=0 Then '---判断中断进程的尝试是否成功
  72.       msg=p_name&" 进程中断成功!"
  73.       m=m+1
  74.      Else
  75.       msg=p_name&" 进程中断失败!"
  76.      End If
  77.      os.popup msg,1,"通知",64+0
  78.     End If
  79. Next
  80. end if
  81. Next
  82. os.popup    w&"个目标进程,已经中断了"&m&"个" ,5,"通知",64+0
  83. WScript.quit
复制代码


http://foxhack.blog.51cto.com/96963/32852




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2