Get info from Chrome

[Gintaras]

Macro Macro2446

Code:

Copy      Help

out
int w=wait(3 WV win(" Chrome" "Chrome_WidgetWin_1"))
Acc a.Find(w "DOCUMENT" "" "" 0x3001 3) ;;just to enable Chrome accessible objects

rep
,0.5
,if(win(mouse)!=w) continue
,a.FromMouse
,;out a.Name
,;g1
,sel a.Role
,,case ROLE_SYSTEM_LINK
,,str s=a.Value
,,if(!s.len) continue
,,out s
,,
,,case [ROLE_SYSTEM_STATICTEXT,ROLE_SYSTEM_GRAPHIC]
,,a.Navigate("parent"); goto g1