- 新建个记事本文件txt，复制如下代码到文件中，然后命个名以vbs为后缀，双击打开就可以运行了。
第一个：
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"爱你一万年！"
第二个还是个有语音朗诵文字的，可以用编辑器改为自己的话来表白，可以发给告白的人当做无法拒绝的程序。