X02HT IE Mobileのショートカットキー書き込み用スクリプト

やっつけMortscriptその３。
KzouさんとこのIE Mobileのショートカットキーの記事にあるレジストリを
一度にすべて書き込むスクリプトです。
環境再構築の際にひとつずつ入れるのがめんどくさいのでスクリプトにしました。
HKLMに入ってるので、セキュリティアンロックをしてないと書き込めませんよ。

If(Question("IE Mobileのテンキーショートカットを有効にしますか？","IE Mobile Shortcuts",YesNo)) RegWriteDword( "HKLM", "Software&Yen;Microsoft&Yen;Internet Explorer&Yen;KeyMaps", "48", 12 ) RegWriteDword( "HKLM", "Software&Yen;Microsoft&Yen;Internet Explorer&Yen;KeyMaps", "49", 13 ) RegWriteDword( "HKLM", "Software&Yen;Microsoft&Yen;Internet Explorer&Yen;KeyMaps", "50", 1 ) RegWriteDword( "HKLM", "Software&Yen;Microsoft&Yen;Internet Explorer&Yen;KeyMaps", "51", 3 ) RegWriteDword( "HKLM", "Software&Yen;Microsoft&Yen;Internet Explorer&Yen;KeyMaps", "52", 5 ) RegWriteDword( "HKLM", "Software&Yen;Microsoft&Yen;Internet Explorer&Yen;KeyMaps", "53", 7 ) RegWriteDword( "HKLM", "Software&Yen;Microsoft&Yen;Internet Explorer&Yen;KeyMaps", "54", 6 ) RegWriteDword( "HKLM", "Software&Yen;Microsoft&Yen;Internet Explorer&Yen;KeyMaps", "55", 9 ) RegWriteDword( "HKLM", "Software&Yen;Microsoft&Yen;Internet Explorer&Yen;KeyMaps", "56", 2 ) RegWriteDword( "HKLM", "Software&Yen;Microsoft&Yen;Internet Explorer&Yen;KeyMaps", "57", 4 ) RegWriteDword( "HKLM", "Software&Yen;Microsoft&Yen;Internet Explorer&Yen;KeyMaps", "119", 10 ) RegWriteDword( "HKLM", "Software&Yen;Microsoft&Yen;Internet Explorer&Yen;KeyMaps", "120", 11 ) Endif

いつものとおりメモ帳にコピペして、「○○.mscr」なんて名前で保存して、
MortscriptをインストールしてあるX02HT上で動かせばOK。
ソフトリセットは必要ありませんが、適用させるためにはIE Mobileを再起動させる必要があります。


ちなみにショートカットキーの操作ですが

【キーマップ】 　0: "全画面表示" 　1: "画像を表示する"(トグル) 　2: ページのアップ (デフォルトで設定済み) 　3: ページの最上部 　4: ページの左へ("一列に表示する"以外) 　5: ページの最左へ("一列に表示する"以外) 　6: ページの右へ("一列に表示する"以外) 　7: "画面に合わせる" 　8: ページの下へ (デフォルトで設定済み) 　9: ページの最下部 　*: "表示調整しない" 　#: "一列に表示する"

というふうになります。
一度これに慣れると、IE Mobileが手放せなくなります^^;


【08/03/05 00:38】スクリプトを修正しました。