TrackWheel

TrackPointのは便利なんだけど、中ボタンが使えないのはもったいない！ でも、いちいちタスクトレイから切り替えるのも面倒だ。

AHKでトレイアイコンを操作するスクリプトを使ってもいいが、 一瞬メニューがでるし、何しろ1ステップ多いのが嫌だ！

と言う人向け。普通のマウスだとあまり便利でないかもしれない。 (マウスを普段使っていないので試してない)

主機能

• 中ボタンを押してマウスポインタを移動しようとすると、マウス移動量に応じて縦横スクロールを行う。
• 中ボタンを押して一定時間以内(デフォルトの場合 300ms)の場合なら中ボタンクリックとなる

副機能

• フォーカスが合っていなくてもスクロールさせることが出来る
• ボタン押下地点に例のアイコンが表示される。
• スクロール中マウスカーソルは見えない。
• 操作対象別の動作調整が可能。
• 互換ホイール(WM_VSCROLL)で動かしていても [Ctrl] or [Shift] 押下中は WM_MOUSEWHEELを送ることで拡大/縮小などが出来る

まぁ、一応ってことで。以下が必要

• Autohotkey v1.0.47.06 以降の Dynamic Function をサポートしたもの。
  駄目文字微対策版を利用している人は、新しいのを出してくれたぞ。ありがたくDL汁。
• NT系の Windows OS (2000 とか XP で 多分 32ビット版でないと無理だと思う)。
  Vista については分からない。

単品利用のばあいを記載する。

1. トラックポイント等を利用して独自のスクロール機能を利用しているなら停止する
2. アーカイブをフォルダ構成を維持して展開する
3. 出来たフォルダの中にある TW.ahk をそのまま実行する
4. 動作が気にくわないなら、同フォルダにある TW.ini を編集して、 もう一度 TW.ahk を実行する。(特に停止したりしなくても良い)
5. やめたいときはトレイアイコンをクリックして終了を選ぶ

テキストエディタ(メモ帳なのかっ！)で設定ファイル(デフォルトでは TW.ini) を開く。 そこに説明が書いてあるのでよく読んで編集すること。

編集が終わったらスクリプトを再起動する。よく分かんないときは、Appendix でも読んでくれ。

フォントは MSゴシック とかの等幅フォントを使わないと大変なことに。

ここは 設定ファイル(デフォルトでは "TW.ini" ) の [connfig セクションをについて説明をする。

Button

本機能を割り当てるマウスボタンを指定する。 LButton, RButton, MButton, XButton1, XButton2 からいずれかを選んで記載する。

Timeout

ボタンを押して離すまでの時間で、通常マウスクリックと判断する時間。ミリセカンド(1/1000秒)単位で指定する。 ここで指定した時間以内にボタンを離した場合は通常のマウスボタンクリックと同じ命令を送る。 超えた場合は、マウスクリック命令は送らない。

Icon

ボタンを押している間に表示されるアイコンのパス。

debug

デバッグモード用のフラグ。未指定または"0"を指定した場合は無効、それ以外は有効となる。

Bypass

バイパスコントロール設定。正規表現で指定する(エンジンはAHKのデフォルトのもの)。 詳細は次項以降を参照のこと。

デバッグモードをOnにして機能を利用するとスクロール対象のクラス以外に以下の情報が取得できる。 これをみて色々把握しないと設定が出来ないので頑張って理解してくれ。

①各方向へのスクロール方法

Wheel, Scroll, VKey のいずれかを選択したかと、 方向逆転(~)が表示される。(基本的に設定ファイルの文字列がそのまま出る)

②スクロール量の算出に必要な数値群

動作感度、動作閾値、ページモード閾値のそれぞれX軸、Y軸のものが表示される。未設定の場合はデフォルト値が出る。

③移動量とスクロール行数

X軸・Y軸のそれぞれの単位時間あたりの原点(ボタン押下座標)からの 移動量(dx/dt, dy/dt)とそれが行数に変換されたものが表示される。

上段の移動量は、②の数値群を用いて下段のスクロール行数に変換される。

デバッグモードにすると、縦横各方向のスクロール方法が表示される。 スクロール方法は以下から選択する。

Wheel

チルトホイール(横)、ホイールコロコロ(縦)、をエミュレートする。

ここ２～３年に出たアプリでないとチルトは対応していない事が多い。 要はXP世代のアプリじゃ無理ってこと。 逆にOSがXPでも FireFox3 や Google Chrome、OpenOffice3 のようにチルトエミュレートで動くものもある。

Scroll

縦横のスクロールバーをのサム(ドラッグできる"つまみ")を操作したことをエミュレートする。

ダイレクトにスクロールバーの位置を変える命令を送るので Scroll2 よりレスポンスが良い。

今のところ、ListView系や、特定のアプリケーション(Visio2003など)では動作しない。

「スクロールバーだけ動いている」状況に遭遇したらこの方式では動かないので、以下の "Scroll2" を利用すること。

Scroll2

縦横のスクロールバーの上下(または左右)の[▲][▼]ボタンを押したことをエミュレートする。

Windowsのコモンコントロールは大抵これでOK。

Wheelよりレスポンスが割合良い場合が多い。(間違いかもしれない)

[▲][▼]ボタンを押す命令を数度(ページモード閾値を上限とする)押すので、のでアプリケーションによっては反応が悪い。

マルチプラットフォーム(Java系とか)のアプリはたいがい駄目な事が多い。

VKey

Left/Right, Up/Down キーを押したことをエミュレートする。移動量に応じた加速はしない。

最終手段。キャレット(文字入力カーソル)があるところではキャレットが移動してしまう諸刃の剣。

スクロールバーが見つかった場合は VKey はそちらに送るので、多分キャレットは動かない。(デフォルトの Word 2002 用設定で利用)

上記以外

全くスクロールしないので、スペルミスとかに注意(大文字小文字は関係ない。というか内部で先頭だけ UpperCase にしてしまう)。

敢えて none とかにしてスクロールさせないのも手。(Dynamic Function を利用してる)

これを理解する上で以下の数値が必要となる。よく読んで、適当に設定するように。

動作閾値 (TX, TY)

いわゆる「遊び」である。

小さな移動量でスクロールしていたらちょっと触れただけでもすぐに移動してしまい都合が悪い。 デフォルトでは X軸は10、Y軸は 1 を設定してある。 これにより縦スクロール中にあまり横スクロールをしなくて済む。

動作閾値は X,Y軸それぞれに値がある。更に、操作対象毎の設定も可能である。

この図では、X軸方向へは閾値を超えていないので、行数は0行と算出されれている。

動作感度(SX, SY)

移動量をどうスクロール量に反映させるかを計算する時に用いる数値である。 計算式は以下の通り。

つまり小さいほどピンキーで、大きいほど鈍い。(1 や 2 、逆に 100 や 200 だと実用にならないはず。)

※ 動作閾値を補正するのは、動作閾値を超えた瞬間に大きくスクロールしないようにするため

行数 = Round((移動量-動作閾値分の補正) / 動作感度)

「ま、なんて単純！」と思ったアナタ。まーこんなもんですよ。 あと、見ても分かるとおり、0 を設定したらゼロ除算でこけますので注意。

ページモード閾値 (PX, PY)

これは "Scroll2" を利用したときのみに利用される数値である。 "Scroll2" を利用した場合どのような動作をしているかというと、 スクロールバーの[▲]を上で算出した行数分だけ押すのをエミューレートしている。

これが結構チマチマとしかスクロールしないし、多くの行をスクロールさせようとした場合には たくさんの命令をループで回して送らなければならないので重くなる。

で、なにを言いたいかというと、スクロールバーの「ボタン([▲][▼)」]や 「つまみ」（移動する棒状のやつ）以外の部分をクリックすると一気にページ毎の スクロールに変わるわけだが、それに切り替えるための閾値である。

デフォルトでは縦・横ともに8となっている。 8回以上[▲]押すくらいなら一気に１ページスクロールしてしまえ！ってことである。

通常、ボタン (Button) とかテキストトラベル (Static) なんつークラスは、 どうせスクロールなんてしない。でもマウス直下にあると無視できない。

と言うわけで、これらの上位の(見た目上は下側に隠れた)コントロールに制御を渡したい。そんなときに使うのがバイパス。

設定ファイル内では Bypass に設定をするが、正規表現 での設定なので分からない場合はいじらぬが吉である。

この図ではうまいことにスクロールできるコントロールまでたどり着いている。 というか、クラス名が長すぎて TrayTip が切れている。今気づいたが見なかったことにしよう...

全くの余談だが、この後このプロセスが 1.5GB メモリを消費していたので速攻殺してやった。悪名高い Catalyst である...

スクロールしないところがある！

動かしかたが分かりません。 設定を Wheel とか VKey にしてやってください。 それでも無理なら諦めて...

Word2002とかエクスプローラに左ペインなんて全く分からない...

別のスクロールバーに誤爆してる！

多分Office系だと思う...。座標だけで割り出すのは限界が...

なんか、動きがもっさりしてる...

仕様です。一応、グローバル変数の TW_PRIORITY_HIGH の値を真にすると 機能実行中だけプロセスの優先度を「高」にしたりする機能があったり無かったり...

スクロール実施中は他のマウスボタンのホットキーは効かない。

仕様です。マウスフックですから...

他のAHK等のフックプロセスがある場合、本スクリプトのフックが効かない事がある

仕様です。アプリケーションレベルのフックはフックは後勝ちなのかな？スクリプトを再起動するといいかも。

マウスポインタが消えないときがあるんだけど・・・

多分他のユーザのプロセス(スレッド)のはず。

ファイル名を指定して実行とかのダイアログのインクリメンタルサーチの部分はシステムプロセスだったり・・・

ボタン押しても例のアイコンが出ないしスクロールが出来ないんだけど...

フック処理に失敗していると思われる

デバッグを On にするとマイドキュメントにエラーログを吐くはず

ボタン離しても例のアイコンが消えないんだけど...

大変危険な状態です。 対象ウィンドウに色々メッセージを送っている最中にハングしているものと見られるので利用を止めましょう。

パワーポイントのノート欄(下ペイン)とは激しく相性が悪いです...

対処法なんてわかりません。素人が作ったものなんで。

TW.ahk をインクルードする。なるべくAutoexecブロック内には書かないように。 (関数ライブラリスクリプトとして利用する場合はこの宣言は必要ない。)

#Include, hoge\TW.ahk

初期化関数を呼び出す。普通は Autoexec ブロックに記載する。

TW_Initialize()

設定ファイルを明示的に指定したい場合は、引数で指定する。

なお、設定ファイルはデフォルトで 初期化関数が呼ばれた時点のカレントディレクトリ 内にある "TW.ini" を見に行くので、色々やっている人は注意。

TW_Initialize("hoge.ini")

設定ファイルの Button の定義を外して(空にする)、 自スクリプト内で、ホットキー登録をする。

; 例1) 発動条件をIf文で指定する場合
; AutoExecブロックで初期化する
TW_Initialize()

; ホットキー設定をする
$*MButton::
  if (a condition)
    TW_HotkeyStart() ; ホットキーでの開始用関数を叩く
  else if (another conditon)
    ～～～
  else
    Send, {Blind}{MButton}
  return

; 例2) IfWinActive 等を利用する場合
#IfWinActive, HogeApp
*MButton::TW_HotkeyStart() ; ホットキーでの開始用関数を叩く

終了後に呼ばれるサブルーチンを設定すれば良い。 グローバル変数 TW_POSTACTION にサブルーチンラベルを設定すれば、 TrackWheel側からコールを行う。

※ このグローバル変数は初期値なしである。

; Autoexecブロックでサブルーチンラベルの設定をする。
TW_POSTACTION = SomeLabel
TW_Initialize()

; 任意の場所にサブルーチンラベルをかく
SomeLabel:
  タイムアウトしなかった時の処理
  return

なお、以下のコードは意図した（？）とおりに動かない。 おそらく常に If 文は真となる。 スクロール開始処理と、スクロール実体処理、およびスクロール終了処理は別スレッドで動くため、 開始処理自体はフラグを立てる様なもので、あまり時間はかからないからである。

*MButton::
  TW_HotkeyStart()
  if (A_TimeSinceThisHotkey < 300)
    タイムアウトしなかった時の処理
  else
    タイムアウトしたときの処理
  return

マウスボタン押下で機能のON/OFFをトグルする場合は、以下のようにする。この方式はマウスボタン専用である。

MButton::TW_HotkeyToggle() ; トグル用の開始関数を叩く

需要はないと思うが、キーボードの場合は上を使わないで以下のようにする。 この方式はキーボード専用である。

#Space::TW_HotkeyToggleByKey() ; キーボード用のトグル関数を叩く

こんな感じ

• 低レベルマウスフックを使って、WM_MOUSEMOVE, および WM_(L/R/M/X)BUTTONUP を拾っている
• 機能開始は Autohotkeyのフックをトリガーにする
• Ahkの変数 A_ThisHotkey から然るべきマウス押上メッセージ(=終了メッセージ)にする
• 開始時に新たにマウスをフック (SetWindowsHookEx) して上記メッセージを拾うようにする
• WM_MOUSEMOVEでは、dx,dy を計算したら全てDropしする。(このためマウスは動かない)
• 数回分(デフォルトは4)の dx,dy を合算してスクロール処理関数に渡す。
• でもスクロール処理が終わる前に次のマウス移動が来るのは必至なので再度自分に別メッセージでPOSTする。
• なので、多分いくらかのメッセージは無視されていると思われる。
• 予め定義した終了メッセージを拾ったら(メッセージはDrop)、タイマで終了スレッドを呼ぶ
• 終了スレッドではフックの解放などをする。その後経過時間をみて戦後処理(Send, xxx)とかをする

こんな感じ

• Win32APIの GetScrollInfo を該当コントロールに投げてコントロール自体がスクロール出来るかを見る
• 無理だったら配下のスクロールバーコントロールを探す。無ければもう１ノード上がってみる。
• スクロールバーコントロールかどうかは上記APIで調べる。縦か横かは SBS_VERT をウィンドウスタイルから見る
• 上記の２つでスクロール出来るなら "Scroll" とする、駄目なら "Wheel" とする。
• ただし、デフォルト設定($Defaut,$Defaut)は上記に優越する。
• 更に、個別設定設定は上記に優越する。

最初は常時 Mouse Hook On で考えて作ってたんだけど、AHKのマウスフックが全く効かなくなるのが痛かった。 じゃあ、別の単体スクリプトにしてメインスクリプトからメッセージ送るって方法をやったけど、

結構苦労した。コード量は大したことがないけど大変な作業だった...。そのときの考察したメモ。 もし、読む気があるなら、、、添付の "窓調査.ahk" を利用するとわかりやすいはず。

OpenOffice.org などの Java 系のアプリは中身が Windows の汎用コンポーネントを使っていないので、 内部構造が全く取得できない。調査ツールの画面を見れば一目瞭然である。

コマンドプロンプトも同じ。

まぁ、でも今の判定ルーチンだと Unknown は Wheel + Wheel になるのでコイツらは無問題。

むやみに変えないでね。ただでさえ不安定なので。 TW_TARGET_XXX は大抵デバッグに出しているはず。

変数名	型(?)	説明
TW_ASSIGNED	Str	アサインされたホットキー名
TW_BYPASS	Str	バイパス対象クラス設定
TW_BYPASS_CLASSES	Str	バイパスされたクラスリスト(改行区切り)
TW_CALLBACK_HWND	Handle	コールバック対象のウィンドウハンドル(GUIのウィンドウハンドル)
TW_CONFIG_FILE	Str	設定ファイルパス
TW_DEBUG	Bool	デバッグフラグ
TW_DEFAULT_OPTION	Str	デフォルトオプション
TW_DEFAULT_PX TW_DEFAULT_PY	Int	デフォルトのページモード閾値
TW_DEFAULT_RULE_H TW_DEFAULT_RULE_V	Str	デフォルトのスクロールルール
TW_DEFAULT_SX TW_DEFAULT_SY	Int	デフォルトの動作感度
TW_DEFAULT_TX TW_DEFAULT_TY	Int	デフォルトの動作閾値
TW_DIFF_ACCUM_COUNT	Int	差分蓄積回数。マウスフックプロシージャで利用。マウスが動く度にスクロールにしていたら埒があかないのでこの回数分ためてからスクロールに変換する
TW_GUINO	Int	GUI番号
TW_HIDE_MOUSE	Bool	マウスカーソルを消すかどうかのフラグ。動きが怪しいならこれを常時OFFにすべき。
TW_HOTKEY_NAME	Str	機能を発動したホットキー名。TW_ASSIGNED とどう違うのと聞かれると痛い。でもやっぱり違う。
TW_HOTKEY_START	Int	ホットキーで機能を開始したOS経過時間(A_TickCount)。
TW_ICON	File	アイコンパス
TW_MOUSE_PROC	Handle	マウスフックプロシージャのハンドル。消すとマズい。
TW_MOUSEHOOK	Handle	マウスフックのハンドル。動作中だけ値が入っている(はず)。Unhookに失敗したら残る。
TW_MSG_CALLBACK	Msg	コールバックに利用するメッセージ番号。消すとマズい。
TW_MSG_STOP	Msg	マウスフックを停止させる、ウィンドウメッセージ(マウス系に限る)。ボタン押下時に決定する
TW_MY_THREAD	ThreadId	自分自身のスレッドId
TW_POSTACTION	Str	後処理用サブルーチンラベル名。デフォルトは空。 IsLabel()でチェックして、後処理関数内で参照して呼び出す。
TW_PRIORITY_HIGH	Bool	動作時に優先度を上げる場合に true にする。 デフォルトは未設定(偽)
TW_REVERSE_H TW_REVERSE_V	Bool	方向反転フラグ。要はルールに "~" が付いたやつ
TW_SCROLL_FUNCH TW_SCROLL_FUNCV	Str	スクロール関数名(の接尾辞)
TW_SCROLLINFO_H TW_SCROLLINFO_V	Struct	WM_HSCROLL, WM_VSCROLL を行う時に必要なの情報を格納した構造体
TW_TABLE	Str	個別設定情報格納テーブル(CSVをそのままメモリに)。 MsgBox, %TR_TABLE% とかで確認できる。 ボタン押下後にこいつを展開して、TW_TARGET_XXX にする。
TW_TARGET_CLASS_CTRL TW_TARGET_CLASS_WIN	Str	操作対象ウィンドウ/コントロールのクラス名
TW_TARGET_HANDLE_CTRL TW_TARGET_HANDLE_WIN	Handle	操作対象ウィンドウ/コントロールのウィンドウハンドル
TW_TARGET_PX TW_TARGET_PY	Int	操作対象のページモード閾値
TW_TARGET_SBH TW_TARGET_SBV	Int	操作対象スクロールバーのウィンドウハンドル 廃止→ 構造体 TW_SCROLLINFO_H, TW_SCROLLINFO_V で吸収
TW_TARGET_SCROLLH TW_TARGET_SCROLLV	Int	操作対象スクロールバーの親ウィンドウハンドル 廃止→ 構造体 TW_SCROLLINFO_H, TW_SCROLLINFO_V で吸収
TW_TARGET_SX TW_TARGET_SY	Int	操作対象の動作感度
TW_TARGET_THREAD	ThreadId	操作対象のスレッドID。動作中だけ値が入っている(はず)。デタッチに失敗したら残る。
TW_TARGET_TX TW_TARGET_TY	Int	操作対象の動作閾値
TW_TARGET_X TW_TARGET_Y	Int	開始時点のマウス座標
TW_TIMEOUT	Int	ホットキータイムアウト時間

Type SCROLLINFO {
	type       UShort(2bytes)  ; スクロールバーの種別 (SB_HORZ | SB_VERT | SB_CTL)
	hScrollBar UInt  (4bytes)  ; スクロールバーのウィンドウハンドル
	hTarget    UInt  (4bytes)  ; スクロールメッセージを送るコントロールのウィンドウハンドル
} ... 10 bytes