/*
X-Mouse設定ツール

■『X-Mouse』とは
X Window Systemのように、マウスポインター直下のウィンドウを最前面に移動させずに
操作のフォーカスだけを移動する、とってもエレガントな操作性を実現する設定ツールです。
かつてMSがWindows 95のPowerToysやWindows XPのTweakUIで提供していたツールと同じです。
最新のWindows 10でも当然のように使えます。
つーかこういう重要なUI関連の設定はOS標準で設定できるようにしてくれマイク○ソフト……

■導入方法
1. このファイルをダウンロード(名前をつけて保存)する (ブロック解除も)
2. 保存したファイルをダブルクリックして実行し、「はい」を選択する
3. メッセージに従い、ログオフまたは再起動すると設定が適用される

■解除方法
1. もう一回実行してログオフまたは再起動

Windows 8以前なら、以下の操作でも解除可能
コントロールパネル→コンピューターの簡単操作センター→マウスを使いやすく→
「マウスポインターをウィンドウ上に合わせたときにウィンドウを選択」を解除

このプログラムはCC0 PUBLIC DOMAINです。
*/

// マウスオーバー時のフォーカス反応速度 (ミリ秒単位)
T = 200

S = new ActiveXObject("WScript.Shell"),
D = "HKCU\\Control Panel\\Desktop",
r = S.RegRead(D + "\\UserPreferencesMask").toArray(),
B = r[0] & 1 ? "解除" : "設定",
S.Popup("マウスポインターをウィンドウ上に合わせた時、ウィンドウを\n最前面に移動させずにフォーカスだけを切り替えます。\n\n" + B + "しますか？", 0, M = "X-Mouse設定", 3) == 6 || WScript.Quit(),
// Windows 8はレジストリ名が異なる (未公開設定)
S.RegWrite(D + (S.RegRead("HKLM\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\CurrentVersion") != 6.2 ? "\\ActiveWndTrkTimeout" : "\\ActiveWndTrackTimeout"), T, "REG_DWORD"),
// Bit6 = 0 (Auto Raise無効)
r[0] &= 191,
// Bit0 = 1 (Active Window Tracking有効)
r[0] ^= 1,
a = 'REG ADD "' + D + '" /f /v UserPreferencesMask /t REG_BINARY /d '
for (i in r) a += ("0" + r[i].toString(16)).slice(-2)
S.Run(a, 0),
S.Popup(B + "完了\n\nログオフまたは再起動で反映されます。", 0, M)