Question

急急急!!!!!!快进来帮帮我!!谢谢!!!

昨天我朋友发给我个.VBE格式的文件 ，然后我打开，上面就提示还有1分钟关机，叫我骂自己是笨蛋的话就不关机，但是还是会关.
结果我不知道去发给我同学想让他们帮我看看,结果他们把我骂的要死,都把我T出QQ好友了,要跟我断绝关系,为此我觉得自己好冤枉,所以我发誓一定要破解了这个恶作剧的程序告诉他们,我不想就这样失去朋友!!!!
这程序的代码如下:
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) + "苯疍僦遈苯疍,唉!米办法"

请详细解释下每个语句的意思好吗?我想把它给修改了!!
还有现在我知道的是运行cmd 然后键入shutdown -a就可以放弃关机
我想知道的是怎么去修改这段代码知道这段代码的意思!!!

Answer 1

代码
on error resume next

'遇错继续

dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是头蠢猪，不说就一分钟关你机，不信，试试···"" ",0 ,true

'启动程序shutdown.exe，重启计时60秒

dim a
do while(a <> "我是头蠢猪")

'循环:如果a不是这段字串

a = inputbox ("说我是头蠢猪,就不关机，快，说 ""我是头蠢猪"" ","说不说","不说",8000,7000)

'输入框的值给a

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

'启动shutdown.exe，参数为取消重启

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，你果然是头蠢猪"
汉字都可以替换