I have thousands of links are there, i want check each and
every funtionality of link by using descriptive programme,
retrive link name from excelsheet then operate in
application. Please anybody send me model script
Answer Posted / tvsramakrishnachowdary
Soppose i Have excel file in the "D:\links.xls" which
contain all link names in the "Sheet1" with column
name "Link_Name".Let us assume Here link names i gathered
from Gmail Login Page ok....now my approach is as below..
pre req setting in the QTP:
1)Goto File
2)setting->run tab
3)check run one iteration only
datatable.import "D:\links.xls"
set mylink=description.create
mylink("mic class").value="Link"
mylink("html tag").value="A"
linkcoll=browser("name:=Gmail.*).page
("title:=Gmail.*).childobjects(mylink)
cnt=linkcoll.count
for i=1 to datatble.getrowcount
datatable.setcurrentrow(i)
explink=datatable.value("Link_Name",1)
msgbox explink
for j=1 to cnt-1
actlink=linkcoll(i).getroproperty("name")
if explink=actlink then
linkcoll(i).click
if (browser("name:=Gmail").page(<here new page
title>).exist then
msgbox "Link Pass"
else
msgbox "Link Fail"
End IF
End IF
Next
Next
| Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
How can I find out the cursor position through QTP suppose I am keep tabbing(Pressing the tab key continuously) and stoped at a position Now I want to find out where the cursor position is
what is the difference between data driver & data driven and driver script?
Is the qtp course will help to create a virtual object?
what the difference between shared repository and per action repository?
Differentiate the type of test cases which can be automated and which cannot be automated?
what is run-time data?
if our qtp vb Script may be Currepted then What we want do?
How do you configure QTP AND Test director?
What is test object?
I used the below code to open QTP through VBscript?But i can unable to Invoke QTP...PLZ help me with the correct code to invoke QTP through VBS with description of the code aswell. Dim qtApp 'As QuickTest.Application 'Declare the Application object variable Dim qtTest 'As QuickTest.Test 'Declare a Test object variable Dim qtResultsOpt 'Declare a Run Results Options object variable Set qtApp = CreateObject("QuickTest.Application") 'Create the Application object qtApp.Launch 'Start QuickTest qtApp.Visible = False 'Make the QuickTest application visible qtApp.Open "C:\form", True 'Open the test in read-only mode 'set run settings for the test Set qtTest = qtApp.Test qtTest.Run 'Run the test 'WScript.StdOut.Write "Status is: " & qtTest.LastRunResults.Status 'Check the results of the test run qtTest.Close 'Close the test qtApp.quit 'Close QuickTest Pro Set qtResultsOpt = Nothing 'Release the Run Results Options object Set qtTest = Nothing 'Release the Test object Set qtApp = Nothing 'Release the Application object
Explain different checkpoints in qtp.
What are the challenges u faced in testing with crm domain? How u overcome with?
Hi, How Accessibility checkpoint in QTP can be implemented in the test script?
How software tester can use constants and variables in scripts?
What do you to script when objects are removed from application?