在特定时间段内禁止掉特定的程序（仅Windows）

您所在的位置：网站首页 › win10怎样限制软件使用 › 在特定时间段内禁止掉特定的程序（仅Windows）

在特定时间段内禁止掉特定的程序（仅Windows）

2024-01-08 11:01| 来源: 网络整理| 查看: 265

之前舍友老王老打游戏老影响我学习，于是给他电脑植入了一vbs脚本，效果蛮不错的，就是事后容易被打。今天有个家长想要这东西，那我就在这贴出来吧。

目录制作禁止程序的脚本制作植入脚本使用方法解除方法

制作禁止程序的脚本

新建一个 .vbs文件，可以起名为limitProgram.vbs。然后复制下面的代码粘贴进去。

只需修改标有注释的代码就行，其他的直接照着复制即可。

Dim startTime,endTime,sleepTime,systemTime,limitPrograms limitPrograms = array("DNF.exe", "lol.launcher_tencent.exe") '限制什么程序，就加入什么程序的进程名 '第一个定时，上午 startTime1="07:00:00" '什么时间开始限制这些程序 endTime1="11:00:00" '什么时间结束限制这些程序 '第二个定时，下午 startTime2="14:00:00" '什么时间开始限制这些程序 endTime2="17:00:00" '什么时间结束限制这些程序 '第三个定时，晚上 startTime3="19:00:00" '什么时间开始限制这些程序 endTime3="22:00:00" '什么时间结束限制这些程序 sleepTime = 1000*60*1 '每隔多长时间检测一次，睡眠时间单位是ms(毫秒)，这里是一分钟。如果设置十分钟:1000*60*10 do while(true) systemTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now) If trueTime Then set wim= getobject("winmgmts:\\./root/cimv2") For Each program In limitPrograms limitProgram wim,program next End If wscript.sleep sleepTime Loop WScript.quit Function trueTime() trueTime = compareTime(systemTime,startTime1) And compareTime(endTime1,systemTime) or compareTime(systemTime,startTime2) And compareTime(endTime2,systemTime) or compareTime(systemTime,startTime3) And compareTime(endTime3,systemTime) End Function 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 0 Then For Each pro In cusResult pro.Terminate() next End If End Function

然后把这个文件复制到电脑的启动项文件夹（C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp）里，并双击执行。

至此，就全部完成了，以后此电脑用户在特定的时间内是绝对打不开这些相关软件和游戏的，除非重装电脑。

如果想解除此脚本程序，可看下面的进阶操作。

下面是进阶操作，可学习，可忽视。

制作植入脚本

加入启动项并立刻执行limitProgrames.vbs：

::更改当前目录为批处理本身的目录 cd /d %~dp0 ::获取管理员运行权限 %1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&exit ::将脚本复制到启动项文件夹中 copy "%cd%\limitProgrames.vbs" "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\limitProgrames.vbs" start limitProgrames.vbs

将上述代码存入文件startup.bat中即可。

当然也有其他植入方法： win+R输入：regedit,进入注册表HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run 右键新建一个字符串值,名称随便,数据值指向这个文件的路径. eg: 名称:limitProgram,数据:D:\program files\moline\limitProgram.vbs

使用方法

将上面两个文件存入同一个文件夹中并拷入U盘内，然后就是物理植入了，找到目标PC，趁没人插入U盘，打开U盘双击文件startup.bat，然后拔出U盘开溜即可。

解除方法

删除并关闭启动项中的脚本：

cd /d %~dp0 %1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&exit del /a /f /q "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\limitProgrames.vbs" taskkill /im wscript.exe /f

将上述代码存入shutdown.bat，双击即可。

【本文地址】

在特定时间段内禁止掉特定的程序（仅Windows）

在特定时间段内禁止掉特定的程序（仅Windows）

今日新闻

推荐新闻