麻烦谁帮我修改一下这个VBE

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""愚人病毒倾入电脑，马上按提示操作(速度输入“我是蠢猪”不然电脑将侵入电脑/SOS· "" ",0 ,truedim a
do while(a <> "我是蠢猪")
a = inputbox ("快说啊真关机的哦")
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) + "由于病毒已经倾入CPU。电脑将无法运作，"
msgbox chr(13) + chr(13) + chr(13) + "正自行关机，请点确认"
msgbox chr(13) + chr(13) + chr(13) + "请稍后"
msgbox chr(13) + chr(13) + chr(13) + "机器已经还原，点确定将恢复到出厂，电脑的内容将全部清楚"
msgbox chr(13) + chr(13) + chr(13) + "电脑正在初始化"请点确定确认！"
msgbox chr(13) + chr(13) + chr(13) + "猪！愚人节快乐"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHs

高手麻烦帮我修改一下，谢谢！ 有谁可以帮我把这个图片修改一下？ 请帮我修改一下这个程序 麻烦大家帮我翻译一下这个 麻烦帮我翻译一下这个句子 麻烦帮我修改一下这篇英语周记！ 谁帮我修改一下 麻烦大家帮我修改修改谢谢 请大家帮我看看这个摘要的英文翻译写的怎么样。有不好的地方麻烦帮我修改一下。谢谢 请赶紧帮我修改一下这个报告,谢谢,