51Testing软件测试论坛

标题: VBS 监测未响应程序脚本 [打印本页]
作者: wuxue107    时间: 2013-7-13 10:50
标题: VBS 监测未响应程序脚本
之前帮一个玩游戏的朋友写的一个小脚本。检测未相应程序并关闭的

  2. On Error Resume Next
  3. If LCase(Right(WScript.FullName,11)) = "wscript.exe" Then
  4.         CreateObject("Wscript.Shell").Run "CScript "&Chr(34)&WScript.ScriptFullName&Chr(34)
  5.         WScript.quit
  6. End If

  8. Timeout = 60                        '多少秒数关闭不响应程序
  9. Times = 6                                '每多少秒检测一次，时间误差为一个检测周期

  11. '################  白名单   ############## 字母用小写
  12. blist = array("system idle process","svchost.exe","conhost.exe", _
  13. "csrss.exe","explorer.exe","lsass.exe","smss.exe","lsm.exe","spoolsv.exe", _
  14. "system","wininit.exe","winlogon.exe","services.exe","taskhost.exe","dwm.exe")

  16. Set objshell = CreateObject("wscript.shell")
  17. set dc = CreateObject("Scripting.Dictionary")
  18. Do
  19.         set out = objshell.exec("cmd /c tasklist /v|find "" Not Responding """).stdout
  20.         do while Not out.AtEndOfLine
  21.                 m=out.ReadLine
  22.                 name = LCase(Trim(Left(m,23)))
  23.                 pid = Trim(Mid(m,27,8))
  24.                 b=false
  25.                 For Each n In blist
  26.                         If name = n Then b = true:Exit For
  27.                 Next
  28.                
  29.                 If Not b Then
  30.                         'WScript.Echo "At: " &Date & " " & time & ":TASKKILL  /F /PID " & pid
  31.                         If Not dc.Exists("n" & pid) Then
  32.                                 dc.Add "n" & pid,Times
  33.                         Else
  34.                                 dc.Item("n" & pid) = dc.Item("n" & pid)+Times
  35.                         End If
  36.                         If Time-lt>Times+20 Then dc.Item("n" & pid)=Times
  37.                         lt= Time

  39.                         WScript.Echo "At: " & FormatDateTime(Now,2) & " ProcessName:" & Left(m,23) & "  PID:" & Mid(m,27,8) & "  Time out: " & String(6-Len(dc.Item("n" & pid))," ") & dc.Item("n" & pid) & " Second!"
  40.                         If dc.Item("n" & pid)>=Timeout Then
  41.                                 objshell.Run "TASKKILL  /F /PID " & pid ,0
  42.                                 WScript.Echo "At: " & FormatDateTime(Now,2) &  " ProcessName:" & Left(m,23) & "  PID:" & Mid(m,27,8) & "  Execute: " & "TASKKILL  /F /PID " & pid
  43.                         End if
  44.                 End if
  45.         Loop
  46.        
  47.         WScript.Sleep Times * 1000
  48. Loop While true

复制代码




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2