For more QTP Information & Scripts visit: www.gcreddy.

com

QTP Script Examples

Visit:

www.gcreddy.com
for QTP Scripts and Documents

G.C.Reddy, QTP Trainer (Mobile: 9247837478) 1

For more QTP Information & Scripts visit: www.gcreddy.com

Test Requirements
1) Verify Login Boundary (Check all the boundary conditions of the Login
window. Checks to see if the correct message appears in the error window
(Flight Reservation Message)

2) Verify Cancel Operation (in Login Dialog box, if user selects cancel button,
before enter any data after enter data dialog box should be disappeared.)

3) Verify Addition, Subtraction, Multiplication and Division Operations in

Calculator Application.

4) Verify state of Update Order Button, before open an Order and after
open an Order (in Flight Reservation before opening an order Update Order
button should be disabled after opening an order enabled.)

5) Price Consistency, In Flight Reservation (In Flight Reservation, First class

price=3*Economy class price and Business class price=2*Economy class
price)

6) Verify Total, In Flight Reservation (In Flight Reservation, Total = Tickets *

Price)

7) Verify Flight From & Flight To Combo Boxes (In Flight reservation, select
an item from Fly From: combo box and verify weather that item available or
not in Fly To: combo box, like this select all items one by one in Fly From and
verify weather selected items available or not in Fly To.)

8) Verify Order No Entry in Flight Reservation. (In Open Order dialog box,
Order No object accepts numeric values only.)

9) Get Test Data from a Flat file and use in Data Driven Testing (through
Scripting)

10) Get Test Data From a Database and use in Data Driven Testing
(through Scripting)

11) Count, how many links available in Mercury Tours Home Page?

G.C.Reddy, QTP Trainer (Mobile: 9247837478) 2

For more QTP Information & Scripts visit: www.gcreddy.com

12) Count how many Buttons and Edit boxes available in Flight
Reservation window?

13) Verify search options in Open Order Dialog box

(After selecting open order, 3 search options should be enabled and not checked,
After selecting Order No option, other options should be disabled,
After selecting Customer Name, Flight date option enabled and Order No disabled
After selecting Flight date option, Customer Name enabled and Order No disabled)

14) In Login Dialog box, Verify Help message (The message is ‘The password is
'MERCURY')

15) Count all opened Browsers on desktop and close all?

16) Create an Excel file, enter some data and save the file through VB
scripting?

Solutions:
1) Verify Login Boundary (Check all the boundary conditions of the Login
dialog box. Checks to see if the correct message appears in the error window
(Flight Reservation Message)

1) ApplicationDir = Environment("ProductDir")
2) ApplicationPath = "\samples\flight\app\flight4a.exe"
3) If Window("Flight Reservation").Exist(2) Then
4) Window("Flight Reservation").Close
5) SystemUtil.Run ApplicationDir & ApplicationPath
6) Elseif Not Dialog("Login").Exist(1) Then
7) SystemUtil.Run ApplicationDir & ApplicationPath
8) End If
9) Dialog("Login").WinEdit("Agent Name:").Set Datatable.Value
("AgentName",dtGlobalSheet)
10)Dialog("Login").WinEdit("Password:").Set Datatable.Value
("Password",dtGlobalSheet)
11)Dialog("Login").WinButton("OK").Click
12)If Dialog("Login").Dialog("Flight Reservations").Exist(1) and
Datatable.Value ("Status",dtGlobalSheet)="Fail" Then

G.C.Reddy, QTP Trainer (Mobile: 9247837478) 3

For more QTP Information & Scripts visit: www.gcreddy.com

13)Dialog("Login").Dialog("Flight Reservations").Static("Agent name must

be at").Check CheckPoint("Agent name must be at least 4 characters
long.")
14)Dialog("Login").Dialog("Flight Reservations").WinButton("OK").Click
15)Elseif Window("Flight Reservation").Exist(10) and Datatable.Value
("Status",dtGlobalSheet)="Pass" Then
16)Reporter.ReportEvent PASS,"Login: ","Succeeded"
17)Else
18)Reporter.ReportEvent Fail,"Login: ","Combination #" &
Datatable.GetCurrentRow & " was not according to Excel file"
19)End If

2) Verify Cancel Operation (in Login Dialog box, if user selects cancel button,
before enter any data after enter data dialog box should be disappeared.)

1) Invokeapplication "C:\Program Files\Mercury Interactive\QuickTest

Professional\samples\flight\app\flight4a.exe"
2) Dialog("Login").Activate
3) Dialog("Login").WinButton("Cancel").Click
4) If Dialog("Login").Exist (2) =True Then
5) Reporter.ReportEvent 1,"sd","Fail"
6) Else
7) Reporter.ReportEvent 0,"sd","Pass"
8) Invokeapplication "C:\Program Files\Mercury Interactive\QuickTest
Professional\samples\flight\app\flight4a.exe"
9) End If
10)Dialog("Login").Activate
11)Dialog("Login").WinEdit("Agent Name:").Set "asdf"
12)Dialog("Login").WinButton("Cancel").Click
13)If Dialog("Login").Exist (2) =True Then
14)Reporter.ReportEvent 1,"sd","Fail"
15)Else
16)Reporter.ReportEvent 0,"sd","Pass"
17)Invokeapplication "C:\Program Files\Mercury Interactive\QuickTest
Professional\samples\flight\app\flight4a.exe"
18)End If
19)Dialog("Login").Activate
20)Dialog("Login").WinEdit("Agent Name:").Set "asdf"

G.C.Reddy, QTP Trainer (Mobile: 9247837478) 4

For more QTP Information & Scripts visit: www.gcreddy.com

21)Dialog("Login").WinEdit("Password:").SetSecure
"4a993af45dcbd506c8451b274d2da07b38ff5531"
22)Dialog("Login").WinButton("Cancel").Click
23)If Dialog("Login").Exist (2)=True Then
24)Reporter.ReportEvent 1,"sd","Fail"
25)Else
26)Reporter.ReportEvent 0,"sd","Pass"
27)Invokeapplication "C:\Program Files\Mercury Interactive\QuickTest
Professional\samples\flight\app\flight4a.exe"
28)End If
29)Dialog("Login").Activate
30)Dialog("Login").WinEdit("Agent Name:").Set "asdf"
31)Dialog("Login").WinEdit("Password:").SetSecure
"4a993af45dcbd506c8451b274d2da07b38ff5531"
32)Dialog("Login").WinButton("OK").Click

3) Verify Addition, Subtraction, Multiplication and Division Operations in

Calculator Application.
1) Dim aRes,sRes,dRes,mRes
2) VbWindow("VbWindow").Activate
3) VbWindow("VbWindow").VbEdit("VbEdit").Set "10"
4) VbWindow("VbWindow").VbEdit("VbEdit_2").Set "20"
5) v1=VbWindow("VbWindow").VbEdit("VbEdit").GetROProperty ("text")
6) v2=VbWindow("VbWindow").VbEdit("VbEdit_2").GetROProperty ("text")
7) VbWindow("VbWindow").VbButton("ADD").Click
8) aRes=VbWindow("VbWindow").VbEdit("VbEdit_3").GetVisibleText
9) VbWindow("VbWindow").VbButton("SUB").Click
10)sRes=VbWindow("VbWindow").VbEdit("VbEdit_3").GetVisibleText
11)VbWindow("VbWindow").VbButton("MUL").Click
12)mRes=VbWindow("VbWindow").VbEdit("VbEdit_3").GetVisibleText
13)VbWindow("VbWindow").VbButton("DIV").Click
14)dRes=VbWindow("VbWindow").VbEdit("VbEdit_3").GetVisibleText
15)v1=cdbl(v1)
16)v2=cdbl(v2)
17)aRes=cdbl (aRes)
18)sRes=cdbl (sRes)

G.C.Reddy, QTP Trainer (Mobile: 9247837478) 5

For more QTP Information & Scripts visit: www.gcreddy.com

19)mRes=cdbl (mRes)
20)dRes=cdbl (dRes)
21)If aRes=v1+v2 Then
22)Reporter.ReportEvent 0,"Res","Addition Passed"
23)else
24)Reporter.ReportEvent 1,"Res","Addition Failed"
25)End If
26)If sRes=v1-v2 Then
27)Reporter.ReportEvent 0,"Res","Subtraction Passed"
28)else
29)Reporter.ReportEvent 1,"Res","Subtraction Failed"
30)End If
31)If mRes=v1*v2 Then
32)Reporter.ReportEvent 0,"Res","Multiplecation Passed"
33)else
34)Reporter.ReportEvent 1,"Res","Multiplecation Failed"
35)End If
36)If dRes=v1/v2 Then
37)Reporter.ReportEvent 0,"Res","Division Passed"
38)else
39)Reporter.ReportEvent 1,"Res","Division Failed"
40)End If

4) Verify state of Update Order Button, before open an Order and after open
an Order (in Flight Reservation before opening an order Update Order button should
be disabled after opening an order enabled.)
1) Option explicit
2) Dim bo,ao
3) If Not window("Flight Reservation").Exist (2) Then
4) SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest
Professional\samples\flight\app\flight4a.exe"
5) Dialog("Login").Activate
6) Dialog("Login").WinEdit("Agent Name:").Set "Gcreddy"
7) Dialog("Login").WinEdit("Password:").SetSecure
"4aa8bce9984f1a15ea187a2da5b18c545abb01cf"
8) Dialog("Login").WinButton("OK").Click

G.C.Reddy, QTP Trainer (Mobile: 9247837478) 6

For more QTP Information & Scripts visit: www.gcreddy.com

9) End If
10)Window("Flight Reservation").Activate
11)bo=Window("Flight Reservation").WinButton("Update Order").GetROProperty
("Enabled")
12)Window("Flight Reservation").WinButton("Button").Click
13)Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order
No.").Set "ON"
14)Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set "1"
15)Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
16)ao=Window("Flight Reservation").WinButton("Update Order").GetROProperty
("Enabled")
17)If bo=False Then
18)Reporter.ReportEvent 0,"Res","Update Order Button Disabled"
19)else
20)Reporter.ReportEvent 1,"Res","Update Order Button Enabled"
21)End If
22)If ao=True Then
23)Reporter.ReportEvent 0,"Res","Update Order Button Enabled"
24)else
25)Reporter.ReportEvent 1,"Res","Update Order Button Disabled"
26)End If

5) Price Consistency, In Flight Reservation (In Flight Reservation, First class

price=3*Economy class price and Business class price=2*Economy class price)

1) Option explicit
2) Dim n,f,b,e
3) If Not window("Flight Reservation").Exist (2) Then
4) SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest
Professional\samples\flight\app\flight4a.exe"
5) Dialog("Login").Activate
6) Dialog("Login").WinEdit("Agent Name:").Set "asdf"
7) Dialog("Login").WinEdit("Password:").SetSecure
"4aa8b7b7c5823680cfcb24d30714c9bbf0dff1eb"
8) Dialog("Login").WinButton("OK").Click
9) End If
10)For n= 1 to 10 step 1

G.C.Reddy, QTP Trainer (Mobile: 9247837478) 7

For more QTP Information & Scripts visit: www.gcreddy.com

11)Window("Flight Reservation").Activate
12)Window("Flight Reservation").WinButton("Button").Click
13)Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order
No.").Set "ON"
14)Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set n
15)Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
16)Window("Flight Reservation").WinRadioButton("First").Set
17)f=Window("Flight Reservation").WinEdit("Price:").GetVisibleText
18)Window("Flight Reservation").WinRadioButton("Business").Set
19)b=Window("Flight Reservation").WinEdit("Price:").GetVisibleText
20)Window("Flight Reservation").WinRadioButton("Economy").Set
21)e=Window("Flight Reservation").WinEdit("Price:").GetVisibleText
22)f=cdbl(mid(f,2,len (f-1)))
23)b=cdbl(mid(b,2,len (b-1)))
24)e=cdbl(mid(e,2,len (e-1)))
25)If f=3*e and b=2*e Then
26)Reporter.ReportEvent 0,"Res","Pricy Consistancy is there"
27)else
28)Reporter.ReportEvent 1,"Res","Pricy Consistancy is NOT there"
29)End If
30)Window("Flight Reservation").WinButton("Button_2").Click
31)Window("Flight Reservation").Dialog("Flight
Reservations").WinButton("No").Click
32)Next

6) Verify Total, In Flight Reservation (In Flight Reservation, Total = Tickets *

Price)

1) Option Explicit
2) Dim t,p,tot,n
3) For n= 1 to 10 step 1
4) If Not window("Flight Reservation").Exist (2) Then
5) SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest
Professional\samples\flight\app\flight4a.exe","","C:\Program Files\Mercury
Interactive\QuickTest Professional\samples\flight\app\","open"
6) Dialog("Login").Activate
7) Dialog("Login").WinEdit("Agent Name:").Set "Gcreddy"

G.C.Reddy, QTP Trainer (Mobile: 9247837478) 8

For more QTP Information & Scripts visit: www.gcreddy.com

8) Dialog("Login").WinEdit("Password:").SetSecure
"4aa892d62c529f1c23298175ad78c58f43da8e34"
9) Dialog("Login").WinButton("OK").Click
10)End If
11)Window("Flight Reservation").Activate
12)Window("Flight Reservation").WinButton("Button").Click
13)Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order
No.").Set "ON"
14)Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set n
15)Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click

16)t=Window("Flight Reservation").WinEdit("Tickets:").GetVisibleText
17)p=Window("Flight Reservation").WinEdit("Price:").GetVisibleText
18)tot=Window("Flight Reservation").WinEdit("Total:").GetVisibleText
19)t=cdbl (t)
20)p=Cdbl(mid(p,2,len (p-1)))
21)tot=Cdbl(mid(tot,2,len (tot-1)))

22)If tot=t*p Then

23)Reporter.ReportEvent 0,"Res","Calculation Passed"
24)else
25)Reporter.ReportEvent 1,"Res","Calculation Failed"
26)End If
27)Next

7) Verify Flight From & Flight To Combo Boxes (In Flight reservation, select an
item from Fly From: combo box and verify weather that item available or not in Fly
To: combo box, like this select all items one by one in Fly From and verify weather
selected items available or not in Fly To.)
1) Option explicit
2) Dim qtp,flight_app,f,t,i,j,x,y
3) If Not Window("text:=Flight Reservation").Exist (7)= True Then
4) QTP=Environment("ProductDir")
5) Flight_app="\samples\flight\app\flight4a.exe"
6) SystemUtil.Run QTP & Flight_app
7) Dialog("text:=Login").Activate
8) Dialog("text:=Login").WinEdit("attached text:=Agent Name:").Set "asdf"

G.C.Reddy, QTP Trainer (Mobile: 9247837478) 9

For more QTP Information & Scripts visit: www.gcreddy.com

9) Dialog("text:=Login").WinEdit("attached text:=Password:").SetSecure
"4aa5ed3daf680e7a759bee1c541939d3a54a5b65"
10)Dialog("text:=Login").WinButton("text:=OK").Click
11)End If
12)Window("text:=Flight Reservation").Activate
13)Window("text:=Flight Reservation").WinButton("window id:=6").Click
14)Window("text:=Flight
Reservation").ActiveX("acx_name:=MaskEdBox","window id:=0").Type
"090910"
15)f=Window("text:=Flight Reservation").WinComboBox("attached text:=Fly
From:").GetItemsCount
16)For i= 0 to f-1 step 1
17)Window("text:=Flight Reservation").WinComboBox("attached text:=Fly
From:").Select (i)
18)x=Window("text:=Flight Reservation").WinComboBox("attached text:=Fly
From:").GetROProperty ("text")
19)t=Window("text:=Flight Reservation").WinComboBox("attached text:=Fly
To:","x:=244","y:=147").GetItemsCount
20)For j= 0 to t-1 step 1
21)Window("text:=Flight Reservation").WinComboBox("attached text:=Fly
To:","x:=244","y:=147").Select (j)
22)y=Window("text:=Flight Reservation").WinComboBox("attached text:=Fly
To:","x:=244","y:=147").GetROProperty ("text")
23)If x <> y Then
24)Reporter.ReportEvent 0,"Res","Test Passed"
25)Else
26)Reporter.ReportEvent 1,"Res","Test Failed"
27)End If
28)Next
29)Next
8) Verify Order No Entry in Flight Reservation. (In Open Order dialog box,
Order No object accepts numeric values only.)

1) If Not window("Flight Reservation").Exist (2) Then

2) SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest
Professional\samples\flight\app\flight4a.exe"
3) Dialog("Login").Activate
4) Dialog("Login").WinEdit("Agent Name:").Set "asdf"

G.C.Reddy, QTP Trainer (Mobile: 9247837478) 10

For more QTP Information & Scripts visit: www.gcreddy.com

5) Dialog("Login").WinEdit("Password:").SetSecure
"4aa9ccae3bb00962b47ff7fb0ce3524c1d88cb43"
6) Dialog("Login").WinButton("OK").Click
7) End If
8) Window("Flight Reservation").Activate
9) Window("Flight Reservation").WinButton("Button").Click
10)Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order
No.").Set "ON"
11)Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set "a"
12)ord=Window("Flight Reservation").Dialog("Open
Order").WinEdit("Edit").GetVisibleText
13)If ord= "a" Then
14)Reporter.ReportEvent 1,"Res","Order No Object is taking invalid data"
15)else
16)Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set "1"
17)Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
18)End If
9) Get Test Data from a Flat file and use in Data Driven Testing (through
Scripting)
1) Dim fso,myfile
2) Set fso=createobject("scripting.filesystemobject")
3) Set myfile= fso.opentextfile ("F:\gcr.txt",1)
4) myfile.skipline
5) While myfile.atendofline <> True
6) x=myfile.readline
7) s=split (x, ",")
8) SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest
Professional\samples\flight\app\flight4a.exe"
9) Dialog("Login").Activate
10)Dialog("Login").WinEdit("Agent Name:").Set s(0)
11)Dialog("Login").WinEdit("Password:").SetSecure s(1)
12)Dialog("Login").WinButton("OK").Click
13)Window("Flight Reservation").Close
14)Wend
10) Get Test Data From a Database and use in Data Driven Testing (through
Scripting)

G.C.Reddy, QTP Trainer (Mobile: 9247837478) 11

For more QTP Information & Scripts visit: www.gcreddy.com

1) Dim con,rs
2) Set con=createobject("Adodb.connection")
3) Set rs=createobject("Adodb.recordset")
4) con.provider=("microsoft.jet.oledb.4.0")
5) con.open "C:\Documents and Settings\Administrator\My
Documents\Gcr.mdb"
6) rs.open "Select * From Login",con
7) While rs.eof <>True
8) SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest
Professional\samples\flight\app\flight4a.exe"
9) Dialog("Login").Activate
10)Dialog("Login").WinEdit("Agent Name:").Set rs.fields ("Agent")
11)Dialog("Login").WinEdit("Password:").Set rs.fields ("Password")
12)Dialog("Login").WinButton("OK").Click
13)Window("Flight Reservation").Close
14)rs.movenext
15)Wend

11) Count, how many links available in Mercury Tours Home Page.
1) Set oDesc = Description.Create()
2) oDesc("micclass").Value = "Link"
3) Set Lists = Browser("Welcome: Mercury").Page("Welcome:
Mercury").ChildObjects (oDesc)
4) NumberOfLinks = Lists.Count()
5) Reporter.ReportEvent 2,"Res","Number of Links are: "&NumberOfLinks

12) Count, how many Buttons and Edit boxes available in Flight Reservation
main window.

1) If Not window("Flight Reservation").Exist (2) Then

2) SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest
Professional\samples\flight\app\flight4a.exe"
3) Dialog("Login").Activate
4) Dialog("Login").WinEdit("Agent Name:").Set "Gcreddy"
5) Dialog("Login").WinEdit("Password:").Set "mercury"
6) Dialog("Login").WinButton("OK").Click
7) End If

G.C.Reddy, QTP Trainer (Mobile: 9247837478) 12

For more QTP Information & Scripts visit: www.gcreddy.com

8) Set oDesc = Description.Create()

9) oDesc("micclass").Value = "WinButton"
10)Set Buttons = Window("text:=Flight Reservation").ChildObjects (oDesc)
11)Num_Buttons = Buttons.Count()
12)Set oDesc1=Description.Create()
13)oDesc1("micclass").Value="WinEdit"
14)Set Editboxes=Window("text:=Flight Reservation").ChildObjects (oDesc1)
15)Num_Editboxes= editboxes.count ()
16)sum= Num_Buttons+Num_Editboxes
17)Reporter.ReportEvent 2, "Res","Total Buttons: "& Num_Buttons &"Total
Edit boxes: "& Num_Editboxes
13) Verify search options in Open Order Dialog box
(After selecting open order, 3 search options should be enabled and not checked,
After selecting Order No option, other options should be disabled,
After selecting Customer Name, Flight date option enabled and Order No disabled
After selecting Flight date option, Customer Name enabled and Order No disabled)

1) If Not window("Flight Reservation").Exist (2) Then

2) SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest
Professional\samples\flight\app\flight4a.exe"
3) Dialog("Login").Activate
4) Dialog("Login").WinEdit("Agent Name:").Set "Gcreddy"
5) Dialog("Login").WinEdit("Password:").SetSecure
"4aa9ed25bc0ebde66ed726ad87d7e991347d8b9c"
6) Dialog("Login").WinButton("OK").Click
7) End If
8) Window("Flight Reservation").Activate
9) Window("Flight Reservation").WinButton("Button").Click
10)Window("Flight Reservation").Dialog("Open Order").Activate
11)oe=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order
No.").GetROProperty ("Enabled")
12)ce=Window("Flight Reservation").Dialog("Open
Order").WinCheckBox("Customer Name").GetROProperty ("Enabled")
13)fe=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight
Date").GetROProperty("Enabled")

G.C.Reddy, QTP Trainer (Mobile: 9247837478) 13

For more QTP Information & Scripts visit: www.gcreddy.com

14)oc=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order

No.").GetROProperty ("Checked")
15)cc=Window("Flight Reservation").Dialog("Open
Order").WinCheckBox("Customer Name").GetROProperty ("Checked")
16)fc=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight
Date").GetROProperty("Checked")
17)If (oe=true and ce=true and fe=true) and (oc="OFF" and cc="OFF" and
fc="OFF") Then
18)Reporter.ReportEvent 0,"Res","Pass"
19)else
20)Reporter.ReportEvent 1,"Res","Fail"
21)End If
22)Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order
No.").Set "ON"
23)ono=Window("Flight Reservation").Dialog("Open
Order").WinCheckBox("Order No.").GetROProperty ("Checked")
24)If ono="ON" Then
25)fd=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight
Date").GetROProperty ("Enabled")
26)ono=Window("Flight Reservation").Dialog("Open
Order").WinCheckBox("Customer Name").GetROProperty ("Enabled")
27)fd=false
28)ono=false
29)Reporter.ReportEvent 0,"Res","Pass"
30)else
31)Reporter.ReportEvent 1,"Res","Fail"
32)End If
33)Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order
No.").Set "OFF"
34)Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Customer
Name").Set "ON"
35)cn=Window("Flight Reservation").Dialog("Open
Order").WinCheckBox("Customer Name").GetROProperty ("Checked")
36)If cn="ON" Then
37)ono=Window("Flight Reservation").Dialog("Open
Order").WinCheckBox("Order No.").GetROProperty ("Enabled")
38)fd=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight
Date").GetROProperty ("Enabled")
39)fd=True

G.C.Reddy, QTP Trainer (Mobile: 9247837478) 14

For more QTP Information & Scripts visit: www.gcreddy.com

40)ono=false
41)Reporter.ReportEvent 0,"Res","Pass"
42)else
43)Reporter.ReportEvent 1,"Res","Fail"
44)End If
45)Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Customer
Name").Set "OFF"
46)Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight
Date").Set "ON"
47)fd=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight
Date").GetROProperty ("Checked")
48)If fd="ON" Then
49)ono=Window("Flight Reservation").Dialog("Open
Order").WinCheckBox("Order No.").GetROProperty ("Enabled")
50)cn=Window("Flight Reservation").Dialog("Open
Order").WinCheckBox("Customer Name").GetROProperty ("Enabled")
51)cn=True
52)ono=false
53)Reporter.ReportEvent 0,"Res","Pass"
54)else
55)Reporter.ReportEvent 1,"Res","Fail"
56)End If
14) In Login Dialog box, Verify Help message (The message is ‘The password is
'MERCURY')
1) If Not Dialog("Login").Exist (2) Then
2) SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest
Professional\samples\flight\app\flight4a.exe"
3) End If
4) Dialog("Login").Activate
5) Dialog("Login").WinButton("Help").Click
6) message=Dialog("Login").Dialog("Flight Reservations").Static("The password
is 'MERCURY'").GetROProperty("text")
7) If message="The password is 'MERCURY'" Then
8) Reporter.ReportEvent 0,"Res","Correct message "&message
9) else
10)Reporter.ReportEvent 1,"Res","Worng message "
11)End If

G.C.Reddy, QTP Trainer (Mobile: 9247837478) 15

For more QTP Information & Scripts visit: www.gcreddy.com

15) Count all opened Browsers on desktop and close them all?
1) Set oDesc = Description.Create()
2) oDesc("micclass").Value = "Browser"
3) Set Browsers =Desktop.ChildObjects (oDesc)
4) NumberofBrowsers = Browsers.Count()
5) Reporter.ReportEvent 2,"Res","Number of Browsers are:
"&NumberOfBrowsers
6) For Counter=0 to NumberofBrowsers-1
7) Browsers(Counter).Close
8) Next

16) Create an Excel file, enter some data and save the file through VB
scripting?

1) Dim objexcel
2) Set objExcel = createobject("Excel.application")
3) objexcel.Visible = True
4) objexcel.Workbooks.add
5) objexcel.Cells(1, 1).Value = "Testing"
6) objexcel.ActiveWorkbook.SaveAs("f:\exceltest.xls")
7) objexcel.Quit

G.C.Reddy, QTP Trainer (Mobile: 9247837478) 16