enumeration of items

[Gintaras]

Role is missing in Find. Finds wrong object.

all objects in Calculator
Macro Macro1761

Code:

Copy      Help

out
int w=win("Calculator" "SciCalc")
Acc a.Find(w "WINDOW" "Calculator" "class=SciCalc" 0x1005)
ARRAY(Acc) b
a.GetChildObjects(b -1)
int i
for i 0 b.len
,str sRole sName
,b[i].Role(sRole)
,sName=b[i].Name
,out F"{sRole} {sName}"

all links in Internet Explorer
Macro Macro1766

Code:

Copy      Help

out
int w=win("Internet Explorer" "IEFrame")
Acc a.Find(w "PANE" "" "" 0x3000 3)
ARRAY(Acc) b
a.GetChildObjects(b -1 "LINK")
int i
for i 0 b.len
,str sName sValue
,sName=b[i].Name
,sValue=b[i].Value
,out F"{sName} | {sValue}"