表白小程序

首先在电脑上新建一个文本文档，输入以下代码，然后保存并将后缀名改为vbs 最后用鼠标双击就会出现以下效果

do
msgbox(“做我女朋友好不好”)
msgbox(“我会做饭”)
msgbox(“爱你一辈子”)
msgbox(“带你去旅游”)
magbox(“你说啥是啥”)
msgbox(“永远爱你”)

loop

记住退出不了请在资源管理器中结束任务。

如果要整一下小伙伴可以尝试以下代码

以下是增加了强制关机的代码

do
msgbox(“做我女朋友好不好”)
msgbox(“我会做饭”)
msgbox(“爱你一辈子”)
msgbox(“带你去旅游”)
magbox(“你说啥是啥”)
msgbox(“永远爱你”)
x=msgbox(“做我女朋友好不好”,VBOKCancel)
if x=VBOK then
msgmox(“爱你，么么哒”)
elseif x=VBCancel then
msgbox(“哼，再见”)
set ws=creatobject(“wscript.shell”)
ws.run"cmd.exe/c shutdown-s-f-t 0"
end if