表白神器(VBS编程)

步骤一、打开记事本,输入以下代码(建议直接复制):

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"爱你一万年!"

步骤二、点击【文件】→【另存为】→【文件名:后缀改为   .vbs  (示例:Play.vbs)】→【保存类型:所有文档】

注:

        代码中    “   ”   内的中文均可以修改为你喜欢的内容。

效果如下图所示:

最后,希望大家告白成功!!

  • 18
    点赞
  • 84
    收藏
    觉得还不错? 一键收藏
  • 26
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 26
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值