DllCall("LoadLibrary","Str","oleacc","Ptr")

Acc_ObjectFromPoint(ByRef _idChild_ = "", x = "", y = "")
{
    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_Parent(Acc) { 
    try parent:=Acc.accParent
    return parent?Acc_Query(parent):
}
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)
}

MButton::
try tooltip % "1`t" Acc_ObjectFromPoint(c).AccName(c)
        . "`n2`t" Acc_Parent(Acc_ObjectFromPoint(c)).AccName(0)
        . "`n3`t" Acc_Parent(Acc_Parent(Acc_ObjectFromPoint(c))).AccName(0)
        . "`n4`t" Acc_Parent(Acc_Parent(Acc_Parent(Acc_ObjectFromPoint(c)))).AccName(0)
        . "`n"
        . "5`t" Acc_ObjectFromPoint(c).AccValue(c)
        . "`n6`t" Acc_Parent(Acc_ObjectFromPoint(c)).AccValue(0)
        . "`n7`t" Acc_Parent(Acc_Parent(Acc_ObjectFromPoint(c))).AccValue(0)
        . "`n8`t" Acc_Parent(Acc_Parent(Acc_Parent(Acc_ObjectFromPoint(c)))).AccValue(0)

NumberOfMenuItem := ""   ; если оставить пустое значение, выдаст информацию о пунктах последнего подменю оконного меню
                         ; если присвоить номер — выдаст информацию о пунктах подменю с этим номером
                         
MIIM_FTYPE := 0x100, MIIM_STRING := 0x40, oType := {0: "MFT_STRING", 0x800: "MFT_SEPARATOR", 0x4: "MFT_BITMAP"}

F11::
   InfoString := ""
   if !hMenu := DllCall("GetMenu", Ptr, WinExist("A"), Ptr)  {
      MsgBox, Окно использует нестандартное меню
      Return
   }
   count := DllCall("GetMenuItemCount", Ptr, hMenu)
   if !hMenu := DllCall("GetSubMenu", Ptr, hMenu, Int, NumberOfMenuItem = "" ? count - 1 : NumberOfMenuItem - 1)  {
      MsgBox, Подменю не найдено
      Return
   }
   count := DllCall("GetMenuItemCount", Ptr, hMenu)
   Loop % count  {
      Gosub, IniMII
      NumPut(MIIM_FTYPE, &MENUITEMINFO + 4)
      DllCall("GetMenuItemInfo", Ptr, hMenu, UInt, A_Index - 1, UInt, true, Ptr, &MENUITEMINFO)
      type := oType[NumGet(&MENUITEMINFO + 8, "UInt")]
      InfoString .= (InfoString = "" ? "" : "`n")
      if (type != "MFT_STRING")
         InfoString .= type
      else  {
         Gosub, IniMII
         NumPut(MIIM_STRING, &MENUITEMINFO + 4)
         DllCall("GetMenuItemInfo", Ptr, hMenu, UInt, A_Index - 1, UInt, true, Ptr, &MENUITEMINFO)
         TextLength := NumGet(&MENUITEMINFO + 4*4 + A_PtrSize*6, "UInt")
         VarSetCapacity(TextBuff, TextLength * (A_IsUnicode ? 2 : 1), 0)
         NumPut(&TextBuff, &MENUITEMINFO + 4*4 + A_PtrSize*5)
         NumPut(++TextLength, &MENUITEMINFO + 4*4 + A_PtrSize*6)
         DllCall("GetMenuItemInfo", Ptr, hMenu, UInt, A_Index - 1, UInt, true, Ptr, &MENUITEMINFO)
         InfoString .= StrGet(&TextBuff)
      }
   }
   MsgBox, % InfoString
   Return
      
IniMII:
   VarSetCapacity(MENUITEMINFO, size := 4*4 + A_PtrSize*8, 0)
   NumPut(size, MENUITEMINFO)
   Return