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 Posted / 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 |
Post New Answer View All Answers
What are the Disadvantages of shared object repository?
Why do we use breakpoints in QTP?
Explain the views in the QTP GUI?
How will you test a stapler?
How is UFT 11.5 version different from UFT 12.0?
Explain the checkpoint in qtp?
What is the difference between a Function and Procedure in QTP?
Will there be any standards or requirements for page appearance and/or graphics throughout a site or parts of a site?
What are the differences between quicktest professional and winrunner?
What are the various types of Actions in UFT?
Is QTP Supports SWT applications? If yes, can you write a sample script for opening a new package in eclipse.
How many tabs are available to view your test in a test pane and what are they?
can any one say that where we can download the QTP trail version ??????????
Name the properties you would use for identifying a browser and page when using descriptive programming?
If I change the property value at runtime is it effect is object repository?