论坛 › 电脑数码 › 教给大家一个好玩的东西，保证你喜欢（恶搞专用）

小小 发表于 2010-12-29 19:16:23

教给大家一个好玩的东西，保证你喜欢（恶搞专用）

本帖最后由 小小 于 2010-12-29 19:20 编辑

         你能控制别人说什么吗，别人不听不愿意？可以强行嘛看我的    先上图



如果你不想关机，就必须输入奥特曼厉害 五个字，
现在，你想到了什么，对了，可以把 奥特曼厉害 改为你想要说的话

方法：
1：复制一下代码
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 300 -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) + "奥特曼厉害吧,哈哈哈啊哈哈" 2：在桌面上 右键 新建文本文档粘贴另存为             文件名后缀为。vbe   保存ok啦




双击一下试试必须输入奥特曼厉害才能停止关机哦   
里面的300是秒，你可以改改看看
如果。。。如果。。你实在不会，或者怕麻烦   直接下载吧我已经打包了




后记：我经常这样恶搞咱长清大学城的同学，哈哈祝你玩的愉快

奶油 发表于 2010-12-29 22:19:33

呵呵，好玩

寂寞羽翼 发表于 2010-12-30 12:40:19

换做别的肯定还好玩:P

幽幽 发表于 2011-1-21 01:28:13

好玩！！真的很好玩就是把我的电脑给关了

晨式、幸福 发表于 2011-8-22 12:38:03

感謝樓主

xjsqoaq505 发表于 2011-8-22 12:38:03

一楼的位置好啊..

霞儿菲菲 发表于 2011-8-22 12:38:03

09-杨欢畅 发表于 2012-3-1 05:43:46

有空一起交流一下

fvlet 发表于 2012-10-6 13:36:11

你喜欢贴子还是发贴子的人

你牙黑 发表于 2012-10-6 13:36:11

水至清则无鱼,人至贱则无敌!

盛歌喆 发表于 2012-10-9 21:16:53

kasmyqvq 发表于 2012-10-9 21:16:53

楼主也是培训师吗

jefhhfs5y 发表于 2012-10-19 20:38:09

呵呵,明白了

等待 发表于 2012-10-19 20:38:09

真好。。。。。。。。。

陆好怕 发表于 2012-10-19 20:38:09

嘿嘿

查看完整版本: 教给大家一个好玩的东西，保证你喜欢（恶搞专用）