vbs表白

新建一个txt,将以下粘贴进去保存后将txt后缀改为vbs,发给你想发给的人即可

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject(“wscript.shell”)
WSHshellA.run “cmd.exe /c shutdown -r -t 180 -c ““三分钟内决定是否嫁给我，否则会被关机…”” “,0 ,true
dim a
do while (a <> “我愿意”)
a = inputbox (“你愿意嫁给我么”,“爱的表白”,””,8000,7000)
if ( a <> “我愿意” ) then
msgbox “不愿意么？再考虑一下哦”
end if
loop
dim WSHshell
set WSHshell = wscript.createobject(“wscript.shell”)
WSHshell.run “cmd.exe /c shutdown -a”,0 ,true
msgbox “哈哈哈哈，好乖”