分享

vbs之四:限制程序运行

 uslimi 2009-12-07
vbs之四:限制程序运行!
2009-10-11 21:51

这个vbs 脚本能实现限制自己不想别人运行的程序!

代码如下:

On Error Resume Next    '忽略所有的错误
Dim bag,pipe,honker,good
Do
good="."     '定义为本地计算机
set bag=getobject("winmgmts:\\"& good &"\root\cimv2")     'l连接到cimv2命名空间
set pipe=bag.execquery("select * from win32_process where   name='qqgame.exe' orname='winmine.exe'")    '看,这是我的计算机上不允许运行的程序,qq、qqgame、winmine(扫雷)        如果你还有其他的程序不允许运行,很简单,在其中添加 or name='你不允许运行的程序名'
for each i in pipe
i.terminate()              '此行其实可有可无,有这行只是为了免去怀疑
MsgBox "发现盗版系统,现已进行功能限制!" & vbcrlf & "请使用正版软件!",48,"微软提示"
next
WScript.sleep 300   '每300毫秒检测一次
loop

 

运行这个vbs后,一运行"扫雷"后就会弹出提示框,并把扫雷程序关闭

看到没有这个对话框的提示内容就是上面的,至于要显示自己个性的提示就自己去修改内容啦!

至于要关闭限制的话就要用到了 前面vbsQQ狂发中的停止.bat!

其代码如下:

@echo off
taskkill /f /im WScript.exe
taskkill /f /im wmiprvse.exe

把文本的后缀名改成bat!

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多