Answer / jay prakash

Try this... i am writing for "Flight Reservation" sample
application. You can coustomize for your own requirements.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''SCRIPT STARTS HERE'''''''''''''''''''''''''

Dim i, j, iRes
j=0: iRes=1
Window("Flight Reservation").Activate
Set oDesc = Description.Create
oDesc("Class Name").value="WinButton"
Set oChild = Window("Flight Reservation").ChildObjects
(oDesc)
iCount = oChild.count

For i = 1 to iCount

strBtnStatus = Window("Flight
Reservation").WinButton("Class Name:=
WinButton", "index:="&j).GetROProperty("enabled")
j = j+1

If strBtnStatus="False" Then
iRes = 0
Exit For
End If

Next

If iRes=1 Then
MsgBox ("All buttons are enabled")
Else
MsgBox ("All buttons are not enabled")
End If

Set oDesc = Nothing
Set oChild = Nothing

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''SCRIPT ENDS HERE''''''''''''''''''''''''''''

Please let me know if it satisfies your requirement.

Can we Test Welcome Screens and Process Images with QTP

0 Answers  

---

How can we count the no of rows are available in a data table ?

9 Answers   Kanbay,

---

how qtp identify two objects having same name, supose objects are in same page also with same name,specify spl feature.

5 Answers   IGT, Microsoft,

---

Explain xml checkpoints.

0 Answers  

---

What are output values and why they are used ?

0 Answers  

---

can anyone answer this question ........in the DICTIONARY OBJECT....i created the dictionary object in reserved object ok....here i have some sets of values ...now i want to retrieve the item i done too ok.......here my question is now i saved the test and close the qtp tool ,again i opened now i retrieve the same item in the dictionary is it possible ????. friends when i try to do this i am getting empty message box i mean no value will be retrieved ......ans me any one plz...

1 Answers   FSS,

---

How can we retrieve the Bug Ids which are open&Reopen in status through QTP scrit?Please find the script which i tried... Dim objBugFactory, objBug Dim BugId Set TDConnection = QCUtil.TDConnection Set objBug = TDConnection.BugFactory If QCUtil.IsConnected then Reporter.ReportEvent 0, "Connected", "Connected to server: " + QCUtil.TDConnection.ServerName + chr (13) +"Project: " + QCUtil.TDConnection.ProjectName + chr (13) + "Domain: " + QCUtil.TDConnection.DomainName Reporter.ReportEvent 0, "Current time on server is","==>" & TDConnection.ServerTime Else Reporter.ReportEvent 1, "Not connected", "Not connected to Quality Center" End If If mybug.Status="Open" Then BugId=mybug.DefectId MsgBox BugId End If 'OR**********************************--------------------- -----********************************** If Bug_Fields("BG_STATUS").Value ="Open" Or "Re Open"Then BugId=Bug_Fields("BG_BUG_ID").Value MsgBox BugId End If

0 Answers   TCS,

---

Please give me the steps to carry out datadriven in QTP8.2

2 Answers  

---

I want to open a GOOGLE page without recording a test in QTP.Can any one answer me?

4 Answers   IBM,

---

How i can test the background color of the records displayed in a Table. Eg i have a .net desktop application and there is a Table(swftable) with records displayed in the grids. i have to validate whether the 1st record is displayed in white background color and 2nd record in light blue background color...But the constraints is that once user click on the first record...the background color changes to grey.......Plze let me now how to validate this with QTP 9.2.

9 Answers   Accenture,

---

In qtp, how you can use xpath to identify objects?

0 Answers  

---

how we implement share object repository in QTP 9.0 without using quality Centre , Explaine in brief

0 Answers   HCL,

---