vbs 表白整人代码

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

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

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

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

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

相关问题

整人请假条vbs代码

整人请假条vbs代码可以用来开玩笑或者戏弄同事、朋友。以下是一个简单的示例代码：

1. 首先创建一个.vbs文件，例如"joke.vbs"。

2. 打开文件，使用下面的代码：

Set objVoice = CreateObject("SAPI.SpVoice")
objVoice.Speak "尊敬的老师/领导，您好。由于我有一个非常紧急的事情需要处理，所以我无法在今天出席工作/学校。我希望您能够理解并批准我的请假申请。非常感谢！"

3. 将代码保存并关闭文件。

4. 将这个.vbs文件发送给你想整人的人，他们可以双击运行该文件。

5. 当他们双击运行该文件时，会出现一个语音提示，模拟一个请假条的内容。他们可能会误以为这是一个真实的请假条，从而产生困惑或者被吓到。

请注意，使用这样的代码进行恶作剧应该是开玩笑和娱乐的目的，而不是导致对方困扰或者恐慌。确保在使用代码之前先征得对方的同意，并确保对方了解这是一个恶作剧，以免造成误解或破坏关系。

怎么用vbs做整人小程序

以下是一个使用VBS制作整人小程序的例子：

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "你的电脑已被黑客攻击，请立即关机！"
wshshell.sendkeys "{CAPSLOCK}"
wshshell.send "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop

这个程序会在电脑上不断弹出一个警告框，并且不断地开启和关闭大写锁定、数字锁定和滚动锁定键，让用户感到非常困惑和恼火。