【如何恶搞朋友的电脑超简单的vbs代码】在日常生活中，朋友之间偶尔会玩一些小玩笑，但必须注意：任何“恶搞”行为都应以不造成实际伤害或影响为前提。以下内容仅用于学习和娱乐目的，请勿用于非法或恶意用途。
一、
VBS（Visual Basic Script）是一种可以在Windows系统中运行的脚本语言，它可以实现一些简单的自动化操作。虽然VBS本身并不具备破坏性，但如果被滥用，可能会对他人造成困扰。以下是一些简单且“无害”的VBS代码示例，适合朋友间的小玩笑，但仍需谨慎使用。
这些代码主要通过弹窗、声音提示、重复操作等方式进行“恶搞”，不会对系统造成实质性损害。但在使用前，务必征得对方同意，并确保不会引起不必要的误会或恐慌。
二、表格展示
| 功能描述 | VBS代码示例 | 说明 |
| 弹出多次警告窗口 | ```vbs Set WshShell = CreateObject("WScript.Shell") Do WshShell.Popup "你被恶搞了！", 0, "警告", 48 Loop ``` | 持续弹出警告窗口，直到手动关闭 |
| 声音提示 | ```vbs Set Sound = CreateObject("SAPI.SpVoice") Sound.Speak "你被发现了！" ``` | 发出语音提示，可设置不同语种 |
| 鼠标移动干扰 | ```vbs Set wsh = CreateObject("WScript.Shell") wsh.Run "notepad.exe" WScript.Sleep 2000 Set obj = CreateObject("AutoItX3.Control") obj.MouseMove 500, 500 ``` | 打开记事本后自动移动鼠标位置 |
| 系统信息弹窗 | ```vbs Set oShell = CreateObject("WScript.Shell") oShell.Run "cmd /c start msinfo32", 1, False ``` | 打开系统信息窗口，制造“系统异常”假象 |
| 循环关机提示 | ```vbs Set oShell = CreateObject("WScript.Shell") oShell.Run "shutdown -s -t 60", 0, True ``` | 设置60秒后关机，需提前取消 |