禁止程序运行的vbs脚本代码

编程开发 2663浏览 8评论

现在网民都很在意自己的隐私,而我们经常碰到别人玩自己的电脑而又不希望别人随便运行自己电脑上的一些软件,虽然使用组策略可以比较方便地禁止某些程序的运行,但是很多菜鸟不会设置,下面介绍个用能禁止程序运行的VBS脚本,这是我最近学编程翻到的。

用记事本输入下面的内容然后保存为.vbs文件,双击运行就可以了。

dim bag,pipe,honker,good
do
good="."
set bag=getobject("winmgmts:\\"&good&"\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='QQ.exe'")
for each i in pipe
i.terminate()
next
wscript.sleep 1
loop

vbs也能自动申请QQ

编程开发 1372浏览 9评论

自己写了一个简单的自动申请QQ号码VBS脚本,高手勿笑。原理很简单,就是模拟了我们打开QQ号码申请页面,并填写资料,但是验证码需自己填写。符号'后面为注释,看懂且看,看不懂的飘过。

Set a=WScript.CreateObject("WScript.shell")        '给变量a赋值,定义了个对象句柄
a.run "http://newreg.qq.com/"                                '打开QQ号码申请页面 
WScript.Sleep 3000              '延时3000毫秒即3秒,用来等待页面载入 ,可根据个人打开页面速度而定
a.SendKeys "xxzh"                             '这里填写昵称,不能为中文,否则会出错,因为是模拟键盘的
a.SendKeys "{TAB}"                       '模拟TAB键即跳格,以下相同
WScript.Sleep 200                        '延时200毫秒,不必修改,以下相同
a.SendKeys "{DOWN}"                '模拟方向键↓,用来选择生日,以下相同
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "{DOWN}" 
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "{DOWN}" 
WScript.Sleep 200 
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "xingxingzhihuo"                    '这里是密码 
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "xingxingzhihuo"                  '再次输入密码 
WScript.Sleep 200 
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "{TAB}"