5个VBS恶搞脚本，让同事的电脑瞬间失控

1. 键盘输入倒转的恶作剧脚本办公室里偶尔来点无伤大雅的恶作剧能有效缓解工作压力。这个VBS脚本会让同事的键盘输入完全倒转就像照镜子一样有趣。想象一下当同事在文档里输入hello时屏幕上却显示olleh那种困惑的表情绝对值得一看。实现原理很简单我们使用VBScript内置的StrReverse函数。这个函数能自动将字符串倒序排列。下面是完整代码Set objShell CreateObject(WScript.Shell) strInput objShell.InputBox(请输入要倒转的文本, 输入倒转) strReversed StrReverse(strInput) MsgBox 倒转后的文本 strReversed使用时建议把脚本保存为.vbs文件然后伪装成普通文档发给同事。当同事双击运行时会弹出一个看似正常的输入框。他们输入任何内容后都会看到完全倒转的文字显示在弹窗里。这个恶作剧最妙的地方在于它不会对系统造成任何实际损害但能制造出非常有趣的混乱效果。我曾在愚人节时给测试团队用过这个脚本他们花了整整十分钟才反应过来是文字被倒转了。2. 无限循环警告弹窗想让同事以为电脑中毒了这个无限循环的警告弹窗脚本效果拔群。它会不断弹出你的电脑已中毒的警告看起来就像真的中了勒索病毒一样。Set objShell CreateObject(WScript.Shell) While True objShell.Popup 你的电脑已中毒请立即关机, 0, 警告, 48 Wend代码中的Popup方法会创建一个模态对话框参数48表示显示警告图标。由于放在While True循环里弹窗会源源不断地出现除非用户强制结束wscript.exe进程。实际使用时有个小技巧可以把这个脚本设置为开机启动项。这样同事开机后就会立即被弹窗轰炸。记得提前告诉IT部门这是个恶作剧免得他们真的当成病毒处理。我在公司内部黑客马拉松上演示过这个脚本效果非常震撼。不过要提醒的是这个恶作剧最好用在关系好的同事身上而且要控制好持续时间一般30秒左右就该收手了。3. 随机切换桌面壁纸想让同事的桌面变得不可预测这个脚本会定时随机更换壁纸制造一种灵异事件的感觉。Set objShell CreateObject(WScript.Shell) Set objFSO CreateObject(Scripting.FileSystemObject) 壁纸图片路径数组 wallpapers Array( _ C:\wallpapers\1.jpg, _ C:\wallpapers\2.jpg, _ C:\wallpapers\3.jpg _ ) Randomize While True 随机选择一张壁纸 index Int((UBound(wallpapers) 1) * Rnd) If objFSO.FileExists(wallpapers(index)) Then objShell.RegWrite HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper, wallpapers(index) objShell.Run RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters, 0, True End If WScript.Sleep 60000 每分钟更换一次 Wend使用前需要准备几张风格迥异的壁纸图片放在指定目录下。脚本会每分钟随机选择一张设置为桌面背景。看着同事对着不断变化的桌面一脸茫然绝对是办公室里的欢乐时刻。我建议选择一些搞笑的图片作为壁纸比如突然换成老板的大头照或者换成你被监控了之类的恶搞图片。记得设置合理的切换间隔太频繁会让人抓狂太慢又没效果。4. 鼠标指针消失术没有什么比突然消失的鼠标指针更能让人抓狂了。这个脚本会让鼠标指针时隐时现制造出一种电脑闹鬼的错觉。Set objShell CreateObject(WScript.Shell) While True 隐藏指针 objShell.Run cmd /c echo off reg add HKCU\Control Panel\Cursors /v Arrow /t REG_SZ /d /f, 0 objShell.Run RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters, 0, True WScript.Sleep 3000 恢复指针 objShell.Run cmd /c echo off reg add HKCU\Control Panel\Cursors /v Arrow /t REG_SZ /d %SystemRoot%\cursors\aero_arrow.cur /f, 0 objShell.Run RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters, 0, True WScript.Sleep 3000 Wend这个脚本通过修改注册表来切换鼠标指针的显示状态。每3秒钟交替一次隐藏和显示会让使用者产生是不是我眼花了的错觉。我曾经把这个脚本用在设计师同事的电脑上看着他不断揉眼睛检查显示器整个办公室都笑翻了。要结束这个恶作剧也很简单只需要打开任务管理器结束wscript.exe进程即可。或者更绝的是你可以设置脚本在运行30次后自动退出给同事留下一个未解之谜。5. 自动输入恶搞文字最后一个脚本会让电脑自动输入预设的搞笑文字就像被远程控制了一样。这个效果特别适合用在正在打字的同事身上。Set objShell CreateObject(WScript.Shell) Set objRandom CreateObject(System.Random) messages Array( _ 你的键盘被我控制了, _ 快请我喝咖啡就放过你, _ 你的电脑有自我意识了, _ 这不是bug这是彩蛋, _ IT部门提醒你该休息了 _ ) While True index objRandom.Next(0, messages.Length) objShell.SendKeys messages(index) WScript.Sleep 60000 每分钟触发一次 Wend脚本会每分钟随机选择一条消息通过SendKeys方法模拟键盘输入。最妙的是这些文字会直接出现在同事正在编辑的文档中就像电脑突然有了自己的想法。我在实际使用中发现配合适当的触发时机效果更好。比如当同事正在认真写邮件时突然插入一句这封邮件不该发绝对能让他手忙脚乱检查半天。当然要确保这些自动输入的文字不会造成实际工作上的困扰。