Wednesday 24 September 2014

Retrive all links count & Names in google.com

If browser("Title:=.*").exist then
    browser("Title:=.*").close
End if


SystemUtil.Run "IEXPLORE.EXE", "www.google.com"
wait(3)

Set desco = Description.Create
desco("micclass").value = "Link"


set Lcount = browser("Title:=.*").page("Title:=Google").ChildObjects(desco)
MsgBox Lcount.count

For i=0 to Lcount.count-1
    print i&" = "& Lcount(i).getroproperty("Name")
Next

No comments:

Post a Comment