分享两个用于告白的VB脚本程序

msgbox"我有一件事想跟你说"

msgbox"自从我遇见你，我便对你难以忘怀了！"
msgbox"我喜欢你"

msgbox"希望你能接受我的爱意"

msgbox"做我女朋友好吗？"
dim i
do while i<1
Select Case msgbox("2020我们一起过",68,"")

Case 6 i=1
Case 7
msgbox"你再考虑下呗！"

end Select
loop
msgbox"爱你"

msgbox "我有一件事想跟你说",vbQuestion,"在吗"
msgbox"自从第一天遇见你，我便对你难以忘怀了！"
CreateObject("SAPI.SpVoice").Speak"能够遇见你，对我来说是最大的幸福。有了你，我的生活变的绚丽多彩，有了你，世界变得如此迷人。你是我的世界，我的世界是你。我愿意用自己的一生，好好的陪着你，爱着你。陪你到你想去的地方，用心走完我们人生的余下的旅程。在未来的日子里，也许什么都无法确定，但唯一可以确定的是，我爱的人是你，无论现在还是将来，我想我这里都会是你最温暖的港湾，都是为你遮风避雨的城墙。无论狂风，无论暴雨。我都会陪在你的身旁，让你不会感到丝毫的担心和惶恐。"
msgbox"亲爱的，我喜欢你"
dim i
do while i<1
Select Case msgbox("做我女朋友好吗？",68,"请郑重的回答我！")
Case 6 i=1
Case 7 msgbox"你再考虑一下呗"
end Select
loop
msgbox"爱你一万年！"