QTP REAL TIME SCRIPTS

Test Requirements

1)    Verify Login Boundary (Check the entire 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?

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

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"

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)

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

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

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"

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"

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"

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)

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

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")

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

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

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