抖音很火的vbs表白代码(简单实用!)
作者:WeekendLife
时间:2026-06-29
浏览:0
利用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-09-22 14:32
华强北手机全线涨价:涨幅400-1500元,存储成本推高售价
2026-09-08 19:22
PDF转XML操作步骤与在线工具使用指南
2026-09-03 10:06
如何把多个PPT转成PDF?批量转换PDF的方法有哪些?
2026-09-02 19:32
CorelDRAW 2021图片虚化与边缘处理教程
2026-09-02 15:44
上一篇:
vbs实现web自动登录网站的方法
热门文章
更多
精品专题
更多
Mac软件
更多
WINDOWS
更多


































