首先我们打开一个文本文档




把这些复制进去


on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.EⅩE /c shutdown -r -t 60 -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.EⅩE /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~"   



之后保存之后再把后缀改掉,把txt改成vbs



下面是我做好的程序，要回答“我是猪”才能关掉程序，嘻嘻

嘻嘻，用来整蛊别人。
要回答了问题才会关掉，要不然只能关机了。
嘻嘻嘻嘻

貌似文本文档后缀是TXT

是啊，文本文档后缀是TXT。
改成vbs看看

改了没用，直接提示了！

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.EⅩE /c shutdown -r -t 60 -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.EⅩE /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~"   


代码写错了

后缀是什么啊

貌似不行哦，你QQ多少？
我加你QQ,向你请教。

                  刷一刀
     

不关机貌似。

用我的这个效果跟好  按住Shift+Esc  在上面的框框输入在你上的网吧咯的随便一个机号   

描述:未命名.jpg

网吧随便关人家机]

不懂，怎么做弄别人啊

刚保存，就被瑞星杀掉了，有毒

大家看我的， 改造了一下， O(∩_∩)O~呵呵

我来刷一刀，这个软件前年就会了

恩不错    

轱地于于于三二城亚太地区本城。本

不会啊

bdoabdoa