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

  • 新建个记事本文件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"爱你一万年!"

第二个还是个有语音朗诵文字的,可以用编辑器改为自己的话来表白,可以发给告白的人当做无法拒绝的程序。

已标记关键词 清除标记
相关推荐
©️2020 CSDN 皮肤主题: 技术黑板 设计师:CSDN官方博客 返回首页