Unable to get total number of links on a web page

[RGummadidala]

Hi all,
Can anybody please help me on this code.

Code:

Dim odesc
Set odesc = Description.Create
odesc("micclass").value="Browser"
odesc("title").value = "Welcome: Mercury Tours"
Set  odescp = Description.Create
odescp("micclass").value="Page"
odescp("tile").value= "Welcome: Mercury Tours"
Set odescL = Description.Create
odescL("micclass").value="Links"
Links=Browser(odesc).Page(odescp).ChildObjects(odescL)
MsgBox Links.count

When i am running the code i am getting this error.

General : Run time erro

Line (10):

Code:

"Links=Browser(odesc).Page(odescp).ChildObjects(odescL)".

Thanks,
Rgummadidala.

[markQA]

Turn off the Regular Expression..

Code:

odescp("micclass").RegularExpression = False

[jsknight1969]

Might just be a typo but

Code:

odescL("micclass").value = "Link"
set Links = Browser(odesc).Page(odescp).ChildObjects(odescL)

[Rekhapramod]

Hi,

Use the below code

Code:

Set Desc1=Description.Create()
Desc1("micClass").Value="Link"

Set Coll=Browser("title:=Google").Page("title:=Google").ChildObjects(Desc1)
MsgBox Coll.Count

[RGummadidala]

Hi All,

I have corrected the typo error "Links" in my code and now the code looks as below (this is taken from some other thread in this forum)

Code:

Set oBrowserDescriptions = Description.Create ()
oBrowserDescriptions("micClass").Value = "Browser"
oBrowserDescriptions("openedbytestingtool").Value = "True"

Browser(oBrowserDescriptions).Exist()

Set oPageDescriptions = Description.Create ()
oPageDescriptions("micClass").Value = "Page"
Set oBrowserObj = Browser(oBrowserDescriptions).Page(oPageDescriptions)

Systemutil.Run "iexplore"
Browser(oBrowserDescriptions).Navigate("http://www.yahoo.com" )
oBrowserObj.Sync

'Set oBowserChObj = oBrowserObj.ChildObjects(oLinkDescriptions)
Set oBowserChObj = oBrowserObj.ChildObjects()
iChObjCnt = oBowserChObj.Count -1
msgbox iChObjCnt
For iCount = 0 to iChObjCnt
If oBowserChObj(iCount).GetROProperty("micclass") = "Link" Then
If oBowserChObj(iCount).GetROProperty("visible") = true Then
msgbox oBowserChObj(iCount).GetROProperty("name")
End if
End If
Next

When I ran this, it is failing when invoking some method on "Browser" object like "Browser(oBrowserDescriptions).Exist()" or "Browser(oBrowserDescriptions).Navigate("http://www.yahoo.com" )", as if some kind of NullPointerException in java or some other language. The exact error message I see here is

Cannot identify the object "[ Browser ]" (of class Browser). Verify that this object's properties match an object currently displayed in your application.

Line (8):

Code:

"Browser(oBrowserDescriptions).ClearCache".

From the error, it appears as if Browser object was not created. Do I need to create the Browser object explicitly or for that matter, how does this work in Descriptive Program. Many examples which I saw in other posts and forums, the skeleton remains the same as above, but some how it is failing or apparently I'm missing something here.