How to find the number the number of Links, Brolken Links
in a webpage?

Answers were Sorted based on User's Feedback



How to find the number the number of Links, Brolken Links in a webpage?..

Answer / rayudu

By using childobject method


Set linkDescObj=description.Create()
linkDescObj("micclass").value="Link"
Set Links=browser("Gmail: Email from Google").Page("Gmail -
Inbox -srikrishna").ChildObjects(linkDescObj)
NoOfLinks=Links.count()
msgbox NoOfLinks
For i=0 to NoOfLinks-1
linkName=Links(i).getROProperty("name")
msgbox linkName
Next

Is This Answer Correct ?    3 Yes 0 No

How to find the number the number of Links, Brolken Links in a webpage?..

Answer / nadikattu2002@yahoo.com

Using page check points u can check no of links,broken
kinks in a page.

Is This Answer Correct ?    1 Yes 1 No

How to find the number the number of Links, Brolken Links in a webpage?..

Answer / less than you

Choose Standard check points either from Active screen or from keyword view, a Object selection properties box will appear from there select page (upper most) and click on OK.

Is This Answer Correct ?    0 Yes 0 No

Post New Answer

More QTP Interview Questions

What are output values and why they are used ?

0 Answers  


Explain about Standard output value, Text output value, database o/p value, Xml O/p value, Xm o/p Value

1 Answers   TCS,


I have to pass all the test cases into gmail userid and password using functions please give me code thanks have anice and greate day

2 Answers  


In QTP how to interact tool and application build?

2 Answers  


How do you script a nested loop in QTP? I am showing a snipet of my code. Any suggestions to help me get this to work would be great appreciated! STEP A - Customer Number: No loop - ISBN: Loop STEP B - Customer Number: Loop - ISBN: Nested Loop Here is the code I am using now. I am using i for the loop and j for the nested loop in STEP B of my script. =========================================== 'CREATE AN ADDITIONAL CUSTOMER Dim myNum, RowNum, RowCnt2, val2, total, i DataTable.ImportSheet "C:\QOE Data - UAT1.xls" ,"Data" ,"Global" RowCnt2 = DataTable.GetRowCount i = 1 DataTable.SetCurrentRow(i) ' Set row to one Do while Not i > RowCnt2 i=i+1 DataTable.SetNextRow MsgBox Datatable.Value("Customer_Num") Msgbox i Msgbox RowCnt2 If Not i > RowCnt2 then val2=datatable.Value("Customer_Num","Global") OracleFormWindow("Sales Order").SelectMenu "File->New" OracleFormWindow("Sales Order").OracleTabbedRegion("Order Information").OracleTextField("Customer Number").SetFocus OracleFormWindow("Sales Order").OracleTabbedRegion("Order Information").OracleTextField("Customer Number").Enter val2 End If 'CREATE SECOND ISBN LIST DataTable.ImportSheet "C:\QOE Data - UAT1.xls" ,"Data" ,"Global" Dim j, RowCnt3, val3 RowCnt3 = DataTable.GetRowCount For j = 1 To RowCnt3 DataTable.SetCurrentRow(i) ' datatable.getSheet("DataTable").setNextRow If Trim(DataTable("ISBN",dtGlobalSheet)) = "" Then j = j - 1 Exit For End If Next 'Define ISBN rows If RowCnt3 <> j Then RowCnt3 = j End If 'Loop through ISBN rows For j = 1 To RowCnt3 DataTable.SetCurrentRow(i) val3 = Datatable.Value("ISBN","Global") msgbox j If j = 1 Then OracleFormWindow("Sales Order").OracleTabbedRegion("Line Items").OracleTextField("Ordered Item").SetFocus OracleFormWindow("Sales Order").OracleTabbedRegion("Line Items").OracleTextField("Ordered Item").Enter val3 else If j < 16 Then OracleFormWindow("Sales Order").OracleTabbedRegion("Line Items").OracleTextField("Ordered Item_"&i).SetFocus OracleFormWindow("Sales Order").OracleTabbedRegion("Line Items").OracleTextField("Ordered Item_"&i).Enter val3 else If RowCnt1 => 16 Then OracleFormWindow("Sales Order").OracleTabbedRegion("Line Items").OracleTextField("Ordered Item_15").SetFocus OracleFormWindow("Sales Order").OracleTabbedRegion("Line Items").OracleTextField("Ordered Item_15").InvokeSoftkey "DOWN" OracleFormWindow("Sales Order").OracleTabbedRegion("Line Items").OracleTextField("Ordered Item_15").SetFocus OracleFormWindow("Sales Order").OracleTabbedRegion("Line Items").OracleTextField("Ordered Item_15").Enter val3 end if end if End If Next 'EXIT APP msgbox i loop Browser("Browser").Page("Oracle Applications 11i").Sync Browser("Browser").Close ========================================== It isn't working correctly in my nested loop in STEP B (for ISBN). Any ideas?? Thanks! SBsteve

0 Answers  






Which object repository we use in real time and can we merge 2 object repostiory and how?

3 Answers  


what is bultin funtaion in QTP &tell me five examples?

5 Answers   Kanbay,


Where should we turn Smart Identification ON in QTP?

5 Answers  


Hi All, I have QTP installed on my machine but the application under test (AUT) is on remote desktop (i.e. I first connect to remote desktop from my machine in order to run the application). I am able to record the script successfully with QTP running on my machine and application running on remote. However, when i run the recorded script, system fails to run it and indicates me that it does not identify the object. Is it possible to record and play while QTP and AUT are not on same machine?

7 Answers   ABC,


What is the difference between byref and byval in qtp?

0 Answers  


How we can test a Frame in a web page?

1 Answers   eMids,


wt is memory leakage?

6 Answers   BSL,


Categories