vbs表白代码+整人代码,抖音vbscript表白代码

vbs 专栏收录该内容
1 篇文章 0 订阅

步骤一:

在电脑上新建一个txt文件

步骤二:将以下代码复制过去(中文可以改)
const title = “爱情测试”

const yourname = “嫦娥”

const question = “你最喜欢的人是谁?请在下面的方框中输入他(她)的名字。”

const info = “你在说谎!不要逃避,实话实说。”

const scend = “你说出了你的心扉,那就向他(她)表白吧。”

dim youranswer

do

youranswer = inputbox(question, title)

if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title

loop until youranswer = yourname

msgbox scend, vbinformation+vbokonly, title

在这里插入图片描述

步骤三:讲后缀名改为vbs

点击之后效果:点击之后效果

当输入的名字不是代码中的“嫦娥”,则会弹出"你在说谎!不要逃避,实话实说。"
在这里插入图片描述

当输入“嫦娥”时,则会弹出"你说出了你的心扉,那就向他(她)表白吧。"
在这里插入图片描述

如果输入的名字不是不是之前代码中写的名字,弹窗就会关不掉,效果是不是很棒,赶紧向心仪的人表白吧。

©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页

打赏作者

北笙@

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值