定时关闭进程VBS脚本
软件介绍人气软件相关文章网友评论下载地址
为您推荐:网吧工具
定时关闭进程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
下载地址
人气软件
相关文章
网友评论共0条