话说在学习vbs的过程中碰到一个自认为比较好玩的代码,作用很简单,就是在vbs运行的时候不让别人打开你指定的程序,额,我知道破解这个很简单只需要结束进程就OK,但看在我很菜的份上就不要嘲笑我了吧T^T
代码也很简单:
on error resume next
do
set alllist=getobject("winmgmts:\\.\root\cimv2")
set destlist=alllist.execquery("select * from win_32process where name='QQ.exe'")
for each i in destlist
i.terminate()
next
wscript.sleep 200
loop
运行了过后没有错误提示,但是问题就是运行了和没运行是一个样。没有实现功能,不知道哪里出了问题。
代码也很简单:
on error resume next
do
set alllist=getobject("winmgmts:\\.\root\cimv2")
set destlist=alllist.execquery("select * from win_32process where name='QQ.exe'")
for each i in destlist
i.terminate()
next
wscript.sleep 200
loop
运行了过后没有错误提示,但是问题就是运行了和没运行是一个样。没有实现功能,不知道哪里出了问题。