auto scroll each <H2> item => firefox

[Gintaras]

Macro Macro1796

Code:

Copy      Help

int w=wait(2 WV win("Firefox" "Mozilla*WindowClass" "" 0x804))
Acc ac.FindFF(w "DIV" "" "id=content" 0x1004 2) ;;find common parent of h2 objects
ARRAY(Acc) a; int i
ac.GetChildObjects(a 1 "h2") ;;get all descendant objects at level 1 where role is h2
for i 0 a.len
,a[i].WebScrollTo
,a[i].Navigate("first") ;;h2 -> LINK
,out a[i].Name
,1