101个vbs恶搞代码（制作不易，求点赞）

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秒钟随机调整系统音量的大小。这样会给用户带来不可预测的声音体验，可能导致用户不安和困惑。）