求一个vbs高级表白代码（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,7000)if ( a <> "我愿意" ) thenmsgbox "不愿意么？再考虑一下哦"end ifloopdim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox "哈哈哈哈，好乖"