autoload next page

[Gintaras]

Macro Macro2630

Code:

Copy      Help

int w=win("Mozilla Firefox" "MozillaWindowClass")
rep ;;repeat for each new "Show More" link
,Acc a.FindFF(w "A" "Show More" "" 0x1001 1)
,err
,,out "no ''Show More'' link"
,,break
,;wait while the link is offscreen, then click it
,rep
,,int isOffscreen=a.State&STATE_SYSTEM_OFFSCREEN; err break
,,if(isOffscreen) 0.1
,,else
,,,a.DoDefaultAction; err
,,,break