vbs脚本指定时间禁止运行指定程序

通过开机启动vbs脚本的办法,来检测系统运行的程序,并停止自己想要停止的程序,

首先要到要知道这个程序在任务管理器的名字,然后定义变量并赋值禁止程序的名字,以禁止英雄联盟为例,

一.紫色字体的脚本全部复制放到一个.vbs结尾的文件里,第一句是定义变量的地方,下边有调用禁止这个程序的使用说明

二.然后dos命令regedit进入注册表

三.找到这里:[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]

四.然后新建字符串值,名称随便,数据值是这个.vbs文件的路径

 

'如果设置的endTime小于startTime,这个脚本就无效了

'脚本修改后,电脑重启才会生效

 

Dim startTime,endTime,sleepTime,systemTime,limitPrograms


limitPrograms = array("Client.exe","LolClient.exe","League of Legends.exe") '限制多少个程序,添加多少个
startTime="0:00:00" '什么时间开始限制程序
endTime="24:00:00" '什么时间结束限制程序
sleepTime = 1000*60 '睡眠时间单位是ms(毫秒),如果设置十分钟:1000*60*10


do while(true)
systemTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now)
If compareTime(systemTime,startTime) And compareTime(endTime,systemTime) Then
set wim=  getobject("winmgmts:\\./root/cimv2")
For Each program In limitPrograms
limitLOL wim,program
next
End If
wscript.sleep sleepTime
Loop
WScript.quit


Function compareTime(first,second)
compareTime = compareTimeByPosition(first,second,0)
End Function


Function compareTimeByPosition(first,second,posi)
Dim firstTime,secondTime
firstTime =Split(first,":")
secondTime =Split(second,":")
Select Case True
Case firstTime(posi)/1>secondTime(posi)/1
compareTimeByPosition = True
Case firstTime(posi)/1=secondTime(posi)/1
compareTimeByPosition= compareTimeByPosition(first,second,posi+1)
Case firstTime(posi)/1<secondTime(posi)/1
compareTimeByPosition = False
Case Else 
compareTimeByPosition = False
End Select
End Function


Sub limitLOL(cusWim,name)
set limitResult = cusWim.execquery("select * from Win32_Process where name='" & name & "'")
killLOL(limitResult)
End Sub


Function killLOL(cusResult)
If cusResult.count > 0 Then
For Each lol In cusResult
lol.Terminate()
next
End If
End Function


'把这所有代码存为一个 .vbs的文件(没用的说明我都注释了).放到任意位置 eg:D:\program files\moline\limitLOL.vbs
'DOS命令输入:regedit,进入注册表HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
'右键新建一个字符串值,名称随便,数据值指向这个文件的路径. eg: 名称:limitLOL,数据:D:\program files\moline\limitLOL.vbs