如何用VBScript或批处理文件实现Windows颜色反转及动态特效？

嘿，作为VBScript和批处理新手，你之前尝试的思路方向没问题，但快捷键模拟的逻辑没理顺，容易出现弹窗甚至崩溃。下面给你两种更稳定的方案，分别用VBScript和批处理实现，不用额外工具，完全依赖Windows自带功能。

方案一：VBScript（注册表修改法，最稳定） #

直接修改Windows注册表来切换高对比度模式（包含反转、灰度等特效），不会弹出设置窗口，响应速度快。

完整代码 #

Set wshShell = CreateObject("WScript.Shell")
Set reg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

' 定义要循环的特效：每个元素是[Flags值, 高对比度方案名称]
' 你可以先手动设置特效，然后去注册表看对应的值（路径：HKCU\Software\Microsoft\Windows\CurrentVersion\Accessibility\HighContrast）
Dim effects(3)
effects(0) = Array("12", "")          ' 关闭所有特效
effects(1) = Array("12", "High Contrast #1") ' 颜色反转
effects(2) = Array("12", "High Contrast #2") ' 灰度模式
effects(3) = Array("12", "High Contrast #3") ' 黑底白字高对比度

Const HKCU = &H80000001
Const regPath = "Software\Microsoft\Windows\CurrentVersion\Accessibility\HighContrast"

Do
    For i = 0 To UBound(effects)
        ' 更新注册表参数
        reg.SetDWORDValue HKCU, regPath, "Flags", CInt(effects(i)(0))
        reg.SetStringValue HKCU, regPath, "HighContrastScheme", effects(i)(1)
        
        ' 通知系统立即应用新设置
        wshShell.Run "rundll32.exe user32.dll,UpdatePerUserSystemParameters", 0, True
        
        WScript.Sleep 2000 ' 每个特效停留2秒，可自行修改（单位：毫秒）
    Next
Loop

使用说明 #

1. 先手动打开「设置-轻松使用-高对比度」，切换不同的方案，然后打开注册表编辑器（regedit），找到路径HKCU\Software\Microsoft\Windows\CurrentVersion\Accessibility\HighContrast，记录每个方案对应的HighContrastScheme字符串值，替换代码里的名称（比如你的系统可能叫「反转颜色」而不是「High Contrast #1」）。
2. 把代码保存为DiscoEffects.vbs，双击运行即可。
3. 停止脚本：打开任务管理器，找到wscript.exe进程结束它。

方案二：批处理（同样基于注册表） #

如果你更习惯批处理，可以用下面的代码，逻辑和VBScript一致，只是语法不同。

完整代码 #

@echo off
setlocal enabledelayedexpansion

:: 定义特效列表：格式为「Flags值,高对比度方案名称」
set "effects[0]=12,"
set "effects[1]=12,High Contrast #1"
set "effects[2]=12,High Contrast #2"
set "effects[3]=12,High Contrast #3"

:loop
:: 循环每个特效
for /l %%i in (0,1,3) do (
    :: 拆分当前特效的参数
    for /f "tokens=1,2 delims=," %%a in ("!effects[%%i]!") do (
        :: 修改注册表Flags值（控制高对比度开关）
        reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Accessibility\HighContrast" /v Flags /t REG_DWORD /d %%a /f >nul
        :: 修改高对比度方案名称
        reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Accessibility\HighContrast" /v HighContrastScheme /t REG_SZ /d "%%b" /f >nul
    )
    :: 刷新系统设置，立即生效
    rundll32.exe user32.dll,UpdatePerUserSystemParameters
    :: 特效停留2秒，可修改
    timeout /t 2 /nobreak >nul
)
goto loop

使用说明 #

1. 和VBScript一样，先确认你的系统里高对比度方案的名称，替换代码里的对应值。
2. 保存为DiscoEffects.bat，双击运行。
3. 停止脚本：直接关闭命令提示符窗口即可。

新手注意事项 #

• 测试时可以把停留时间改短（比如VBS里的2000改成500，批处理里的2改成1），快速看效果。
• 建议先备份注册表的HighContrast项：打开regedit，找到对应路径，右键「导出」保存，万一设置出问题可以双击备份文件恢复。
• 如果你还是想用快捷键模拟的方法（不推荐，容易出错），可以把之前的脚本里的SendKeys逻辑调整为先确保设置窗口激活，比如用wshShell.AppActivate，但注册表方法显然更可靠。

内容的提问来源于stack exchange，提问作者King_Legendary11