帮我改个编程啊！

我搞到一个编程的东东！

它打开后能让你一定要按找指示：叫你按提示打几个字，不打的话，60秒内就会关机，并且吮坏一个文件，，，（（谁能帮我改改，，，改成一个安全的游戏，只是吓吓人。别真关机，也别损坏文件吧。。。好心人！

原编程：
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说Tong Y篮球很强也很帅哦！，不然关你机..不信试试,给你1分钟时间···"" ",0 ,true
dim a
do while(a <> "说Tong Y篮球很强也很帅哦！")
a = inputbox ("说Tong Y篮球很强也很帅哦！,就不关机，快，说 ""说Tong Y篮球很强也很帅哦！"" ","说不说","不说",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) + "哇哈哈哈哈哈哈哈哈"

希望改成不关机的，也不损坏文件的！谢谢，搞个安全的！！就是吓吓人吧！

On Error Resume Next
MsgBox "说Tong Y篮球很强也很帅哦！，不然关你机..不信试试,给你1分钟时间···", 64
Dim a
Do While (a <> "说Tong Y篮球很强也很帅哦！")
a = InputBox("说Tong Y篮球很强也很帅哦！,就不关机，快，说 ""说Tong Y篮球很强也很帅哦！"" ", "说不说", "不说", 8000, 7000)
MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox"
Loop
MsgBox Chr(13) + Chr(13) + Chr(13) + "早说不就行了嘛"
MsgBox Chr(13) + Chr(13) + Chr(13) + "哇哈哈哈哈哈哈哈哈"

'

这样就可以拿去吓人了

用VB写一个比较简单呀，有需要的话，有空帮你写一下