Helligkeit mit AutoIt einstellen

[autoit]

HotKeySet ("{F1}", "_1")
HotKeySet ("{F2}", "_2")
HotKeySet ("{F3}", "normal")
HotKeySet ("{F4}", "ende")

[/autoit] [autoit][/autoit] [autoit]

$rgb = 128

[/autoit] [autoit][/autoit] [autoit]

Func _2 ()
if $rgb < 286 Then
$rgb = $rgb + 10
_SetGamma($rgb, $rgb, $rgb)
EndIf

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _1 ()
if $rgb > 0 Then
$rgb =$rgb - 10
_SetGamma ($rgb, $rgb, $rgb)
EndIf

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func normal ()
$rgb = 128
_SetGamma ($rgb, $rgb, $rgb)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func ende ()
exit
EndFunc

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep (100)
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _SetGamma($vRed=128,$vGreen=128,$vBlue=128)

[/autoit] [autoit][/autoit] [autoit]

Local $n_ramp,$rVar,$gVar,$bVar,$Ret,$i,$dc

[/autoit] [autoit][/autoit] [autoit]

If $vRed < 0 or $vRed > 386 then
SetError(1)
Return -1 ;Invalid Red value
EndIf

[/autoit] [autoit][/autoit] [autoit]

If $vGreen < 0 or $vGreen > 386 then
SetError(2)
Return -1 ;Invalid Green value
EndIf

[/autoit] [autoit][/autoit] [autoit]

If $vBlue < 0 or $vBlue > 386 then
SetError(3)
Return -1 ;Invalid Blue value
EndIf

[/autoit] [autoit][/autoit] [autoit]

$dc = DLLCall("user32.dll","int","GetDC","hwnd",0)
$n_ramp = DllStructCreate("short[" & (256*3) & "]")

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 to 256

[/autoit] [autoit][/autoit] [autoit]

$rVar = $i * ($vRed + 128)
If $rVar > 65535 then $rVar = 65535
$gVar = $i * ($vGreen + 128)
If $gVar > 65535 then $gVar = 65535
$bVar = $i * ($vBlue + 128)
If $bVar > 65535 then $bVar = 65535

[/autoit] [autoit][/autoit] [autoit]

DllStructSetData($n_ramp,1,Int($rVar),$i) ;red
DllStructSetData($n_ramp,1,Int($gVar),$i+256) ;green
DllStructSetData($n_ramp,1,Int($bVar),$i+512) ;blue

[/autoit] [autoit][/autoit] [autoit]

Next

[/autoit] [autoit][/autoit] [autoit]

$ret = DLLCall("gdi32.dll","int","SetDeviceGammaRamp", _
"int",$dc[0],"ptr",DllStructGetPtr($n_Ramp))

[/autoit] [autoit][/autoit] [autoit]

$dc = 0
$n_Ramp = 0

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit]