Unable to get total number of links on a web page

Unable to get total number of links on a web page - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: VB Scripting/Descriptive Programming (https://www.learnqtp.com/forums/Forum-VB-Scripting-Descriptive-Programming)
+--- Thread: Unable to get total number of links on a web page (/Thread-Unable-to-get-total-number-of-links-on-a-web-page)

Unable to get total number of links on a web page - RGummadidala - 02-13-2011

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.

RE: Unable to get total number of links on a web page - markQA - 02-14-2011

Turn off the Regular Expression..

Code:
odescp("micclass").RegularExpression = False

RE: Unable to get total number of links on a web page - jsknight1969 - 02-16-2011

Might just be a typo but

Code:
odescL("micclass").value = "Link"

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

RE: Unable to get total number of links on a web page - Rekhapramod - 02-16-2011

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

RE: Unable to get total number of links on a web page - RGummadidala - 02-17-2011

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.