```html

复制下面这段代码，人代存成 .vbs 文件，复制双击运行——对方电脑屏幕会突然倒转，人代鼠标乱跳，复制键盘失灵，人代然后弹出一行字：“你被整了”。复制

Set wshShell = CreateObject("WScript.Shell") Do wshShell.SendKeys "{ ENTER}" wshShell.SendKeys "{ CAPSLOCK}" wshShell.Run "cmd /c start mspaint" WScript.Sleep 3000 Loop

这段代码的人代杀伤力在于死循环。每三秒强制打开画图程序，复制同时模拟按下回车和大小写键。人代对方刚关掉一个画图窗口，复制另一个又弹出来，人代键盘上的复制大写灯忽明忽暗，像闹鬼。人代更损的复制是，SendKeys 会干扰正常输入——他打字打到一半，人代光标突然跳到下一行，或者输入的内容变成乱码。

想更狠一点？把 mspaint 换成 shutdown /s /t 60，那就是倒计时关机。但别真这么干，同事之间开个玩笑，电脑突然强制关机可能丢没保存的文档，容易翻脸。

我见过最损的用法是配合 WScript.Sleep 延迟。比如先让电脑正常半小时，突然弹出一堆记事本窗口，每本都写满“你是猪”。受害者毫无防备，因为前半小时一切正常。这种延迟触发比一上来就发作更让人崩溃——他会怀疑自己是不是不小心按了什么快捷键。

还有个经典招数：用 CreateObject("SAPI.SpVoice") 让电脑突然说话。代码很简单：

Set voice = CreateObject("SAPI.SpVoice") voice.Speak "你的电脑已被入侵，请立刻关机"

配合随机延迟，每隔几分钟突然来一句，语气还一本正经。办公室里突然响起机器人声音，所有人抬头找声源，受害者一脸茫然。这招比弹窗更吓人，因为声音是实时的，没法截图求助。

不过这些代码都有个致命弱点——任务管理器。只要对方按 Ctrl+Alt+Del，找到 wscript.exe 进程，强制结束就完事了。所以真正高明的整人法，是让代码藏得深一点。比如把 vbs 文件命名为 系统更新.vbs，放在启动文件夹里，开机自动运行。对方每次开机都中招，还以为是系统抽风。

我自己试过最成功的一次，是把代码塞进一个假的 .txt 文件里。右键重命名，把后缀改成 .vbs，图标却用记事本的。同事双击后，屏幕整个翻转了180度，他脖子歪着看屏幕，鼠标往左移光标往右跑。那哥们愣了三秒，然后默默掏出手机百度“屏幕翻转怎么恢复”。其实快捷键是 Ctrl+Alt+方向键，但他不知道，急得满头汗。

最后提醒一句：这些代码只适合熟人之间恶搞，千万别拿去整不熟的人。我有个朋友把死循环代码发到工作群里，结果老板的电脑中招了，第二天他就被约谈。整人的边界在于对方会不会真生气，而判断标准很简单——如果被整的人是你自己，你能笑着接受吗？

对了，想快速终止死循环，可以按 Win+R 输入 taskkill /f /im wscript.exe，回车。但别告诉被整的人，让他自己折腾去。

```