求一个vbs高级表白代码
on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""三分钟内决定是否嫁给我，否则会被关机......"" ",0 ,truedim ado while (a <> "我愿意")a = inputbox ("你愿意嫁给我么","爱的表白","",8000...