一、无限弹窗类

基础弹窗循环

```vbscript

Do

MsgBox "你在说谎！不要逃避，实话实说。", vbInformation + vbOKOnly

Loop Until InputBox = "yourname"

```

输入指定名字后停止，否则持续弹窗。

带语音的弹窗

```vbscript

Set oVoice = CreateObject("SAPI.SpVoice")

Do

oVoice.Speak "怎么才来，说~是不是不关心我？" & vbCrLf

DoEvents

Loop

```

通过语音播放预设信息，循环执行。

二、系统操作类

自动关机/重启

```vbscript

' 60秒关机

WScript.Shell.Run "shutdown -s -t 60", 0, True

```

弹窗提示后执行关机命令，可修改时间参数实现延时。

无限重启

```vbscript

Do While True

WScript.Shell.Run "shutdown -r -t 0"

Loop

```

电脑将每隔0秒重启一次。

三、交互类

表白提醒

```vbscript

MsgBox "内容A" & Chr(13) & "内容B" & Chr(13) & "内容C", 1

```

支持自定义弹窗内容，数字参数选择按钮样式。

QQ骚扰信息

```vbscript

Dim QQNumber

QQNumber = "好友昵称" ' 替换为实际昵称

For i = 1 To 10

WScript.Shell.SendKeys "^v" & QQNumber & "{ENTER}"

WScript.Sleep 700

Next

```

自动向指定QQ发送重复消息。

注意事项

安全性提示：

部分代码可能被系统限制执行，建议在信任设备使用。

兼容性：

老旧系统可能无法运行 `SAPI.SpVoice`，可替换为 `MsgBox`。

道德规范：

请勿用于恶意目的，避免影响他人正常使用设备。

通过修改代码中的提示信息或参数，可灵活调整整人效果。