Тема: AHK: Регулировка яркости подсветки монитора
Пытаюсь разобраться, не получается. Подскажите кто знает.
Сделал так:
VarSetCapacity(VIDEOPARAMETERS, 16+21*4+256, 0)
NumPut(0x02C62061,VIDEOPARAMETERS,0)
NumPut(0x11D11097,VIDEOPARAMETERS,4)
NumPut(0xA0000F92,VIDEOPARAMETERS,8)
NumPut(0x6E15DF24,VIDEOPARAMETERS,12)
dwOffset = 0
dwCommand = 1
dwFlags = 0xffffffff ;all
dwBrightness := 88
NumPut(dwOffset, VIDEOPARAMETERS, 16)
NumPut(dwCommand, VIDEOPARAMETERS, 20)
NumPut(dwFlags, VIDEOPARAMETERS, 24)
NumPut(dwBrightness, VIDEOPARAMETERS, 72)
CDS_VIDEOPARAMETERS := 0x00000020
hwnd := 0
VarSetCapacity(devmode,156,0)
NumPut(156, devmode,36)
err := DllCall( "ChangeDisplaySettingsExA", Str, "\\.\Display1", UInt,&devmode, UInt,hwnd, UInt,CDS_VIDEOPARAMETERS, UInt,&VIDEOPARAMETERS)
dwFlags := NumGet(VIDEOPARAMETERS, 24)
dwBrightness := NumGet(VIDEOPARAMETERS, 72)
MsgBox ErrorLevel = %ErrorLevel%, err = %err%, dwBrightness = %dwBrightness%, dwFlags = %dwFlags%
Loop, 89
{
Index := -1 + A_Index
Index *= 4
str := NumGet(VIDEOPARAMETERS, Index)
mess = %mess%%Index% - %str%`n`r
}
MsgBox %mess%
Ничего не происходит, яркость не меняется!