Question

如何使用VBScript或批处理文件反转窗口？它不需要反转它可能是另一种效果，如灰度。我需要让它看起来有点像迪斯科这样的循环。我还没有尝试使用批处理文件，因为我还是初学者。我也是VBScript的初学者。我试过了;

windows.color.invert

我尝试了Windows 10快捷方式

Set wshShell =wscript.CreateObject("WScript.Shell") 
do 
wscript.sleep 100 
wshshell.sendkeys "{CTRL}"
wshshell.sendkeys "{WINDOWS}"
wshshell.sendkeys "{C}"
loop

我可以这样做但它会打开并显示它。它也可能会因循环而崩溃。

set shell = CreateObject("WScript.Shell")
shell.run"ms-settings:easeofaccess-highcontrast"
WScript.Sleep 2500
shell.SendKeys" "
WScript.Sleep 1500
shell.SendKeys"%{F4}"
WScript.Sleep 1000

我不确定我是否正确按下了按钮，但我也试着写控件。请帮助（我不知道如何编码好。）

Answer 1

使用注册表编辑器，可以在打开放大镜时更改放大镜取反值。

set append=00000001
set key=HKEY_CURRENT_USER\Software\Microsoft\ScreenMagnifier
set value=Invert
set oldVal=0
for /F "skip=2 tokens=3" %%r in ('reg query %key% /v %value%') do set 
oldVal=%%r
echo previous=%oldVal%
set newVal=%oldVal%%append% 
reg add %key% /v %value% /d %newVal% /f /t REG_DWORD
pause

如何使用VBScript或批处理文件反转窗口颜色？

1 个答案: