十个趣味VBS整蛊脚本，轻松恶搞好友不伤电脑

1. 无限弹窗最经典的整蛊开场这个脚本堪称VBS整蛊界的Hello World原理简单但效果拔群。我当年第一次用这个脚本整蛊室友时他手忙脚乱的样子至今难忘。代码只有三行do msgbox 你的电脑已被我控制 loop保存为popup.vbs双击运行后会不断弹出警告窗口。实测在Windows 10上每秒能弹出5-6个窗口很快就能占满整个屏幕。被整蛊的人通常会疯狂点击确定结果发现越点窗口越多。安全提示按CtrlShiftEsc打开任务管理器找到Microsoft ® Windows Based Script Host进程结束即可。这个脚本不会对系统造成任何实际损害最多就是让人暂时手忙脚乱。2. 语音报数让电脑开口说话利用Windows自带的语音合成功能可以让电脑变成一个话痨。这个脚本特别适合在深夜办公室恶搞同事Set speech CreateObject(sapi.spvoice) i0 do speech.speak i ii1 wscript.sleep 500 loop运行后电脑会用英文从0开始报数间隔半秒。我试过让这个脚本运行了一整夜第二天发现同事把音箱电源线都拔了。如果想要中文语音可以修改为speech.speak 一二三四五上山打老虎3. 假关机最逼真的恶作剧这个脚本会模仿真实的系统关机提示连微软的logo都会显示if MsgBox(系统检测到关键错误需要立即重启,vbOKCancelvbCritical,Windows)vbCancel then msgbox 取消无效系统将强制重启,,警告 end if Set ws CreateObject(Wscript.Shell) ws.Run shutdown -r -t 5,0实际测试时90%的人都会信以为真。真正的关机倒计时只有5秒但足以制造紧张感。如果想增加戏剧性可以在shutdown命令前添加CreateObject(SAPI.SpVoice).Speak Critical system error4. 键盘捉迷藏禁用特定按键这个脚本会让AltF4组合键失效对于经常用这个快捷键关窗口的人来说简直是噩梦set wshshell wscript.createobject(wscript.shell) do wshshell.sendkeys {F5} wscript.sleep 100 loop运行后每隔0.1秒模拟按下F5键导致其他快捷键无法正常使用。我在公司测试时有位设计师同事差点以为键盘坏了。要终止效果同样需要结束wscript进程。5. 光驱弹跳物理级整蛊如果你的朋友还在用光驱这个脚本绝对能让他怀疑人生set wmpcreateobject(wmplayer.ocx) set cdwmp.cdromcollection.item(0) do cd.eject wscript.sleep 1000 cd.eject wscript.sleep 1000 loop光驱会以1秒为间隔不断弹出和收回就像中了邪一样。我曾经用这个脚本让同事以为电脑被幽灵控制了效果拔群。6. 桌面消失术隐藏任务栏这个脚本会暂时让桌面图标和任务栏消失制造系统崩溃的假象set wsCreateObject(Wscript.Shell) ws.run taskkill /f /im explorer.exe,0 wscript.sleep 5000 ws.run explorer.exe,0前5秒桌面完全空白之后自动恢复。我在测试时添加了语音提示系统正在修复中...让效果更加逼真。安全提示即使不手动恢复系统也会在下次登录时自动加载explorer.exe。7. 鼠标乱跑控制指针位置通过VBS可以模拟鼠标移动制造灵异事件set wshshell wscript.createobject(wscript.shell) do wshshell.sendkeys {RIGHT} wscript.sleep 500 wshshell.sendkeys {LEFT} wscript.sleep 500 loop这个脚本会让鼠标指针左右摆动就像有人在远程控制。配合前面的语音脚本使用效果更佳比如加上我正在控制你的电脑...8. 时间错觉修改系统时间显示这个脚本会篡改右下角的时间显示让人产生时间错乱的感觉set wsCreateObject(Wscript.Shell) for i1 to 10 ws.RegWrite HKCU\Control Panel\International\sTimeFormat,hh:mm:ss tt,REG_SZ ws.RegWrite HKCU\Control Panel\International\sShortTime,HH:mm:ss,REG_SZ wscript.sleep 1000 next实际系统时间并未改变只是显示格式在不断切换。我曾在愚人节用这个脚本让同事以为时间在倒流。9. 键盘反转左右键互换这个脚本通过修改注册表实现按键功能调换set wsCreateObject(Wscript.Shell) ws.RegWrite HKCU\Keyboard Layout\Scancode Map,_ 00 00 00 00 00 00 00 00 03 00 00 00 3A 00 38 00 38 00 3A 00 00 00 00 00,REG_BINARY运行后需要重启才能生效将左Alt和右Alt键功能互换。要恢复只需删除该注册表项。注意这个脚本需要管理员权限。10. 终极无害生日祝福生成器最后分享一个温馨的整蛊脚本会生成个性化生日祝福name inputbox(请输入你的名字) age inputbox(请输入你的年龄) set fsoCreateObject(Scripting.FileSystemObject) set filefso.CreateTextFile(C:\生日祝福.txt,true) file.write 亲爱的 name vbCrLf 祝你 age 岁生日快乐 file.close set wsCreateObject(Wscript.Shell) ws.run notepad C:\生日祝福.txt这个脚本既有趣又安全我常用它来给朋友制造惊喜。你还可以扩展功能比如添加自动播放生日歌等效果。