vbs 表白整人代码

以下是一个使用VBScript编写的简单的表白整人代码：

Dim message
message = InputBox("请你输入对方的名字：", "表白整人")

If message = "" Then
    MsgBox "你没有输入任何内容！", vbCritical, "错误"
Else
    MsgBox "亲爱的 " & message & "，我喜欢你！", vbInformation, "表白"
End If

这段代码会弹出一个输入框，让你输入对方的名字。如果你没有输入任何内容，会弹出一个错误提示框。否则，会弹出一个表白的提示框，显示"亲爱的 [对方的名字]，我喜欢你！"的信息。

请注意，这段代码仅供娱乐和学习使用，请确保在适当的场合和恰当的方式下使用。