发布网友 发布时间:2022-05-18 23:50
共3个回答
热心网友 时间:2023-11-22 22:20
on error resume next热心网友 时间:2023-11-22 22:20
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 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令热心网友 时间:2023-11-22 22:21
呵呵,我也弄过这个,而且根本不回答问题,直接关机,自动加入开机启动项。要代码HI我。