谁帮忙解读下这些代码~~~!

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
dim i
dim j
i=0
do while(a <> "我是个大大大傻瓜")
a = inputbox ("说我是个大大大傻瓜,就不关机，快撒，说 ""我是个大大大傻瓜""","说不说","不说",8000,7000)
if a="死了都不说" then
i=i+1
j=1
else
j=0
end if
if i<3 AND i<>0 AND j=1 then
msgbox chr(13) + chr(13) + chr(13) + " 还有"& 3-i &"次，加油啊~ "
else
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
end if
if i=3 then
exit do
end if
loop
if i=3 then
msgbox chr(13) + chr(13) + chr(13) + "I 服了 U!"
else msgbox chr(13) + chr(13) + chr(13) + "早说不就行了嘛~"

玩你的小程序，
你必须在3次之内说自己“我是个大大大傻瓜”，不回答的话他就会使用WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c 进行在60秒关机的任务。
说了以后他还说“哈哈哈哈，你很好玩噢”等。。。

帮忙解读蓝屏代码。 谁帮忙解读下心电图报告单中写的这些个术语是什么意思吧 帮忙解读一段asp代码 解读下ASP代码,高分 谁能帮我解读一下这些代码，急用！ 网页代码高手帮忙解读一下 帮忙解读一段JavaScript代码，AJAX 谁能帮忙解读下朋友的分类啊~~~ 请问有谁可以看懂这些代码，是不是有错的啊？帮忙解释下 谁能解读以下这段代码?