告知欄です
1- レス

スクリプト質問スレッド


[125]unnamed.ahk:05/09/13 02:21 ID:???
>>123
F12::SimpleTaskChange()
SimpleTaskChange()
{
    WinGet, activePId, PId, A
    WinGet, List, List
    Loop, %List%
    {
        hwnd := List%A_Index%
        WinGet, pId, PID, ahk_id %hwnd%
        if(pId == activePId)
            continue
        WinGetClass, className, ahk_id %hwnd%
        ; 除外クラス名の追加は、下行のコメントを外してクラス名を参照すると楽
        ; tooltip, [%className%]
        If className contains Shell_TrayWnd,CTipWnd,Indicator,Progman,tooltip
            continue
        Else
        {
            WinActivate, ahk_id %hwnd%
            break
        }
    }
}



名前

E-mail



0ch BBS 2005-10-08