新建一个记事本，复制进去代码。保存为.vbs格式。双击运行即可！
源码：
on error resume next
dim bag,pipe,honker,good
do
good="."
set bag=getobject(“winmgmts:\”&good&"\root\cimv2")
set pipe=bag.execquery(“select * from win32_process where name=‘要禁止的程序名字’”)
for each i in pipe
i.terminate()
next
wscript.sleep 5
loop
为了防止出现各种错误，在过程里面放上On Error Resume Next。
我不认为这个是不好的习惯，但是。。。。但是有时候On Error Resume Next会让我们不能及时发现问题，程序哗哗的跑，出了错误，问题后，哗一下跑下一句去了，调试都没的机会。而要想发现问题就很麻烦，怕的是程序都交出去了才别用户发现，太影响形象了。
当然，会出现这样的警告！
但是，双击就启动不了啦。
（那个添加信任就好啦！）