.vbs后缀名的死循环3表白系列

与前俩篇发文同理加入了注销计算机等语句，其他均是前面的结合
第一篇发文的地址 https://blog.csdn.net/qq_44973159/article/details/90789721
第二篇发文的地址 https://blog.csdn.net/qq_44973159/article/details/90790284

小伙伴们，这里面的强制关机语句，如果在1分钟内没有输入我愿意，是真的会自己关机的，情谨慎使用，

msgbox("做我女朋友好吗?")

msgbox("房产证上写你名")

msgbox("保大")

msgbox("我妈会游泳")

msgbox("我做家务")

msgbox("我做饭")

msgbox("宠你")

msgbox("护犊子")

msgbox("不凶人")

msgbox "你好!"

msgbox "我钟意你很久了!",64

msgbox "可以做我女朋友吗",64

dim gj,a

const s="我愿意"

set gj=wscript.createobject("wscript.shell")

gj.run "cmd.exe /c shutdown -s -t 60 -c ""快说我愿意，不然就关机"" ",0,true

do

a=inputbox("答应我吧","我真的很喜欢你","我愿意")

if a=s then

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

msgbox "亲爱的，我们一起去操场散步好不好?"

exit do

wscript.Quit

end if

msgbox "为什么不愿意 哇阿阿阿阿阿 我好伤心~",16

loop