```html

VBS恶搞代码整人代码

朋友发来一个“照片.scr”，双击后桌面图标全没了，码整码鼠标开始自己乱点，人代光驱弹出来又缩回去——这不是搞代中毒，是码整码VBS恶搞脚本在跳舞。

VBScript这玩意儿，人代系统自带，搞代不用编译，码整码记事本写完存成.vbs就能跑。人代门槛低到离谱，搞代所以整人代码满天飞。码整码我见过最损的人代一个，运行后每隔三秒弹一句“你爱我吗”，搞代点“是码整码”没反应，点“否”又弹一个“再想想”。人代关不掉，只能任务管理器杀进程。写这代码的人，八成被甩过。

先看个经典款：无限弹窗。代码短得可怜，效果拔群。

do msgbox "嘿嘿，你中招了！", 48, "整蛊专家" loop

存成test.vbs，双击。弹窗像韭菜一样，割一茬长一茬。Ctrl+Alt+Del都按不赢。新手遇到这情况，第一反应是拔电源。其实任务管理器里找到wscript.exe结束进程就行。但整人嘛，要的就是那三秒慌张。

再升级一下，让鼠标自己动。有个API叫SetCursorPos，VBS通过System.Collections调不了，得用WScript.Shell配合rundll32，或者干脆嵌入一段PowerShell。我试过最直接的写法——用MSXML2.XMLHTTP发个请求，把坐标传给一个本地小服务，再让服务调user32.dll。麻烦。后来发现个野路子：用WScript.Shell的SendKeys模拟方向键，虽然移动慢，但胜在简单。按住{ RIGHT}不放，鼠标指针会像喝醉一样往右飘。配合WScript.Sleep 200，效果更鬼畜。

Set shell = CreateObject("WScript.Shell") do shell.SendKeys "{ RIGHT 5}" WScript.Sleep 300 shell.SendKeys "{ LEFT 3}" WScript.Sleep 200 loop

这代码跑起来，鼠标指针跟抽风似的左右横跳。受害者以为鼠标坏了，换电池、擦鼠标垫、重启电脑——都没用。因为脚本还在后台跑。够损。

还有更阴间的：改注册表。把HKEY_CURRENT_USER\Control Panel\Desktop里的Wallpaper指向一张“我是猪”的图片，再刷新桌面。对方锁屏再解锁，满屏嘲讽。恢复也简单，但不知道的人得折腾半天。我大学室友就被这招整过，他盯着屏幕愣了十秒，然后默默把桌面背景换回默认，一句话没说。那天晚上他请我吃了顿烧烤——因为他怀疑是我干的，但我没承认。

最后放个“光驱蹦迪”代码。现在笔记本没光驱了，但台式机还有。原理是调WMPlayer.OCX的cdromCollection，让托盘反复弹出收回。声音咔咔响，像机器人打嗝。

Set wmp = CreateObject("WMPlayer.OCX") Set cdrom = wmp.cdromCollection.Item(0) do cdrom.Eject WScript.Sleep 1000 cdrom.Eject WScript.Sleep 1000 loop

这代码我只在虚拟机里跑过。物理机没敢试，怕光驱齿轮崩了。但看别人录的视频，那托盘进进出出，配上“咔嗒咔嗒”的机械声，莫名解压。整人效果满分，就是有点费硬件。

写VBS整人代码，核心就一句：用最少的代码，制造最大的混乱。别搞复杂，越简单越难防。弹窗、鼠标、光驱，三板斧够用了。至于怎么收场——任务管理器，结束wscript.exe，世界清净。下次谁再发你“好玩的.scr”，先右键编辑看看，别傻乎乎双击。