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