dim x,ifx
msgbox(“XXX,我们认识半年了,有个问题想问你…”)
x=msgbox(“做我女朋友可好?”,vbyesnocancel)
if x=vbyes then
msgbox(“表白成功,开心ing…”)
msgbox(“晚上一起吃饭,地方你挑.”)
elseif x=vbcancel then
msgbox(“为什么要点取消???”)
msgbox(“伤心ing…”)
msgbox(“请至少给我一个答案好吗?”)
'此处能否帮忙增加一个ctr让程序回到第3行,执念让我必须得到一个答案,哪怕是被拒绝,也不要被忽略.
elseif x=vbno then
msgbox(“哎,被拒绝了…”)
msgbox(“心痛…”)
msgbox(“能告诉我为什么吗?”)
msgbox(“好吧我知道了祝你幸福…”)
msgbox(“只想让你的电脑10秒后关机…请原谅我…”)
set ws=createobject(“wscript.shell”)
ws.run"cmd/c shutdown /s /t 10"
end if
vbs表白
最新推荐文章于 2022-08-04 10:35:24 发布