【vbs整人代码大全】在日常生活中，很多人喜欢用一些小“恶作剧”来逗乐朋友或者同事。而VBS（Visual Basic Script）作为一种简单的脚本语言，因其操作简单、功能强大，成为了许多“整人”爱好者的首选工具。今天，我们就来分享一些经典的VBS“整人”代码，看看它们是如何“戏弄”别人的。
一、自动弹出消息框
这个代码可以让你的朋友在打开某个文件或运行脚本时，被无数个消息框“轰炸”。
```vbs
Set WshShell = CreateObject("WScript.Shell")
Do
WshShell.Popup "你中招了！", 0, "警告", 48
Loop
```
运行后，会不断弹出一个带有“你中招了！”的窗口，直到关闭脚本为止。
二、自动关机提示
这个代码可以让对方误以为电脑即将关机，从而引发恐慌。
```vbs
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd /c shutdown -s -t 60", 0, True
```
运行后，系统会在60秒后自动关机，但你可以提前取消。
三、疯狂复制桌面图标
这个代码会在桌面上生成大量重复的快捷方式，让桌面变得杂乱不堪。
```vbs
Set WshShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = WshShell.SpecialFolders("Desktop")
For i = 1 To 100
Set oFile = oFSO.CreateTextFile(oFolder & "\Shortcut" & i & ".lnk")
oFile.WriteLine("This is a shortcut file.")
oFile.Close
Next
```
运行后，桌面会出现100个名为“Shortcut1.lnk”到“Shortcut100.lnk”的文本文件。
四、自动播放音乐
这个代码可以在运行时播放一段背景音乐，营造“诡异氛围”。
```vbs
Set sound = CreateObject("WMPlayer.OCX")
sound.URL = "C:\Windows\Media\WindowsXP.wav"
sound.controls.play
```
注意：路径需根据实际位置调整，且需要确保音乐文件存在。
五、模拟键盘输入
这个代码可以模拟键盘输入，比如自动输入“你是个傻瓜”等文字。
```vbs
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "你是个傻瓜！"
```
运行后，会自动将这句话输入到当前焦点所在的位置，非常“调皮”。
六、自动删除文件
这是一个比较“狠”的代码，可以删除指定目录下的所有文件。
```vbs
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile "C:\test\.", True
```
注意：此代码具有破坏性，请勿随意使用，以免造成数据丢失。
七、创建无限循环窗口
这个代码会让对方无法关闭窗口，只能强制结束任务。
```vbs
Set WshShell = CreateObject("WScript.Shell")
Do
WshShell.Run "notepad.exe"
Loop
```
运行后，会不断打开记事本，直到脚本停止。
小贴士：
- 使用这些代码前，请确保对方知情并同意，避免引起不必要的误会。
- 不要用于恶意目的，保持娱乐性质。
- 可以结合其他脚本语言（如批处理、Python）实现更复杂的“整人”效果。
结语：
VBS虽然简单，但它的“整人”潜力却不可小觑。只要掌握得当，它不仅能带来乐趣，还能成为朋友间的小玩笑。不过，切记不要滥用，保持适度和善意才是关键。希望这篇“VBS整人代码大全”能为大家带来欢乐，同时也提醒大家：玩归玩，别太过分哦！
