Lwin::
MouseGetPos, , , hWnd
client := Acc_ObjectFromWindow(hWnd)
popup_menu := Acc_GetChild(client, "3,1,1")

MsgBox % popup_menu.AccName(1)


;----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Acc_Init()
{
    Static    h
    If Not    h
        h:=DllCall("LoadLibrary","Str","oleacc","Ptr")
}

Acc_ObjectFromWindow(hWnd, idObject = 0)
{
    Acc_Init()
    If    DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", hWnd, "UInt", idObject&=0xFFFFFFFF, "Ptr", -VarSetCapacity(IID,16)+NumPut(idObject==0xFFFFFFF0?0x46000000000000C0:0x719B3800AA000C81,NumPut(idObject==0xFFFFFFF0?0x0000000000020400:0x11CF3C3D618736E0,IID,"Int64"),"Int64"), "Ptr*", pacc)=0
    Return    ComObjEnwrap(9,pacc,1)
}

Acc_Children(Acc) {
    if ComObjType(Acc,"Name") != "IAccessible"
        ErrorLevel := "Invalid IAccessible Object"
    else {
        Acc_Init(), cChildren:=Acc.accChildCount, Children:=[]
        if DllCall("oleacc\AccessibleChildren", "Ptr",ComObjValue(Acc), "Int",0, "Int",cChildren, "Ptr",VarSetCapacity(varChildren,cChildren*(8+2*A_PtrSize),0)*0+&varChildren, "Int*",cChildren)=0 {
            Loop %cChildren%
                i:=(A_Index-1)*(A_PtrSize*2+8)+8, child:=NumGet(varChildren,i), Children.Insert(NumGet(varChildren,i-8)=9?Acc_Query(child):child), NumGet(varChildren,i-8)=9?ObjRelease(child):
            return Children.MaxIndex()?Children:
        } else
            ErrorLevel := "AccessibleChildren DllCall Failed"
    }
    if Acc_Error()
        throw Exception(ErrorLevel,-1)
}

Acc_Query(Acc) { ; thanks Lexikos - www.autohotkey.com/forum/viewtopic.php?t=81731&p=509530#509530
    try return ComObj(9, ComObjQuery(Acc,"{618736e0-3c3d-11cf-810c-00aa00389b71}"), 1)
}

Acc_Error(p="") {
    static setting:=0
    return p=""?setting:setting:=p
}

Acc_GetChild(Acc, path="") {
    Loop Parse, path, csv
        Acc := Acc_Children(Acc)[A_LoopField]
    return Acc
}

;----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

В данном примере по нажатию lwin скрипт смотрит на первый элемент первого меню
(в блокноте это - Файл > Создать CTRL+N; В hh.exe это - Файл > Печать...)

В строке

Acc_GetChild(client, "3,1,1")

3,1,1 это путь к меню:

А уже при вызове самого msgbox'а

MsgBox % popup_menu.AccName(1)

  1 значит первый элемент меню.

Внутри выделенного элемента нет полос прокрутки, но если перейти к его родителю - то после него идут полосы прокрутки, и ещё при 2 переходах на уровень вверх тоже есть полосы прокрутки.
1 из этих 3 групп, вероятно, и отвечает за нужный нам скроллбар.

Но hh.exe работает на движке internet explorer, у него аналогично:

Надо копать в строну ie полосы прокрутки и ее управления через ahk.

p.s вот ahkspy

При этом с обеими категориями окон есть беда с кликами:
- если использовать ControlClick в неактивное окно по позиции курсора в нём, то клик проходит ПОД скроллбар: в случае с mspaint.exe - если под скроллбаром скрыт кусок полотна, то клик отсылается на полотно (если под скроллом полотна нет, то клик успешно проходит по скроллбару). Аналогично и с hh.exe: клик над скроллбару в левой навигационной части проходит не в скроллбар, а в список под ним (подсвечивает элемент из списка).
- если использовать Send то ему требуется активация окна, что убого.

Сейчас я обновил свой скрипт до версии 0.4: в скрипте используется комбинированный подход: при работе с неактивными окнами там где можно используется подход ControlSend + ControlClick (самый оптимальный), там где это [по крайней мере пока] невозможно (пример: mspaint.exe) - используется подход Send +{LButton} с временной активацией окна. Во всех остальных случаях отправляется просто Send {MButton}.

В версии 0.5 планирую вернуть преконфигурируемые правила, чтобы можно было в 3 случае дать скрипту указаний при каких условиях следует действовать как в случае 2.

А ещё если получится ещё успешно пошаманить с ControlClick, то возможно, что в версии 0.6 удастся целиком избежать принудительной активации окон, даже для сложных окон вроде mspaint.exe.

А ещё можно побольше поиграться с Acc библиотекой и я не уверен, но возможно, что получится избежать составления преконфигурируемых правил по отступам, а составлять их по Acc-навигации: проблема в том, что Acc_ObjectFromPoint().accRole(0) в окнах типа hh.exe определяет у скроллбаров роль не как 3, но есть подозрение, что если пошарить по родительским/дочерним объектам в Acc-дереве объектов, то возможно у кого-то из них есть роль 3 и нам этого знания будет достаточно.

(!h && DllCall("LoadLibrary", Str, "oleacc", Ptr))

Я позаимствовал у teadrinker. в этом сообщении

Хм я нашел более простой вариант:

~Mbutton::
if ( Acc_ObjectFromPoint().accRole(0) ) = 3
sendinput +{Lbutton}
return

Acc_ObjectFromPoint(ByRef _idChild_ = "", x = "", y = "")
{
    static h
   (!h && DllCall("LoadLibrary", Str, "oleacc", Ptr))
    If    DllCall("oleacc\AccessibleObjectFromPoint", "Int64", x==""||y==""?0*DllCall("GetCursorPos","Int64*",pt)+pt:x&0xFFFFFFFF|y<<32, "Ptr*", pacc, "Ptr", VarSetCapacity(varChild,8+2*A_PtrSize,0)*0+&varChild)=0
    Return    ComObjEnwrap(9,pacc,1), _idChild_:=NumGet(varChild,8,"UInt")
}

В таком виде соответствует названию

Acc_ObjectFromPoint().accRole(0)

3 это ROLE_SYSTEM_SCROLLBAR
В первом варианте через Child проверялась роль у дочерних элементов линии прокрутки.Дочерних элементов у линии прокрутки всего 5

Esc,

Вот так подойдет:

~Lbutton::
if ( Acc_ObjectFromPoint().accRole(0) ) = 23 and winactive("ahk_exe notepad++.exe")
send ^{home}
return

~Rbutton::
if ( Acc_ObjectFromPoint().accRole(0) ) = 23 and winactive("ahk_exe notepad++.exe")
send ^{end}
return


Acc_ObjectFromPoint(ByRef _idChild_ = "", x = "", y = "")
{
    static h
   (!h && DllCall("LoadLibrary", Str, "oleacc", Ptr))
    If    DllCall("oleacc\AccessibleObjectFromPoint", "Int64", x==""||y==""?0*DllCall("GetCursorPos","Int64*",pt)+pt:x&0xFFFFFFFF|y<<32, "Ptr*", pacc, "Ptr", VarSetCapacity(varChild,8+2*A_PtrSize,0)*0+&varChild)=0
    Return    ComObjEnwrap(9,pacc,1), _idChild_:=NumGet(varChild,8,"UInt")
}

только там надо не шифт а контрол нажимать что бы переместится в начало или конец.

не работает  mspaint.exe

Я немного код изменил теперь работает у меня в паинте и в проводнике.

За правую границу окна

Правая граница окна != скроллбар

Я подумал, что это теперь не нужно, после того как уважаемый тов. yalanne предложил более надёжный способ детектирования скроллбара под курсором. Я потестировал его вчера и вроде всё ок было со всеми окнами кроме Firefox (но там своя настройка же есть, так что я подумал, что это не страшно).
Сейчас вот заметил, что этот метод не работает с hh.exe (просмотрщик *.chm файлов) и mspaint.exe, так что возможно придётся использовать комбинированный подход и применять тот или иной метод в зависимости от окна.

Если ещё удастся как-то отправлять Shift+Click в неактивное окно без его активации - это будет вообще бомба.

У одного окна могут быть скроллбары у разных контролов. При этом контролы могут позицией быть независимы друг от друга, поэтому отступы отсчитывать для них было бы не от чего.

Ясно, спасибо.

За правую границу окна, т.е. если курсор прилетает справа и сразу на скроллбар, но я уже выяснил, что проблема не в вашем коде, сторонний софт так же работает.

А 0.3 версия не предполагает добавления программ и отступов или я чего-то не понял?

Child Это имя переменной ее имя можно задать самому. С помощью Acc_ObjectFromPoint в эту переменную вносится ид элемента который находится под курсором. А затем с помощью accRole проверяется роль этого элемента(что он может делать)
Например У самого ползунка прокрутки эта роль равна 39 иначе называемая ROLE_SYSTEM_INDICATOR (0x00000027)
а у пустой области прокрутки 43 ROLE_SYSTEM_PUSHBUTTON (0x0000002B)
То есть если под курсором элемент с ролью 39 или 43 значит это прокрутка.

static ... можно и не использовать, а просто загружать библиотеку. а насчет выгрузки не знаю.

А зачем использовать classNN, а не для всего окна по exe?

У одного окна могут быть скроллбары у разных контролов. При этом контролы могут позицией быть независимы друг от друга, поэтому отступы отсчитывать для них было бы не от чего.

За правую границу чего? Справа от скроллбара часто фон от основного окна (шириной, например, в 1px), а ещё правей - ещё и виндовая рамка окна (например, стекло от темы оформления Windows Aero). Они - не относятся к скролбару.
У меня вроде всегда всё ОК срабатывает, если чего - попробуйте поменять отступы.

yalanne
Ваш код очень хороший и я утащу его к себе в скрипт
Только не могли бы вы в образовательных целях ваш код разжать и подробно прокомментировать, пожалуйста? Я вот его не очень понимаю:
Как работает "Acc_ObjectFromPoint(Child).accRole(Child)"? Что за Child и откуда он взялся? Судя по тому, что он при вызове функции присутствует дважды - я правильно понимаю, что она рекурсивно вызывает себя сама же уже передавая хэндл на дочерний элемент в качестве аргумента?
К чему там "static h" и "!h", если они нигде не используются?
Безопасно ли делать LoadLibrary без последующей её выгрузки?

А у меня работает и в проводнике (w7sp1x64, Aero).

~Mbutton::
if Getscroll()
sendinput +{Lbutton}
return

Getscroll(){
Role := Acc_ObjectFromPoint(Child).accRole(Child)
if (Role = 39) or (Role = 43)
return 1
return 0
}

Acc_ObjectFromPoint(ByRef _idChild_ = "", x = "", y = "")
{
    static h
   (!h && DllCall("LoadLibrary", Str, "oleacc", Ptr))
    If    DllCall("oleacc\AccessibleObjectFromPoint", "Int64", x==""||y==""?0*DllCall("GetCursorPos","Int64*",pt)+pt:x&0xFFFFFFFF|y<<32, "Ptr*", pacc, "Ptr", VarSetCapacity(varChild,8+2*A_PtrSize,0)*0+&varChild)=0
    Return    ComObjEnwrap(9,pacc,1), _idChild_:=NumGet(varChild,8,"UInt")
}

Проверял в notepad, notepad++. А в проводнике почему то не хочет. Но если в начало добавить строку

Mbutton::return

то есть отключить её в системе. при этом условии в проводнике работает.

А зачем использовать classNN, а не для всего окна по exe? Мне кажется есть небольшие проблемы, когда уводишь мышь за правую границу он не сразу определяет класс, нужно курсор отвести влево и обратно.