ToolTip ^{vk53}

#If IsHomeKey()
LButton:: ToolTip ^{vk53}
#If

IsHomeKey() { 
    MouseGetPos, , , WinId, ControlNN 
    if !InStr( ControlNN, "ToolbarWindow")
        return 0
    WinGet, Process, ProcessName, ahk_id %WinId%
    if Process != iexplore.exe 
        return 0
    Acc := Acc_ObjectFromPoint(child)
    try value := Acc.accValue(child)
    if Not value
        try value := Acc.accName(child)
    if (value= "Домой")
        return 1
    return 0
}

#If IsHomeKey()
LButton:: ToolTip ^{vk53}
#If

IsHomeKey() { 
    MouseGetPos, , , WinId, ControlNN 
    if !InStr( ControlNN, "ToolbarWindow")
        return 0
    WinGet, Process, ProcessName, ahk_id %WinId%
    if Process != iexplore.exe 
        return 0
    return GetTextUnderMouse() = "Домой" ? 1 : 0
} 

GetTextUnderMouse()  {
    Static h
    If !h
        h := DllCall("LoadLibrary","Str","oleacc","Ptr")
    If DllCall("oleacc\AccessibleObjectFromPoint"
                , "Int64", DllCall("GetCursorPos","Int64*",pt)+pt
                , "Ptr*", pacc, "Ptr", VarSetCapacity(varChild,8+2*A_PtrSize,0)*0+&varChild)=0
    Acc:=ComObjEnwrap(9,pacc,1), child:=NumGet(varChild,8,"UInt")
    try value := Acc.accValue(child)
    if value =
        try value := Acc.accName(child) 
    return value
}
 

ahk_class IEFrame
ahk_exe iexplore.exe 
ToolbarWindow

#If IsHomeKey()
LButton:: ToolTip ^{vk53}
#If

IsHomeKey() {
    if !WinActive("ahk_class IEFrame ahk_exe iexplore.exe")
        return 0
    MouseGetPos, , , WinId, ControlNN 
    if !InStr( ControlNN, "ToolbarWindow")
        return 0
    WinGet, Process, ProcessName, ahk_id %WinId%
    if Process != iexplore.exe 
        return 0
    Acc := Acc_ObjectFromPoint(child)
    try value := Acc.accValue(child)
    if Not value
        try value := Acc.accName(child)
    if (value= "Домой")
        return 1
    return 0
}