AutoHotkey スレッド part7

AutoHotkey スレッド ..

527:名無しさん＠お腹いっぱい。
09/03/23 12:36:56 WUKQO+dS0
＜＜　>>526の続き　＞＞

;WU_ の Default に↓の２行を追記する。
gosub, CursorUnderActivate
Send,{WheelUp}

;WD_ の Default に↓を２行を追記する。
gosub, CursorUnderActivate
Send,{WheelDown}

;MG_User.ahk をテキストエディタで開き、以下を「サブルーチン定義」内にコピペ
;マウスカーソル下をアクティブにする関数
CursorUnderActivate:
MouseGetPos,,, m_id, m_control
WinGetClass, m_class, ahk_id %m_id%
;マウスカーソル下がコンボボックス(ドロップダウンリスト)ならreturn
If(RegExMatch(m_control, "ComboLBox\d+"))
return
;マウスカーソル下が非アクティブならアクティブ化
IfWinNotActive, ahk_id %m_id%
{
SetWinDelay,-1
WinActivate
SetWinDelay,100
}
return

;これで支障が出るなら>>517の方法がいいと思う。

528:名無しさん＠お腹いっぱい。
09/03/23 12:39:05 WUKQO+dS0
あ、ウィンドウクラスは必要ないので↓は要らないや・・・
WinGetClass, m_class, ahk_id %m_id%

529:名無しさん＠お腹いっぱい。
09/03/23 12:40:24 WUKQO+dS0
×;マウスカーソル下をアクティブにする関数
○;マウスカーソル下をアクティブにするサブルーチン

530:名無しさん＠お腹いっぱい。
09/03/23 13:54:01 1ZxaOcnN0
>>525
K　SC　Type　Up/Dn　Elapsed　　　Key
------------------------------------------------
7C　064　　i　　　u　　　　0.04　　　　F13
7D　065　　i　　　u　　　　0.04　　　　F14
7E　066　　i　　　u　　　　0.04　　　　F15
7F　067　　i　　　u　　　　0.04　　　　F16
80　068　　i　　　u　　　　0.04　　　　F17
81　069　　i　　　u　　　　0.04　　　　F18
82　06A　　i　　　u　　　　0.04　　　　F19
83　06B　　i　　　u　　　　0.04　　　　F20
84　06C　　i　　　u　　　　0.04　　　　F21
85　06D　　i　　　u　　　　0.04　　　　F22
86　06E　　i　　　u　　　　0.04　　　　F23
87　076　　i　　　u　　　　0.04　　　　F24

531:名無しさん＠お腹いっぱい。
09/03/24 23:15:50 mXwaygr80
多重起動を検知したくて以下のようにしたんだけど、
除外タイトルって効いて無い
それともPIDとかでの除外は無理なのかな

#SingleInstance, OFF
Process, Exist
myPid:=ErrorLevel
DetectHiddenWindows,On
IfWinExist, %A_ScriptFullpath% ahk_class AutoHotkey,,ahk_pid %myPid%
　MsgBox, あり
Else
　MsgBox, なし

532:名無しさん＠お腹いっぱい。
09/03/25 01:46:19 zeEEOJ2T0
>>531
>>144,147,153

前々スレに多重起動検知で終了とかはあったよ。
タイトルが一緒でPIDが違うならで、判別してた。

一部だけ引用
;自分の情報を取得
DetectHiddenWindows, On
Process,Exist
pid:=ErrorLevel
WinGetTitle, g_scriptTitle, ahk_pid %pid%
WinGet, hwnd, id, ahk_pid %pid% ahk_class AutoHotkey
;ahk_class AutoHotkeyのウィンドウを全て列挙
WinGet, ahk_id_list, list, ahk_class AutoHotkey
Loop, %ahk_id_list%{
this_id:=ahk_id_list%a_index%
ahk_id_list%a_index%=
WinGetTitle, this_title, ahk_id %this_id%
if(g_scriptTitle==this_title && hwnd!=this_id){ ;自分以外で同じタイトルを見つけたら終了メッセージを投げる。

533:名無しさん＠お腹いっぱい。
09/03/25 08:36:04 zeEEOJ2T0
暇だったから、作ってみた。あまりの使えなさに吹いたｗ
#persistent
CoordMode, Mouse, Screen
Settimer, Expose
return

Expose:
MouseGetPos, X, Y
if (Y<1){
;左右に並べて表示
SendMessage,0x111,405,,,ahk_class Shell_TrayWnd
keywait, LButton, D
KeyWait, LButton
;元に戻す
SendMessage,0x111,416,,,ahk_class Shell_TrayWnd
Loop
{
MouseGetPos, X, Y
if (Y>2)
break
}
}
return

534:名無しさん＠お腹いっぱい。
09/03/25 13:01:45 UMyjgm290
>>525
俺はchangekeyでF13を割り当ててるよ。