抖音很火的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文件，就会开始循环弹窗。如果对方一直点“否”，窗口里会依次跳出“天大，地大，女友最大”“工资上交”“房写你名”……六个承诺。等她终于点下“是”，就会看到一个用字符拼成的爱心，以及一句从今天到永远的浪漫告白。