Answer / kashinath hajare

Hi,
Suppose you have Weblist which
contains "English", "Marathi","Hindi" options and you want
to check this options and select "English from it. please
check following code for the same.

Dim sValue
sValue=Browser("xyz").Page("abc").WebList
("wblLanguage").GetROProperty("all items")
msgbox sValue

If InStr(Browser("xyz").Page("abc").WebList
("wblLanguage").GetROProperty("all items"),"English")=
False Then
Reporter.ReportEvent micFail, "Check Fields on
Compose page","The Dropdown list doesn't contain English
item"
msgbox "Fail"
Else
msgbox "Pass"
Browser("xyz").Page("abc").WebList
("wblLanguage").Select "English"
End If

How can I import environment from a file on disk?

0 Answers  

---

Which property do you use to retrieve or assign data into a cell in a Data Table object?

1 Answers  

---

what is the difference between development and testing

1 Answers  

---

actually how many hours per one day we will work on automation(qtp) in real time

1 Answers   Synechron,

---

Hello, I am working on automating unix application using QTP via terminal emulator.Recording and playback works as i execute my test case. I need to parameterise my data now. Steps to be followed 1. go to the application TeWindow("TeWindow").Window("Connect").WinButton ("Connect").Click 2. Make a transaction to an account I am able to make transaction one at a time (one person when i run the script) and the script is as below and works fine. TeWindow("TeWindow").TeTextScreen ("TeTextScreen").Type "./4ee.sh" TeWindow("TeWindow").TeTextScreen("TeTextScreen").Type micReturn TeWindow("TeWindow").TeTextScreen("TeTextScreen").Sync TeWindow("TeWindow").TeTextScreen ("TeTextScreen").Type "a21100002" TeWindow("TeWindow").TeTextScreen("TeTextScreen").Type micReturn TeWindow("TeWindow").TeTextScreen("TeTextScreen").Sync TeWindow("TeWindow").TeTextScreen ("TeTextScreen").Type "tcccc" TeWindow("TeWindow").TeTextScreen("TeTextScreen").Type micReturn TeWindow("TeWindow").TeTextScreen("TeTextScreen").Sync TeWindow("TeWindow").TeTextScreen ("TeTextScreen").Type "test" TeWindow("TeWindow").TeTextScreen("TeTextScreen").Type micReturn TeWindow("TeWindow").TeTextScreen("TeTextScreen").Sync TeWindow("TeWindow").TeTextScreen("TeTextScreen").Type micF1 TeWindow("TeWindow").TeTextScreen("TeTextScreen").Type "6" TeWindow("TeWindow").TeTextScreen("TeTextScreen").Type micF1 TeWindow("TeWindow").TeTextScreen ("TeTextScreen").Type "xexit" TeWindow("TeWindow").TeTextScreen("TeTextScreen").Type micReturn TeWindow("TeWindow").TeTextScreen("TeTextScreen").Sync 3. Now i need to Make a transaction to the account for the list of people available from data table. How do i do this? Please let me know if you can Thanks, Chaya

1 Answers   Apex,

---

How many types of actions are there in quicktest professional (qtp)?

0 Answers  

---

how do u manipulating INI, DLL and / or registry files in support of your test environment? actually what do u mean by INI and DLL or registry files. plzzz its urgent do answer

0 Answers  

---

How will internal and external links be validated and updated? how often?

0 Answers  

---

In your QTP framework, what checkpoints were applied in the script to minimize script failure due to any reason during execution?

1 Answers   ITC Infotech,

---

What is data driver in qtp? Where we use it?

0 Answers  

---

Username field having some string mistake like"user naem".what type of testing i prefer to test spell check.

6 Answers   GE,

---

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...

1 Answers  

---