click each web link in a page using Index or other method in QTP

[QTPgrd]

Use the below script to check that content of page should not be "Page cannot be displayed

Code:

Set obj_LinkDesc = Description.Create obj_LinkDesc("html tag").value = "A" Set AllLinks = Browser("name:=Google").Page("title:=Google").ChildObjects(obj_LinkDesc) msgbox AllLinks.Count For i = 0 To AllLinks.Count Set obj_LinkDesc = Description.Create obj_LinkDesc("html tag").value = "A" Set AllLinks = Browser("name:=Google").Page("title:=Google").ChildObjects(obj_LinkDesc) AllLinks(i).Click Wait 2 If Browser("name:=Cannot find server").Page("title:=Cannot find server").Exist Then Msgbox ("Problem") Else Msgbox ("No Problem") End If Browser("opentitle:=Google").Back

[mss]

Hi QTPgrd,

Above code may work if web page opening the new data in same page after we click on the link.

But here scenario is some links will open data in same page and some will lead to new pop up window. we need to test both type of the links.
how can we achieve this from above aproach.


Thanks,

[supputuri]

Hi mss,

yes we can achive the both things with little modifications in the QTPgrd post.

Modification required is,
1) add one condition loop(if..else..end) with window exist (If window exist close)
2) Make sure that you have captured the url before clicking on the link every time and if window is not displayed i.e else part then compare the current url with prev captured url if both are diff then use (browser("X").back) which will bring you back to the previous page.

Let me know if you need any more information.

[kowshik]

Code:

Set oLinks = Description.Create oLinks("micclass").value = "Link" objLinks = Browser("B").Page("P").Frame("body").ChildObjects(oLinks) LinkCount = objLinks.Count For i = 0 to LinkCount-1 objLinks(cint(i)).Click Next

how to click the first link inside the web element dynamically