Welcome Everyone Who:

Wants:

· To do right things right first time.

Does not want:

· To do things without value.

Knows that:

· Software Testing never ends, it just stops.

· Software Quality does not happen by accident; it has to be planned.

Believes that:

· There's always one more bug during Software Testing.

· Software Testing is the art of thinking.

Powered By Blogger

Wednesday, May 26, 2010

Count the number of links & Objects in a web page by ChildObjects Method 



Dim objDesc, objAllLinks, intNumberOfLinks

Set objDesc = Description.Create()

objDesc("micclass").Value = "Link"

Set objAllLinks = Browser("creationtime:=0").

Page("micclass:=Page").ChildObjects(objDesc)

intNumberOfLinks = objAllLinks.Count

msgbox intNumberOfLinks
Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)