VM1 = "Invalid username or password. Please
try again. "
VM2 = "Email id is required.Password is
required. "
VM3 = "Email id is an invalid e-mail
address.Password is required. "
VM4 = "Password is required. "
VM5 = "Email id is required. "
VM6 = "Email id is an invalid e-mail
address. "
'Rowcount of the Local sheet
Rowcount = DataTable.GetSheet("Invalid login
transactions").GetRowCount
'Valid emailid and Password
Emailid = "test@iteamic.com"
Password = "Password0"
'For i = 1 to Rowcount
'Parameterised Email_id
Browser("Browser").Page
("Page").WebEdit("emailAddress").Set DataTable("Email_id",
dtLocalSheet)
EID = Browser("Browser").Page
("Page").WebEdit("emailAddress").GetRoProperty("value")
'Parameterised Password
Browser("Browser").Page
("Page").WebEdit("password").Set DataTable("Password",
dtLocalSheet)
PWD = Browser("Browser").Page
("Page").WebEdit("password").GetROProperty("Value")
If EID = Emailid And PWD = Password Then
Reporter.ReportEvent micPass, "EID & PWD
check", "Email id and Password is correct, One iteration of
Invalid login attempts is not being executed"
Else Browser("Browser").Page("Page").WebButton
("Sign-In").Click
'Output value exported to the local
sheet
Browser("Browser").Page
("Page_2").Output CheckPoint("Home page_Sign in")
'Storing the output value in a
variable(OUTPUT
OUTPUT = Datatable.GetSheet
("Invalid login transactions").Getparameter
("Validation_message_signin").value
'comparing the Variable Output and
the Validation message for a given input
If OUTPUT = VM1 Then
Reporter.ReportEvent
micPass, "VM1", "Invalid username or password. Please try
again. "
else if OUTPUT = VM2 Then
Reporter.ReportEvent
micPass, "VM2", "Email id is required.Password is
required. "
else if OUTPUT = VM3 Then
Reporter.ReportEvent
micPass, "VM3", "Email id is an invalid e-mail
address.Password is required. "
else if OUTPUT = VM4 Then
Reporter.ReportEvent
micPass, "VM4", "Password is required. "
else if OUTPUT = VM5 Then
Reporter.ReportEvent
micPass, "VM5", "Email id is required. "
else if OUTPUT = VM6 Then
Reporter.ReportEvent
micPass, "VM6", "Email id is an invalid e-mail address. "
else Reporter.ReportEvent micFail, "EID &
PWD check_FAIL", "Validation message checkpoint failed. The
captured v msg is not required"
End if
End if
I am getting syntax error saying "Expected 'End If'" at the
last line, Why is this? Kindly explain...
Answer / shantikiran
Hi, this is ShantiKiran from Pune...
in your above code, replace the "Else if" to "ElseIf"
and check it
Regards
ShantiKiran B
| Is This Answer Correct ? | 4 Yes | 1 No |
How to merge the two object repositories
How do you handle XML exceptions in QTP (Here it is Exception, not the checkpoint)
I want to open a GOOGLE page without recording a test in QTP.Can any one answer me?
Suppose if a functionalityis not mensioned in requirement document and but its present in application. will it be consider as a bug and viceversa?
Which object repository we use in real time and can we merge 2 object repostiory and how?
WHICH functionalities of QTP used in Banking project?
hai there..this is chandu..i have a txt file which containing 1000 lines but at a time i want to retrieve 50 lines..after 50 lines i required to retrieve 51-100..like that i want...so could anybody help me in this...thanks in Advance..
what is the criteria for choosing test cases for automation? Ex: if you have some 300 test cases, then how many you choose for automation. what is criteria of selecting?
3 Answers Aricent, Delhi University, TCS,
how u write vb script in qtp pls give me some basic script and some material
32 Answers Datamatics, UHG, Winit,
In Object Repository, two actions r there. Action1 name is A.tsr, Action2 name is B.tsr. Is it Possible? if Yes, what is the out put of A+B? if No, why?
How to create log file in qtp?
in qtp how we work with out put values and what is the process?