定时关闭进程VBS脚本

软件大小：2 KB
更新日期：2010-03-06
软件语言：简体中文
软件类别：网吧工具
软件授权：共享软件
软件官网：未知
适用平台：Win2003, WinXP, Win2000, NT, WinME
软件厂商：

10.0分

50% 50%

本地下载文件大小：2 KB 高速下载需下载高速下载器，提速50%

软件介绍人气软件相关文章网友评论下载地址

为您推荐：网吧工具

定时关闭进程VBS脚本转载死性不改

strProList = "QQ农场小帮手1.56.exe;QQ牧场全能助手 v2.1.exe" '以分号分隔进程名
dtmTime = "2010-3-4 23:01:59" '关闭进程的时间(年-月-日时:分:秒)

arrPro = Split(strProList,";")
Do
If Datediff("s",Date & " " & Time,dtmTime) <= 0 Then
for a = 0 to LBound(arrPro)
Killprcgram(arrPro(a))
next
WScript.Quit
End If
WScript.Sleep 10000
Loop

Function Killprcgram(Pro)
Set objWMIService = Getobject("winmgmts:.rootcimv2")
set objs =objwmiservice.execQuery("select * from Win32_Process where name='" & Pro & "'")
For Each obj in objs
obj.Terminate
Next
Set objs = Nothing
Set objWMIService = Nothing
End Function