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

小小

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

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

方法：
1：复制一下代码

1. on error resume next
   
2. dim WSHshellA
   
3. set WSHshellA = wscript.createobject("wscript.shell")
   
4. WSHshellA.run "cmd.exe /c shutdown -r -t 300 -c ""说'奥特曼厉害'，不说马上关你机，不信，试试···"" ",0 ,true
   
5. dim a
   
6. do while(a <> "奥特曼厉害")
   
7. a = inputbox ("说 奥特曼厉害 ,要不关你机，快说 ""奥特曼厉害"" ","说不说呢?","不说",8000,7000)
   
8. msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
   
9. loop
   
10. msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
    
11. dim WSHshell
    
12. set WSHshell = wscript.createobject("wscript.shell")
    
13. WSHshell.run "cmd.exe /c shutdown -a",0 ,true
    
14. msgbox chr(13) + chr(13) + chr(13) + "奥特曼厉害吧,哈哈哈啊哈哈"

复制代码

2：在桌面上 右键 新建文本文档  粘贴  另存为             文件名后缀为  。vbe   保存  ok啦




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




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

奶油

呵呵，好玩

寂寞羽翼

换做别的肯定还好玩

幽幽

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

晨式、幸福

感謝樓主  

xjsqoaq505

一楼的位置好啊..  

09-杨欢畅

有空一起交流一下  

fvlet

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

你牙黑

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

kasmyqvq

楼主也是培训师吗  

jefhhfs5y

呵呵,明白了  

等待

真好。。。。。。。。。  

陆好怕

嘿嘿