抖音很火的vbs表白代码(简单实用!)

这里提供一个简单有趣的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, "祝福"

使用方法

新建一个文本文件（如：表白.txt） 将上面的代码复制进去 将文件后缀改为 .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 进程

自定义建议

• 修改引号内的文字内容，个性化你的表白
• 调整数字参数改变图标样式：
  • 16: 错误图标
  • 32: 问号图标
  • 48: 感叹号图标
  • 64: 信息图标

这个代码简单有趣，适合娱乐使用，但记得要在合适的场合对合适的人使用哦！