AutoHotkey Community

Dim ObA As IAccessible 'core element for getting UI info
    Dim v As Variant
    Dim LRet As Long

    Dim topPositionObject As Long
    Dim leftPositionObject As Long
    Dim widthObject As Long
    Dim heightObject As Long

    Dim MSN_CHAT_MESSAGE as string



    'hWnd is the handle of the window

   'Get the IAccessible object from evet to get the position information
   LRet = AccessibleObjectFromEvent(hWnd, idObject, idChild, ObA, v)

   If (LRet = 0) Then

       'Get the location of the the window
       Call ObA.accLocation(leftPositionObject, topPositionObject, widthObject, heightObject, v)

       'Get the location using  AccessibleObjectFromPoint
       LRet = AccessibleObjectFromPoint(leftPositionObject,topPositionObject, ObA, v)


      MSN_CHAT_MESSAGE = ObA.accValue(v)

   End If

;==================================================================
; active the AHK window spy and take a snapshot of the spy's date
;==================================================================
; if the spy is not already, open it. leave the spy open when done
;==================================================================

#singleinstance force
#Persistent
settitlematchmode 2
return

#q::
;WinGetActiveTitle, Target
;msgbox %Target%


ifWinNotExist ahk_class AU3Reveal
{
  Run, %A_AhkPath%\..\AU3_Spy.exe, , min
}

WinWait, ahk_class AU3Reveal,, 12
if (errorlevel<>0)
{
  msgbox Couldn't start AU3_Spy.exe`n`nPress Ok to exit.
  return
}

  sleep, 500


; get the body of text that Window Spy has about current window
ControlGetText, OutputVar ,Edit1, ahk_class AU3Reveal


;msgbox % OutputVar

clipboard= %OutputVar%
  msgbox Data from AU3_Spy.exe copied to clipboard`n`nPress Ok to exit.

;msgbox % clipboard

return

;acc_Init()   ; don't forget to call it at the startup of the script!

If   pacc := acc_AccessibleObjectFromEvent(hWnd, idObject, idChild, _idChild_)
{
   acc_Location(pacc, _idChild_, l, t, w, h), COM_Release(pacc), pacc:=_idChild_:=0
   If   pacc := acc_AccessibleObjectFromPoint(l, t, _idChild_)
      MSN_CHAT_MESSAGE := acc_Value(pacc, _idChild_), COM_Release(pacc)
}