vbs之四:限制程序运行
来源:百度文库 编辑:神马文学网 时间:2024/04/26 04:00:13
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!
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!
vbs之四:限制程序运行
怎样限制程序运行
系统本身的注册表来限制特定程序运行
运行程序
程序在运行——《传道篇》之五十三
VB开机运行程序
程序运行计时技巧
vbs之二:自制英语读取器!
四-----理气解郁:让身体之气运行顺畅
C 程序开发经典实例之四 - 软件屋
成都公示“权力运行程序”
让小黑全面进入无线N时代 之四 6系机型全家福 解除1802 1804限制
进程、窗口句柄、文件属性、程序运行状态
进程、窗口句柄、文件属性、程序运行状态
办公室主要行政业务运行程序
在Windows XP中运行DOS程序
巧用ws2_32.dll文件,禁止程序运行!
防止程序重复运行(互斥方式)
五子棋程序(运行环境:C++builder)
Vb.net 取程序运行的绝对路径
人民日报:将权力运行纳入程序轨道
人民日报:将权力运行纳入程序轨道
进程、窗口句柄、文件属性、程序运行状态
进程、窗口句柄、文件属性、程序运行状态