Как инвертировать цвета окон с помощью VBScript или Batch-файла?

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