#SingleInstance Force  
#NoEnv
ListLines Off  
SetBatchLines -1  

WinTitle = ahk_class IEFrame ahk_exe iexplore.exe
name = Избранное 
role = панель инструментов

winid := WinExist(WinTitle)
hwnd := HwndFromAccName(winid, role, name)
ControlGet, thwnd, Hwnd,, ToolbarWindow324, ahk_id %winid%
MsgBox, % hwnd "   " thwnd+0
ControlGetText, str,, ahk_id %hwnd%
MsgBox, % str
return 

HwndFromAccName(winid, role, name)
{
    if !winid
        MsgBox, % "Окно не найдено"  
    else if !IsObject(AccObj := AccObjectFromWindow(winid))
        MsgBox, % "Не удалось получить IAccessible" 
    else if !IsObject(AccObj := ExistAccName(AccObj, role, name))
        MsgBox, % "Элемент не найден" 
    else
        Return AccWindowFromObject(AccObj) 
}     

ExistAccName(AccObj, role, name)
{   
    if (AccRole(AccObj) = role) 
        loop % AccObj.accChildCount
            if AccObj.accName(A_Index-1) = name 
                Return AccObj
    for k, v in AccChildren(AccObj)
        if IsObject(obj := ExistAccName(v, role, name)) 
            Return obj 
}  

AccWindowFromObject(pacc)
{
    If DllCall("oleacc\WindowFromAccessibleObject", "Ptr", IsObject(pacc)?ComObjValue(pacc):pacc, "Ptr*", hWnd) = 0
    Return    hWnd
} 
AccInit()
{
   Static   h
   If Not   h
      h:=DllCall("LoadLibrary","Str","oleacc","Ptr")
}

AccObjectFromWindow(hWnd, idObject = 0)
{
   AccInit()
   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)
}        
AccRole(Acc, ChildId=0) {
    try Return ComObjType(Acc,"Name")="IAccessible"?AccGetRoleText(Acc.accRole(ChildId)):""
}
AccGetRoleText(nRole)  {
    nSize := DllCall("oleacc\GetRoleText", "Uint", nRole, "Ptr", 0, "Uint", 0)
    VarSetCapacity(sRole, (A_IsUnicode?2:1)*nSize)
    DllCall("oleacc\GetRoleText", "Uint", nRole, "str", sRole, "Uint", nSize+1)
    Return    sRole
}
AccError(p="") {
   static setting:=0
   return p=""?setting:setting:=p
}
AccQuery(Acc) {
    try return ComObj(9, ComObjQuery(Acc,"{618736e0-3c3d-11cf-810c-00aa00389b71}"), 1)
}
AccChildren(Acc) {
   if ComObjType(Acc,"Name") != "IAccessible"
      ErrorLevel := "Invalid IAccessible Object"
   else {
      AccInit(), 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?AccQuery(child):child), NumGet(varChildren,i-8)=9?ObjRelease(child):
         return Children.MaxIndex()?Children:
      } else
         ErrorLevel := "AccessibleChildren DllCall Failed"
   }
   if AccError()
      throw Exception(ErrorLevel,-1)
}
  
Esc::   
    ExitApp 

1::   
    ControlGetText, str, , % "ahk_id" CtrlID(12, 77, WinExist("ahk_class Notepad"))   
    ToolTip % str
    Return 
    
CtrlID(X, Y, Wnd)   { 
    WinGet, List, ControlListHwnd, ahk_id %Wnd%    
    Loop, parse, List, `n
    {  
        ControlGetPos, cX, cY, cW, cH, , ahk_id %A_LoopField% 
        If (cX <= X && cY <= Y && cX+cW >= X && cY+cH >= Y) 
            id := A_LoopField
    }  
    Return id
} 

1::   
    ControlGetText, str, , % "ahk_id" CtrlID(12, 77, WinExist("ahk_class Notepad"))   
    ToolTip % str
    Return 
    
CtrlID(X, Y, Wnd)   { 
    WinGet, List, ControlListHwnd, ahk_id %Wnd%    
    Loop, parse, List, `n
    { 
        If !DllCall("IsWindowVisible", "uint", A_LoopField) 
            Continue
        ControlGetPos, cX, cY, cW, cH, , ahk_id %A_LoopField% 
        If (cX <= X && cY <= Y && cX+cW >= X && cY+cH >= Y) 
            id := A_LoopField
    }  
    Return id
} 

1::
HWND := ControlIdFromPoint(12, 77, WinExist("ahk_class Notepad"))
ControlGetText, str, , ahk_id %HWND%
MsgBox % str
return

ControlIdFromPoint(X, Y, HW) 
{ 
    static EnumChildFindPointProc=0 
    if !EnumChildFindPointProc 
        EnumChildFindPointProc := RegisterCallback("EnumChildFindPoint","Fast")   
    VarSetCapacity(rect, 16) 
    DllCall("GetWindowRect","uint",HW,"uint",&rect) 
    VarSetCapacity(pah, 36, 0) 
    NumPut(X + NumGet(rect,0,"int"), pah,0,"int") 
    NumPut(Y + NumGet(rect,4,"int"), pah,4,"int") 
    DllCall("EnumChildWindows","uint",HW,"uint",EnumChildFindPointProc,"uint",&pah)  
    return NumGet(pah,24) 
} 

EnumChildFindPoint(aWnd, lParam) 
{ 
    if !DllCall("IsWindowVisible","uint",aWnd) 
        return true  
    VarSetCapacity(rect, 16) 
    if !DllCall("GetWindowRect","uint",aWnd,"uint",&rect) 
        return true 
    pt_x:=NumGet(lParam+0,0,"int"), pt_y:=NumGet(lParam+0,4,"int") 
    rect_left:=NumGet(rect,0,"int"), rect_right:=NumGet(rect,8,"int") 
    rect_top:=NumGet(rect,4,"int"), rect_bottom:=NumGet(rect,12,"int") 
    if (pt_x >= rect_left && pt_x <= rect_right && pt_y >= rect_top && pt_y <= rect_bottom) 
    { 
        center_x := rect_left + (rect_right - rect_left) / 2 
        center_y := rect_top + (rect_bottom - rect_top) / 2 
        distance := Sqrt((pt_x-center_x)**2 + (pt_y-center_y)**2) 
        update_it := !NumGet(lParam+24) 
        if (!update_it) 
        { 
            rect_found_left:=NumGet(lParam+8,0,"int"), rect_found_right:=NumGet(lParam+8,8,"int") 
            rect_found_top:=NumGet(lParam+8,4,"int"), rect_found_bottom:=NumGet(lParam+8,12,"int") 
            if (rect_left >= rect_found_left && rect_right <= rect_found_right 
                && rect_top >= rect_found_top && rect_bottom <= rect_found_bottom) 
                update_it := true 
            else if (distance < NumGet(lParam+28,0,"double") 
                && (rect_found_left < rect_left || rect_found_right > rect_right 
                 || rect_found_top < rect_top || rect_found_bottom > rect_bottom)) 
                 update_it := true 
        } 
        if (update_it) 
        { 
            NumPut(aWnd, lParam+24) 
            DllCall("RtlMoveMemory","uint",lParam+8,"uint",&rect,"uint",16) 
            NumPut(distance, lParam+28, 0, "double") 
        } 
    } 
    return true 
}