新建一个记事本,复制进去代码。保存为.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会让我们不能及时发现问题,程序哗哗的跑,出了错误,问题后,哗一下跑下一句去了,调试都没的机会。而要想发现问题就很麻烦,怕的是程序都交出去了才别用户发现,太影响形象了。
当然,会出现这样的警告! 但是,双击就启动不了啦。 (那个添加信任就好啦!)