这里提供一个简单有趣的VBS表白弹窗代码，适合在抖音上看到的“整蛊表白”效果。
运行后会连续弹出多个消息框，最后显示表白信息。
MsgBox "在吗？", 64, "悄悄话"
MsgBox "我有个秘密想告诉你", 64, "悄悄话"
MsgBox "其实...", 64, "脸红"
MsgBox "我喜欢你很久了", 64, "❤"
MsgBox "可以做我男/女朋友吗？", 64, "认真提问"
MsgBox "不同意就继续弹窗哦~", 48, "调皮"
' 添加一个简单的循环（慎用）
Do
answer = MsgBox("答应我嘛~ (选择取消会继续问)", 65, "等待回答")
If answer = 1 Then
MsgBox "太好了！爱你么么哒！❤", 64, "开心"
Exit Do
ElseIf answer = 2 Then
MsgBox "哼，我再问一遍！", 16, "不放弃"
End If
Loop
MsgBox "表白完成！祝有情人终成眷属！", 64, "祝福".vbs（如：表白.vbs）
双击运行即可
password = "我爱你"
Do
input = InputBox("请输入密码关闭弹窗：" & vbCrLf & "（提示：三个字）", "关闭密码")
If input = password Then
MsgBox "密码正确！其实这是给你的表白~", 64, "成功"
Exit Do
ElseIf input <> "" Then
MsgBox "密码错误！再想想哦~", 16, "错误"
End If
Loop While input <> ""Ctrl+Shift+Esc 打开任务管理器，结束 wscript.exe 进程
这个代码简单有趣，适合娱乐使用，但记得要在合适的场合对合适的人使用哦！
