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

[smeijer]

I have Browser("B").Page("P").Frame("body").Link("x").Click more that 10 on one page. I want to use for loop to click each links using the index or other method in QTP. Please help

[niranjan]

first use Child Objects to get the count of number of links a page.
And then use this count in the "for loop" to click on each of the links.

[ursvinod]

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

[basanth27]

Modification :

objLinks(cint(i)).click - There is no requirment for Cint because we are dealing with HTML dom & there is no polymorphisim involved in this.

[mss]

Hi,

I need to click each and every link on a web page.
i tried the above mentioned option. since my web page is having many frames, it will select the links which we will specify in code.

How can i select all the frames in a web page and each time it should take the links in each frame and click it. after one frame over it should point to next frame and select all the links from that page.

Anybody could you please help me.

[KVK]

Hi

Try this code

Code:

Set oFrame = Description.Create()
oFrame("micclass").Value =  "Frame"
Set oLinks = Description.Create()
oLinks("micclass").Value = "Link"
Set objFrame = Browser("B").Page("P").ChildObjects(oFrame)
FrameCount = objFrame.Count
If FrameCount > 0 Then
For i = 0 to FrameCount-1
  Set objLinks = Browser("B").Page("P").objFrame(i).ChildObjects(oLinks)
  LinkCount = objLinks.Count
  If LinkCount > 0 Then
      For k = 0 to LinkCount-1
objLinks(k).Click
Next
  Else
  Msgbox "Links Does not exist in Fame no "&k
  End If
Next
Else
Msgbox "Frame object does not exist"
End

[supputuri]

yup the above code will work's out. But, i think we have to come back to the same page after clicking on the link (if we are navigating to other page when clicked on link) under such conditions we have to use "Browser("B").Back" once we successfully clicked and navigated to other page.

Thanks,
QTPKing

[mss]

Hi all,

Thanks for the quick response. Its working fine.

[mss]

hi ,

In above program after each link clicked, as a effect of click on the links some time new web window will open and some time the Content of main page will change.

i need to check after clicking a link no error should be displayed in the web page


i used the below program to find whether any error occured in the web page. I called a program which will return false if any error occured in the page. then in main progrma i can write lik if error occured then just click on log off button so that it should lead to same page as it was before the occurance of error.

Here control is not going inside the statement--
If IsPageCannotBeDisplayed(oBrw,PCD_Keywords) Then

And also i am passing the argument oBrw as same all the time, how can i pass the web page name which is currently opened (it may be new Web page window or the same page where the data chanaged)

Below is the program where i changed

Bold letters are same as you mentioned in the above program

For k = 0 to LinkCount-1
objLinks(k).Click

Code:

Set oBrw = Browser("A").Page("B")
       If IsPageCannotBeDisplayed(oBrw,PCD_Keywords) Then
       Browser("A").Page("B").Frame      
        ("corner").Link("Log off").Click
       End If

Next



' Function which i am calling

Code:

Public Function IsPageCannotBeDisplayed (oBrw,PCD_Keywords)
    Dim  sUrl,sPageText,oPg

    IsPageCannotBeDisplayed = False

    If Not oBrw.Exist(0) Then

    Exit Function
    End If

    'Get the page object
    Set oPg = oBrw.Page("micclass:=Page")

    'A page might not exist when the dialog modal is present
    'in the browser
    If Not oPg.Exist(0) Then
    Exit Function
    End If


    sURL = oBrw.Page("micclass:=Page").GetROProperty("URL")

    'Special check for IE and FF URL checks
    If InStr(1,sURL,"shdoclc.dll",vbTextCompare) <> 0 Or InStr(1,sURL,"about:neterror?",vbTextCompare) <> 0 Then
        IsPageCannotBeDisplayed = True

    'IF IE then we will use HTML DOM to get the whole page text
    ElseIf InStr(1,oBrw.GetROProperty("version"),"internet explorer",vbTextCompare) Then
        sPageText = oPg.Object.documentElement.outerText
    End If

    Dim  sKeyword

    For Each sKeyword In PCD_Keywords
        'Check if our keyword exist on the page
        If InStr(1,sPageText,sKeyword,vbTextCompare) Then
            IsPageCannotBeDisplayed = True
            Exit Function
        End If
    Next
End Function

Dim  PCD_Keywords
PCD_Keywords = Array("The page cannot be displayed","Sorry page is not found","error")

[mss]

hi all,

in above post wat i meant to convey is--

After i click a link, new page is opening(in same window or new pop up window), i need to check that content of page should not be "Page cannot be displayed" or some "error message".

to achive this requirement i called the program which i have mentioned in the previous post. but it is not working properly,

Could you please guide me where i am going wrong.

and also for this function i need to pass the web page name which is recently opened as a effect of click on the link.