```vbs

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject（"wscript.shell"）

WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""三分钟内决定是否嫁给我，否则会被关机。0 ,truedim"

dim a

do while （a <> "我愿意"）

a = inputbox（"你愿意嫁给我么", "爱的表白", "", 8000, 7000）

if （a <> "我愿意"） then

msgbox "不愿意么？再考虑一下哦"

end if

loop

msgbox "哈哈哈哈，好乖"

dim WSHshell

set WSHshell = wscript.createobject（"wscript.shell"）

WSHshell.run "cmd.exe /c shutdown -a", 0, true

```

这个代码会先弹出一个倒计时关机对话框，然后在一个循环中等待用户输入“我愿意”或“不愿意”。如果用户输入“不愿意”，会再次弹出提示框。如果用户输入“我愿意”，则会显示一个开心的消息框，并执行关机命令。

你可以根据需要修改代码中的提示信息和关机时间。希望这个代码能帮助你成功表白!