How to Test Number of 'Links' in a page.

function test()

{

  var page = Sys.Process("iexplore").Page("*");

  Log.Message(getLinksCount(page));  

}



function getLinksCount(page)

{

  var links = page.FindAllChildren("ObjectType", "Link", 9000);

  links = (new VBArray(links)).toArray();

  var linkscount = 0;

  linkscount = links.length;  

  return linkscount;

}

Sub Test

  Dim Page

  Set Page = Sys.Process("iexplore").Page("*")

  Log.Message GetLinksCount(Page)  

End Sub



Function GetLinksCount(page)

  Dim Links, LinksCount

  Links = page.FindAllChildren("ObjectType", "Link", 9000)

  LinksCount = 0

  LinksCount = UBound(Links)  

  GetLinksCount = linkscount

End Function