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

步骤一:

在电脑上新建一个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表白代码+整人代码,抖音vbscript表白代码_第1张图片

步骤三:讲后缀名改为vbs

点击之后效果:vbs表白代码+整人代码,抖音vbscript表白代码_第2张图片

当输入的名字不是代码中的“嫦娥”,则会弹出"你在说谎!不要逃避,实话实说。"
vbs表白代码+整人代码,抖音vbscript表白代码_第3张图片

当输入“嫦娥”时,则会弹出"你说出了你的心扉,那就向他(她)表白吧。"
vbs表白代码+整人代码,抖音vbscript表白代码_第4张图片

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

你可能感兴趣的:(vbs)