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 are the difference ways of parameterising?
what are SetToProperty, SetROProperty,GetToproperty scripting?
the question was on what techonlogy u been working on i said VB then he asked me the addin for VB in Qtp?
Is it a smart choice to use QTP for backend testing?
how are environment variables used in real time projects (testing)?what answer should be given about this in interview.need real time explanation breifly?thnx in advance.
Browser("Las Vegas Hotels - Las").Page("Vegas Hotels - Hotels").Link("Luxor") ......here Luxor is a hotel and this is recognised as a link. I have many hotels like Luxor, Palms etc which are all displayed as link...How do I parametrize this by using webtable functions??? ASAP
in login module login button chage regularly(means login button change to submit button).What is the code for it.
What is the Risk Analysis? Waht types of risk analysis are there?
What is the difference between link and hyperlink?
How to Import data from a ".xls" file to Data table during Runtime.
How will you test a stapler?
wt is playback facilityin qtp?