Saber 酱的抱枕

Do while(1)
strComputer = "."
set objWMIService = getobject("winmgmts:\\.\root\CIMV2")
Set colProcessList1 = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'LOL.exe'")
For Each objProcess1 in colProcessList1
objProcess1.Terminate()
Next
Wscript.Sleep(1000)
Loop

在知乎上看到的。如果你想“整人”，或者限制别人在你电脑上玩游戏什么的，你可以使用这个vbs文件试试。

这个vbs运行后，将查询指定的程序是否在运行。如果在运行就结束进程，该软件看起来就像闪退了一样。之后每过指定的时间（以毫秒为单位），它都会重复执行以上步骤。

说明与注意事项：
1.支持中文名的进程；
2.运行之后到任务管理器中看是否有"wscript.exe"的进程，每当你运行一次这个vbs，就会产生一个wscript.exe进程。运行一次就行了，不要运行之后没看到有什么反应，就以为运行失败了。
3.这个脚本会一直运行着，如果要停止脚本，结束对应的wscript.exe进程就可以了。

如果你想限制多个程序，可以使用小w改进的代码：

Do while(1)
strComputer = "."
set objWMIService = getobject("winmgmts:\\.\root\CIMV2")
Set colProcessList1 = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'GPU-Z v0.8.3.exe'")
For Each objProcess1 in colProcessList1
objProcess1.Terminate()
Next
Set colProcessList2 = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'GifCam_CHS.exe'")
For Each objProcess1 in colProcessList2
objProcess1.Terminate()
Next
Wscript.Sleep(5000)
Loop

把查询、循环部分（4-7行）复制，修改程序名和colProcessList变量的编号就行。

使用vbs关闭指定的应用程序