如何做vbe代码

如何做vbe的代码 我想学着做一下这个编程 顺便弄个整人的vbe代码在同学面前炫一下= =

其实很简单的

创建一个文本文档(.txt结尾的）在把下面代码复制上去：
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 120 -c ""你是不是很笨???"" ",0 ,true
dim a
do while(a <> "我很笨")
a = inputbox ("你是不是很笨?? ""真的很笨吗? 如果是的 请在下面输入：我很笨 只有120秒时间哦!~"" ","你是不是真的很笨?? ","不笨?",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) + "嘻嘻，被骗了吧，^_^"
然后把后面的后缀名该为.vbe 自己执行下看看..