ほんちのらくがきちょう

以前にもちょっと書きましたが、アドエスや03ではキーボードライトのオン／オフをするソフトがあったのですが、HYBRID W-ZERO3では動かなくて仕方なくキーボードライトはオフにしたまま使っていました。

webを散策していると「HyZERO3ブログ」に「HYBRID W-ZERO3で簡単にバックライト輝度調整（暫定）」と言う記事が。
これはキーライトではなくて、画面の輝度を調節するmortscriptですが、設定してみると上手く動作しました。

そこで、キーライトの設定をしているレジストリが分ったらキーライトオン／オフも出来るんじゃないかと思ってレジストリを探してみたら・・・・・・発見！！
[HKEY_LOCAL_MACHINE\ControlPanel\Power]の"KeyboardBacklightEnable"が「設定」-「システム」-「パワーマネージメント」-「キー点灯」の「キーボードの点灯設定」を保存しているっぽい。と言うか多分そう(笑)
dword値が[0]で「OFF」、[1]で「バックライトの設定に従う」に対応していると思われる。



早速、トグル動作のmortscriptを書いてテストしてみた。

----------------------KeylightToggle.mscr---------------------------------ONF=RegRead("HKLM", "ControlPanel\Power", "KeyboardBacklightEnable")
If(ONF=0)
    ONF=1
 Else
    ONF=0
EndIf
RegWriteDword("HKLM", "ControlPanel\Power", "KeyboardBacklightEnable", ONF)
ToggleDisplay(FALSE)
ToggleDisplay(TRUE)
-------------------------------------------------------------------------
レジストリ値を読出して、0と1を切替える。
ToggleDisplayで画面消灯・点灯をする（これをするとキーライトも反映される）
成功！！！！

で、さらに改良すべく「AC-Promenade」のキーライト・トグル(KeyLight_Toggle.mscr)を参考にしつつ、キーライト点灯時と消灯時で画面輝度を変えるようにしてみた。
----------------------KeylightToggle2.mscr-------------------------------
#外部電源でキーライト点灯時の画面輝度
ExKon=2
#バッテリでキーライト点灯時の画面輝度
BtKon=2
#外部電源でキーライト消灯時の画面輝度
ExKof=4
#バッテリでキーライト消灯時の画面輝度
BtKof=3
#現在外部電源かどうかの判定
ExPwr=ExternalPowered()

KLONF=RegRead("HKLM", "ControlPanel\Power", "KeyboardBacklightEnable")
If(KLONF=0)
    KLONF=1
    EBL=ExKon
    BBL=BtKon
 Else
    KLONF=0
    EBL=ExKof
    BBL=BtKof
EndIf

If(ExPwr)
    BL=EBL
 Else
    BL=BBL
EndIf

RegWriteDword("HKLM","ControlPanel\Power","KeyboardBacklightEnable",KLONF)
RegWriteDword("HKCU","ControlPanel\BackLight","ExternalBrightness",EBL)
RegWriteDword("HKCU","ControlPanel\BackLight","BatteryBrightness",BBL)
RegWriteDWord("HKLM","Drivers\BuiltIn\BackLight","Level",BL)
ToggleDisplay(FALSE)
ToggleDisplay(TRUE)
------------------------------------------------------------------------
ちょっと試行錯誤はあったものの、割と簡単にできてしまった・・・・・
ExKon～BtKofの値を書換えれば好みの設定になるかと。