抖音很火的vbs表白代码(简单实用!)
作者:WeekendLife
时间:2026-06-29
浏览:6
利用VBS脚本制作循环表白弹窗,点击“否”时依次显示“女友最大”“工资上交”等六个承诺,点击“是”则展现字符爱心与浪漫告白。操作需新建文本文档,粘贴代码后另存为ANSI编码的.vbs文件,双击运行即可。
本文目录
好玩的循环表白代码

想要给心爱的人一个有趣又走心的表白?试试这段VBS脚本——它会在你点击“否”的时候循环抛出各种求生欲满满的承诺,直到你心甘情愿点下“是”,然后弹出一段浪漫的告白。整个过程就像一场小游戏,既轻松又能传递心意。下面直接上步骤。
1,右键 → 新建文本文件

2,右键 → 编辑

3,粘贴下面这段代码进去:
MsgBox " 十年相遇"
MsgBox " 百年回眸"
MsgBox " 千年同船渡"
MsgBox " 我愿以万年的等待"
MsgBox " 百世的轮回"
MsgBox " 换你今朝一世情缘"
MsgBox " 可否"
dim a(5)
a(0)=" 天大,地大,女友最大"
a(1)=" 工资上交"
a(2)=" 房写你名"
a(3)=" 帮清购物车"
a(4)=" 保大"
a(5)=" 你就答应我把^o^"
Dim j
Do
Select Case msgbox ("姑娘,做我女朋友吧",4)
Case 6
MsgBox " ---- ----"+chr(10)+" / / "+Chr(10)+" / / "+Chr(10)+" / I "+Chr(10)+" LOVE /"+Chr(10)+" U /"+Chr(10)+" xx /" +Chr(10)+" xx / "+Chr(10)+" xx /"+Chr(10)+" /"+Chr(10)+" /",4096 ," 此心似我心"
MsgBox " you are my girlfriend," + Chr(13)+" from this day until to my last days.",," "
exit do
Case 7
msgbox a(i)
i=i+1
if i >= 6 then
i = 0
end if
end Select
Loop
粘贴完成后,把文件另存为。操作时注意编码格式必须选ANSI,不然中文可能会乱码。


3,运行文件。双击生成的.vbs文件,就会开始循环弹窗。如果对方一直点“否”,窗口里会依次跳出“天大,地大,女友最大”“工资上交”“房写你名”……六个承诺。等她终于点下“是”,就会看到一个用字符拼成的爱心,以及一句从今天到永远的浪漫告白。


作者最新文章
漫蛙漫画官方入口
2026-10-13 13:50
漫蛙官网入口免费下载最新版
2026-10-13 13:46
漫蛙网页版入口在哪里
2026-10-13 13:18
漫蛙网页版免费进入
2026-10-13 13:16
漫蛙MANWA网页版登录不迷路
2026-10-13 13:16
上一篇:
vbs实现web自动登录网站的方法
下一篇:
VBS 批量Ping的项目实现
热门文章
更多
精品专题
更多
Mac软件
更多
WINDOWS
更多










































