MORTSCRIPT

スマフォ用が動きますね。
ekitanは動かないみたいだけど。

というわけで、kzouさんのところに載っていたバックライトの輝度切り替えをスクリプトで書いてみましたが、これちゃんとそのまま載るのかしら（w

x = RegRead( "HKLM", "Software\Drivers\VPD", "RestricBacklight" )
Switch( x )
Case( 0 )
RegWriteDWord( "HKLM", "Software\Drivers\VPD", "RestricBacklight", 1 )
Case( 1 )
RegWriteDWord( "HKLM", "Software\Drivers\VPD", "RestricBacklight", 0 )
EndSwitch

マニュアル見たら５分で書けるスクリプトです。
メッセージとか出ません。
トグルします。
スクリプト実行後AC挿すとかしないと切り替わりません

お約束ですが自己責任。

再配布、改変、ご自由に。