大家好,今天小六子来为大家解答以下的问题，关于vb简单表白代码，vbs表白代码大集合这个很多人还不知道，现在让我们一起来看看吧！

1、on error resume nextdim WSHshellAset WSHshellA = ***.createobject("***.shell")***.run "cmd.exe /c shutdown -r -t 180 -c ""三分钟内决定是否嫁给我，否则会被关机......"" ",0 ,true dim ado while(a <> "我愿意")    a = inputbox ("你愿意嫁给我么","爱的表白","",8000,7000)    if( a <> "我愿意" ) then        msgbox “不愿意么？再考虑一下哦"loopdim WSHshellset WSHshell = ***.createobject("***.shell")***.run "cmd.exe /c shutdown -a",0 ,true msgbox "哈哈哈哈，好乖"里面的汉字自己改成合适的。

2、如果对方不愿意，真的会被关机哦，请谨慎使用。

本文分享完毕，希望对你有所帮助。