开启左侧

QQ整人,请慎用

[复制链接]
发表于 2012-2-9 13:37:56 | 显示全部楼层 |阅读模式
把上面的文字复制到记事本内。另存为名字随便你起记住后面的一定要加 .vbe
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,一切皆有可能~"
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
发表于 2012-2-9 13:37:58 | 显示全部楼层
强( ^_^ )不错嘛
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
发表于 2012-2-9 13:37:59 | 显示全部楼层
能别盗贴吗?
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
 楼主| 发表于 2012-2-9 13:38:00 | 显示全部楼层
能别盗贴吗?

什么意思了?
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
发表于 2012-2-9 13:38:01 | 显示全部楼层
这个不知道是在我刚出道的时候就知道了吧,好像是07年的时候吧
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
 楼主| 发表于 2012-2-9 13:38:03 | 显示全部楼层
victory.gif 顶早看过了
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
发表于 2012-2-9 13:38:05 | 显示全部楼层
没事整人不错呀
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
 楼主| 发表于 2012-2-9 13:38:06 | 显示全部楼层
原来玩过.效果还不错哈哈
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
发表于 2012-2-9 13:38:08 | 显示全部楼层
N年的作品了···········
还是顶你下······
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
发表于 2012-2-9 13:38:11 | 显示全部楼层
怎么整啊?LZ说下
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
您需要登录后才可以回帖 登录 | 会员注册

本版积分规则

 
QQ在线咨询
售前咨询热线
0532-88371356
售后服务微信
pingduwangzhan
快速回复 返回顶部 返回列表