vbe整人代码详解

on error resume next
rem 遇到错误忽略继续执行
dim WSHshellA
rem dim 是定义的意思，wshshella是个变量
set WSHshellA = wscript.createobject("wscript.shell")
rem wscript 是VB中的一个对象，createobject它的方法。上句是创建一个wscript.shell对象，赋值给wshshella，用面向对象的术语解释就是实例化一个对象wscript.shell，通过这个对象在widows环境下进行操作，如访问文件夹等。这句可理解为:让wshshell能在windows环境下执行。

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""快说“我是猪”，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true
rem wshshella.run的意思是创建线程：运行cmd这个程序，并执行shutdown命令，-r：关闭并重启计算机，-t：设置关闭延时单位（秒），60等于60秒。在这里说明一下：要换成注销的话吧-t改为-l,但是注销时没有延时的，是立即执行的。
dim a
rem dim 是定义的意思，a是个变量
do while(a <> "我是猪")
rem 如果变量a不等于"我是猪"
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)
rem 显示一个能接受用户输入的对话框,并返回用户在对话框中输入的信息，返回值赋予a
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，chr(13)表示回车
loop
rem 返回，跟do while是一个语句,不能单独用
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值
dim WSHshell
rem dim是定义的意思 wshshell是个变量
set WSHshell = wscript.createobject("wscript.shell")
rem wscript 是VB中的一个对象，createobject它的方法。上句是创建一个wscript.shell对象，赋值给wshshell，用面向对象的术语解释就是实例化一个对象wscript.shell，通过这个对象在widows环境下进行操作，如访问文件夹等。这句可理解为:让wshshell能在windows环境下执行。
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
rem wshshell.run的意思是创建线程：运行cmd这个程序，并执行shutdown命令，-a：关闭系统关机
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"
rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令
msgbox chr(13) + chr(13) + chr(13) + "乖孩子真听话啊"
rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "下次叔叔买糖给你吃"
rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "要吃什么糖啊"
rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "什么，大白兔？"
rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "不行，不行，大白兔吃了长石头啊"
rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "要不叔叔给你讲个故事"
rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "从前有个山"
rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "山里有个庙"
rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚"
rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "老和尚在给小和尚讲故事"
rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "讲什么故事呢"
rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "故事是这样的"
rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "从前有个山"
rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "山里有个庙"
rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚"
rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "什么，不听了"
rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "别哭别哭，叔叔给你买糖！"
rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

on error resume next rem 遇到错误忽略继续执行dim WSHshellA rem dim 是定义的意思，wshshella是个变量set WSHshellA = wscript.createobject("wscript.shell") rem wscript 是VB中的一个对象，createobject它的方法。上句是创建一个wscript.shell对象，赋值给wshshella，用面向对象的术语解释就是实例化一个对象wscript.shell，通过这个对象在widows环境下进行操作，如访问文件夹等。这句可理解为:让wshshell能在windows环境下执行。WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""快说“我是猪”，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true rem wshshella.run的意思是创建线程：运行cmd这个程序，并执行shutdown命令，-r：关闭并重启计算机，-t：设置关闭延时单位（秒），60等于60秒。在这里说明一下：要换成注销的话吧-t改为-l,但是注销时没有延时的，是立即执行的。dim a rem dim 是定义的意思，a是个变量do while(a <> "我是猪") rem 如果变量a不等于"我是猪"a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000) rem 显示一个能接受用户输入的对话框,并返回用户在对话框中输入的信息，返回值赋予amsgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，chr(13)表示回车loop rem 返回，跟do while是一个语句,不能单独用msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值dim WSHshell rem dim是定义的意思 wshshell是个变量set WSHshell = wscript.createobject("wscript.shell") rem wscript 是VB中的一个对象，createobject它的方法。上句是创建一个wscript.shell对象，赋值给wshshell，用面向对象的术语解释就是实例化一个对象wscript.shell，通过这个对象在widows环境下进行操作，如访问文件夹等。这句可理解为:让wshshell能在windows环境下执行。WSHshell.run "cmd.exe /c shutdown -a",0 ,true rem wshshell.run的意思是创建线程：运行cmd这个程序，并执行shutdown命令，-a：关闭系统关机msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾" rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "乖孩子真听话啊" rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "下次叔叔买糖给你吃" rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "要吃什么糖啊" rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "什么，大白兔？" rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "不行，不行，大白兔吃了长石头啊" rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "要不叔叔给你讲个故事" rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "从前有个山" rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "山里有个庙"rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚"rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "老和尚在给小和尚讲故事"rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "讲什么故事呢" rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "故事是这样的"rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "从前有个山" rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "山里有个庙"rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚"rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "什么，不听了"rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "别哭别哭，叔叔给你买糖！"rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

呵呵，我也弄过这个，而且根本不回答问题，直接关机，自动加入开机启动项。要代码HI我。