【VBS整人代码大全】在日常生活中，我们总喜欢用一些小技巧来“恶搞”一下朋友、同事或者家人，而VBS（Visual Basic Script）作为一种简单的脚本语言，因其操作简单、功能强大，成为了许多“整人高手”的利器。今天，我们就来分享一些经典的VBS整人代码，仅供娱乐，请勿用于恶意用途。
一、基础整人代码
1. 弹出多个提示框
```vbs
MsgBox "你被我整了！", vbExclamation, "警告"
MsgBox "你是不是很生气？", vbInformation, "提醒"
MsgBox "别生气哦！", vbCritical, "最后提醒"
```
这段代码会在屏幕上连续弹出多个提示框，让人措手不及。
2. 无限循环弹窗
```vbs
Set WshShell = CreateObject("WScript.Shell")
Do
WshShell.Popup "你被我整了！", 0, "警告", 0
Loop
```
这个代码会不断弹出窗口，直到用户强制关闭脚本。
二、进阶整人技巧
3. 模拟键盘输入
```vbs
Set wsh = CreateObject("WScript.Shell")
wsh.SendKeys "你中招了！"
```
运行后，脚本会自动在当前焦点位置输入“你中招了！”，适合用来“吓唬”别人。
4. 关闭系统进程
> 注意：此代码可能对系统造成影响，请谨慎使用！
```vbs
Set objShell = CreateObject("WScript.Shell")
objShell.Run "taskkill /F /IM notepad.exe", 0, True
```
该代码可以强制关闭记事本程序，但也可以替换为其他关键程序，如`explorer.exe`等。
5. 自动打开网页
```vbs
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://www.bilibili.com"
```
运行后，会自动打开一个网页，适合用来“误导”他人。
三、更“狠”的玩法
6. 隐藏任务栏
```vbs
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects3 /v Settings /t REG_BINARY /d 01000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000......", 0, True
```
这段代码通过修改注册表来隐藏任务栏，但需要管理员权限才能运行。
7. 禁用鼠标和键盘
```vbs
Set objShell = CreateObject("WScript.Shell")
objShell.Run "rundll32.exe user32.dll, LockWorkStation", 0, True
```
运行后会锁定电脑，需要输入密码才能解锁，适合“恶作剧”使用。
四、注意事项
- VBS脚本在Windows系统中默认是可以运行的，但部分安全软件可能会拦截。
- 使用此类代码时，请确保对方知情并同意，避免造成不必要的误会或伤害。
- 本文内容仅供学习和娱乐，切勿用于非法用途。
结语
VBS虽然简单，但功能强大，是很多“整人高手”的秘密武器。不过，玩归玩，一定要注意分寸，不要让朋友因为一次玩笑而心生不满。希望这篇“VBS整人代码大全”能给大家带来一些乐趣！
> 温馨提示：请文明使用技术，快乐生活！
