舍友频繁用我电脑打游戏，我要不要改密码? 第1页

9.29更新

发现了一个更简洁兼容性更好的代码

原回答代码出现报错的小伙伴可以尝试

—————————————————————————

Dim Wsh

Set Wsh = WScript.CreateObject("WScript.Shell")

'下行是设置延时清除时间 5000等于5秒

WScript.Sleep(5000)

'下行清除进程

Wsh.Run "taskkill /f /im QQ.exe",0

Set Wsh=NoThing

WScript.quit

—————————————————————————

以下为原回答

—————————————————————————

不用改密码

可以使用vbs限制室友玩你的电脑

用TXT写以下代码另存为VBS格式，代码如下：

do

set bag=getobject("winmgmts:\. ootcimv2")

set pipe=bag.execquery("select * from win32_process where name=*QQ.exe*")

for each i in pipe

i.terminate()

next

wscript.sleep 1000

loop

代码的意思是：系统每1000毫秒检测一次是否运行了QQ.exe这样一个程序，如果运行了，他会自动后台关闭程序，但是对别的运行软件是没有任何影响的。1000毫秒和QQ.exe可以改成你需要的任何时间（比如2分钟检查一次就填写120000，6分钟的时候就要填写360000）和任何你需要结束的进程（比如LOL.exe）你想禁啥禁啥。这样，从别人看来的效果就是“英雄联盟怎么老是在我六级时闪退啊啊啊啊！重新进还是六级闪退，破电脑，不玩了”用什么软件的都是6分钟自动关闭（而我在一旁默默观察着这一切，窃笑╮(╯▽╰)╭）~6分钟的时候就要填写（360000）如果是系统是64位的就把Win32改成Win64

把建立的VBS存放在这个文件夹

C:ProgramDataMicrosoftWindowsStart MenuProgramsStartUp

开机自动启妥妥的有木有！

如果自己要玩，提前进入资源管理器找到VBS进程结束运行就好！