pls tell me how will you write the vb script in QTP for
DataDriven test from Excel sheet for multiple userid and
password explain with example
Answers were Sorted based on User's Feedback
OK so I was thinking I would just record the login part
(username and password) and then log off, but how do I make
this a reuseable action for all the other scripts that were
already created? I want all the other scripts that use this
same userid and password to call this action so how do I do
that?
| Is This Answer Correct ? | 3 Yes | 0 No |
Answer / srikanth
Create different userids and passwords in Datatable.
then..
Dialog("Login").Winedit("Userid:").set Datatable
("columnname",dtGlobalSheet)
Dialog("Login").Winedit("Password:").set Datatable
("columnname",dtGlobalSheet)
Dialog("Login").WinButton("OK").Click
| Is This Answer Correct ? | 2 Yes | 1 No |
Answer / ravindra
We write different userids and passwords in Datatable.
then..
Dialog("Login").Winedit("Userid:").set Datatable.value
("userid",dtGlobalSheet)
Dialog("Login").Winedit("Password:").set Datatable.value
("password",dtGlobalSheet)
Dialog("Login").WinButton("OK").Click
Here "Userid" and "Password" are the Column names of the
datatable
| Is This Answer Correct ? | 1 Yes | 1 No |
Answer / waqar ahmad
Set mySheet=myFile.Worksheets("Sheet1")
Rows_Count=mySheet.usedrange.rows.count
For i= 2 to Rows_Count step 1
SystemUtil.Run "http://qa.ktango.com"
'Browser("Knowledge Tango Login").Page("Knowledge Tango Login").("text:=Login").Activate
Dialog("text:=Login").WinEdit("attached text:=Agent Name:").Set mySheet.Cells(a,"A")
Dialog("text:=Login").WinEdit("attached text:=Password:").Set mySheet.Cells(i,"B")
Wait (2)
Dialog("text:=Login").WinButton("text:=OK").Click
Window("text:=Flight Reservation").Close
Next
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / deven
'Data driven Frame work script
Option Explicit
'define constants for web URL and browser name
executefile "C:\TestAutomation\openTAPS\Lib\Constants.vbs"
executefile "C:\TestAutomation\Common\Lib\UtilityFunctions.v
bs"
executefile "C:\TestAutomation\Common\Lib\SendingEmail.vbs"
executefile "C:\TestAutomation\openTAPS\Classes\Functions.vb
s"
'declare variables
Dim iRowcount, i, Username, Password
'
datatable.AddSheet("dtInvalidLogin")
'ValidLogin is the sheet name
datatable.ImportSheet "C:\TestAutomation\openTAPS\Data\TestD
ata.xls", "InValidLogin", "dtInvalidLogin"
'Get row count from datatable
iRowcount = datatable.GetSheet("dtInvalidLogin").GetRowCount
For i = 1 to iRowcount
'functions
OpenApp()
'set username and password
Username = trim(datatable.Value
("Username", "dtInvalidLogin"))
Password = trim(datatable.Value
("Password", "dtInvalidLogin"))
Login Username, Password
'Verification: check username should display on home page
If Browser("opentaps CRM").Page("opentaps CRM").WebElement
("DemoCSR").GetROProperty("outertext")=Username Then
'object.method to report events in HP Run Results
Viewer that Login is successful or not
'EventStatus - micPass shows under Results
'StepName - ValidLogin shows under Object
'UserName Login Successful shows under Details
reporter.ReportEvent micPass, "ValidLogin",
Username& " Login not successful"
WriteToFile "C:\QTP\TestAutomation\openTAPS\Logs\Tes
tResults.txt", Username & " Login successful"
Else
reporter.ReportEvent micFail, "ValidLogin",
Username& " Login successful"
WriteToFile "C:\QTP\TestAutomation\openTAPS\Logs\Tes
tResults.txt", Username & " Login not successful"
End If
'Logout
Browser("My Home | opentaps CRM").Page("My Home | opentaps
CRM").Link("Logout").Click @@ hightlight id_;_Browser("My
Home | opentaps CRM").Page("My Home | opentaps CRM").Link
("Logout")_;_script infofile_;_ZIP::ssf1.xml_;_
'close app
CloseApp()
datatable.SetNextRow
Next
'Gmail
SendMail "21deven@gmail.com", "jinideveloper@gmail.com", "QT
PTest Results", "Please find my qtp test results"
'Outlook
'SendMail("21deven@gmail.com", "QTPTest Results", "Please
find my qtp test
results" , "C:\QTP\TestAutomation\openTAPS\Logs\TestResults.
txt")
| Is This Answer Correct ? | 0 Yes | 0 No |
What is action? How many types of actions are there in qtp?
I am sathish , i want to test the Application of JIL.org ,Mobile Emulator ,by using QTP10.0. I am trying to do testing on that Application , but Child Objects are not identified by the QTP. Please can any one help me
what is the default ordinal identifier.what are the send keys in qTP.
You say it is a bug but developer say it is not a bug then what will you do?
7 Answers Hewitt, Tech Mahindra,
What are the steps involved in recovery scenario wizard?
In a page i have N number of links at a time i would like to open those links by using QTP?how to do that?
Write the code for,In the page screen we have total 10 Links,out of these I have to click 9th link
If some requirements r changed during the testing process ,then how can u handle this in frame work?
Anybody wants to learn QTP with realtime implementations and complete framework desiging plz contact to this mail id ciraaj@gmail.com
How to explain a banking project in interview as a test engineer???
what and how to answer for the question "tell me about yourself ?" for 3 years experience. can anyone say inj detail please... its urgent
can any body pls mail me latest FAQ's in QTP to my mailid btrintra@gmail.com....Thanks in advance