Find EVERY accessible object in an application

[Gintaras]

To get all child/descendant objects, use a callback function.

Macro Macro1615

Code:

Copy      Help

out
int w=win("Calculator")
Acc a=acc(w)
str s
a.GetTreeAsText(s) ;;without invisible/useless
;a.GetTreeAsText(s 16|32) ;;all
out s

Member function Acc.GetTreeAsText

Code:

Copy      Help

function str&s [flags] ;;flags: acc flags: 16 +invisible, 32 +useless, 64 immediate

s.fix(0)
acc "" "" a "" "" flags|0x8000 &Acc_GTAT_Proc &s

Function Acc_GTAT_Proc

Code:

Copy      Help

;/
function# Acc&a level str&s

str sr sn st.all(level 2 9)

a.Role(sr)
sn=a.Name

s.formata("%s%s %s[]" st sr sn)

ret 1