AutoHotkey Community

Code: Select all

GetTextFromPoint() {
   global
   ;~ Acc := Acc_ObjectFromPoint(child, _Xc-_Wc*3, _Yc+_Hc/2)  ; uncomment this line inserting parametrs from MouseMove command
   Acc := Acc_ObjectFromPoint(child)                           ; comment this line out
   try value := Acc.accValue(child)
   if Not value
      try value := Acc.accName(child)
   return value
}
WinActivate, ahk_class IEFrame
WinWaitActive, ahk_class IEFrame
ControlGetPos, _Xc, _Yc, _Wc, _Hc, BrowserFrameGripperClass1, ahk_class IEFrame
MouseMove, _Xc-_Wc*3, _Yc+_Hc/2    ; -----> adjust, so Mouse pointer hits ZoomLevel (ToolbarWindow32X Control) then commnent this line out
IEZoom:= RTrim(getTextFromPoint(), "%")
MsgBox, % IeZoom
return
#Include, Acc.ahk