Sunday, October 9, 2011

Get the links count and read data


SystemUtil.Run "iexplore.exe"

Dim Txt
Set Obj=Description.Create
Obj("Micclass").Value="Link"

Set OLink=Browser("Google").Page("Google").ChildObjects(Obj)
oLink= OLink.Count
For i=0 to oLink-1
  Set LinkTxt=OLink(i).GetROProperty("text")
  msgbox LinkTxt
Next
SystemUtil.CloseDescendentProcesses