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,7000)if ( a <> \"我愿意\" ) thenmsgbox \"不愿意么?再考虑一下哦\"end ifloopdim WSHshellset WSHshell = wscript.createobject(\"wscript.shell\")WSHshell.run \"cmd.exe c shutdown -a\",0 ,truemsgbox \"哈哈哈哈,好乖\"