第二步：打开文本文档，复制一下代码进去：
on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""回答 你喜不喜欢我，不说就一分钟关你机，不信，试试···"" ",0 ,truedim ado while(a <> "我爱你")a = inputbox ("说我爱你,就不关机，速度，说 ""我爱你"" ","说不说","不说",8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "哈哈我也爱你"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈"

第三步：保存文档关闭，把后缀名.txt改成.vbe！

好啦，大功告成，你可以自己在电脑上试试看，效果是双击文件，弹出一个框如果不输入“我爱你”则会一分钟后关机

介个是以前玩过的，刚刚突然想起来了，兴致一来就发了个贴

坑爹的换行啊！ 是复制这个代码，2L的求吧主抽调
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /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.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈"


好复杂的说。。。

膜拜

仔细看了一遍。。。。发现这代码绝对不是JAVA 于是我不懂了

只要能泡妹纸就好！

最近在学java的鹿过

看不懂的哭了

我是前辈

虽 不知 但 觉历

前面就不删啦，保证一下帖子完整性～　话说完全不懂编程的大苦逼路过