【VBS整人代码大全】在日常生活中，我们经常会遇到一些“调皮”的朋友，喜欢用各种方式来“整蛊”别人。而随着计算机技术的普及，一些简单的脚本语言也成为了“整人”的新工具。其中，VBS（Visual Basic Script）作为一种常见的脚本语言，因其操作简单、功能强大，被许多“恶作剧爱好者”所青睐。
下面，我们就来分享一些经典的VBS整人代码，仅供娱乐，请勿用于恶意用途。
一、弹出无数个窗口
这个代码可以让你的朋友在电脑上看到无数个弹窗，非常具有“视觉冲击力”。
```vbs
Set WshShell = CreateObject("WScript.Shell")
Do
WshShell.Run "notepad.exe"
WshShell.Run "calc.exe"
WshShell.Run "mspaint.exe"
Loop
```
运行后，系统会不断打开记事本、计算器和画图工具，直到你手动关闭。
二、让鼠标疯狂跳动
这个代码可以让鼠标的指针在屏幕上疯狂移动，让人无法正常操作电脑。
```vbs
Set wsh = CreateObject("WScript.Shell")
wsh.Run "cmd /c start C:\Windows\System32\rundll32.exe user32.dll, LockWorkStation", 0, True
```
不过，这个代码其实是一个“假动作”，它只是锁屏，并不会真正让鼠标跳动。如果想要更“真实”的效果，可以使用其他方法，比如调用第三方工具。
三、显示搞笑提示信息
这个代码可以在屏幕中央弹出一个大大的提示框，内容可以自定义，非常适合用来开玩笑。
```vbs
MsgBox "你已经被我盯上了！", vbExclamation, "警告！"
```
你可以将 `"你已经被我盯上了！"` 改成任何你想说的内容，比如“你今天真好看”或者“别乱点哦～”
四、自动发送消息
这个代码可以模拟发送消息，但需要配合其他软件或API使用，例如：
```vbs
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "your_email@example.com"
objEmail.To = "target_email@example.com"
objEmail.Subject = "这是一个测试邮件"
objEmail.TextBody = "你好，这是一封由VBS发送的测试邮件。"
objEmail.Send
```
注意：此代码需要配置SMTP服务器信息，否则无法正常发送。
五、让电脑自动关机
这个代码可以设置电脑在几秒后自动关机，适合用来“吓唬”朋友。
```vbs
Set oShell = CreateObject("WScript.Shell")
oShell.Run "shutdown -s -t 10", 0, True
```
运行后，电脑将在10秒后自动关机。如果你不想让它真的关机，可以在任务管理器中终止进程。
六、生成随机文字
这个代码可以生成一堆无意义的文字，看起来像“乱码”，让人摸不着头脑。
```vbs
Dim strText
strText = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
For i = 1 To 100
Randomize
strText = strText & Chr(Int(36 Rnd + 65))
Next
MsgBox strText, vbInformation, "神秘文字"
```
运行后，会弹出一个包含随机字符的窗口，看起来像是某种“密码”或“密文”。
七、隐藏桌面图标
这个代码可以隐藏桌面上的所有图标，让桌面变得“空荡荡”的。
```vbs
Set objShell = CreateObject("Shell.Application")
objShell.Namespace(0).ViewOptions = 0
```
运行后，桌面图标会被隐藏，需要手动恢复。
八、播放音乐
这个代码可以播放一段音乐，适合用来“制造气氛”。
```vbs
Set sound = CreateObject("WMPlayer.OCX")
sound.URL = "C:\Windows\Media\WindowsBackground.mp3"
sound.controls.play
```
注意：路径要根据实际情况修改，且需确保文件存在。
注意事项：
- VBS脚本虽然功能强大，但使用时需谨慎，避免对他人造成困扰。
- 有些代码可能会影响系统稳定性，建议在虚拟机或测试环境中运行。
- 不要将这些代码用于非法或恶意目的。
总之，VBS整人代码是一种有趣的“小技巧”，但切记适度娱乐，尊重他人。希望这篇文章能为你带来欢乐，同时也提醒大家：科技是用来服务生活的，而不是伤害他人的工具。
