1. Record and PlayBack
(Login to Flight Reservation ,Book one ticket ,Insert Order
, Send Fax Order
and close)
systemutil.Run "C:\Program Files\Mercury
Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent
Name:").Set "venkatesh"
Dialog("Login").WinEdit("Agent
Name:").Type micTab
Dialog("Login").WinEdit("Password:").SetSecure
"4c639147ce17debfa9a680adf3fb0a1f7b766d39"
Dialog("Login").WinButton("OK").Click
Window("Flight
Reservation").ActiveX("MaskEdBox").Type "081310"
Window("Flight Reservation").WinComboBox("Fly
From:").Select "Frankfurt"
Window("Flight Reservation").WinComboBox("Fly
To:").Select "London"
Window("Flight
Reservation").WinEdit("Name:").Set "venkat"
Window("Flight
Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights
Table").WinList("From").Activate "13536 FRA 08:00 AM LON 08:45 AM SR
$163.00"
Window("Flight
Reservation").WinEdit("Name:").Set "venkat"
Window("Flight
Reservation").WinButton("Insert Order").Click
Window("Flight
Reservation").WinMenu("Menu").Select "File;Fax
Order..."
' used regular expression at the below Fax Order.Rht
Click on
Dialog and make it Fax Order
No.* .And check the regular expression
Window("Flight Reservation").Dialog("Fax
Order No. 12").ActiveX("MaskEdBox").Type "0809972129"
Window("Flight Reservation").Dialog("Fax
Order No. 12").WinCheckBox("Send Signature with order").Set
"ON"
Window("Flight Reservation").Dialog("Fax
Order No. 12").WinButton("Send").Click
Window("Flight Reservation").Close
2 Descriptive
Programming (Login to Flight
Reservation)
systemutil.run "C:\Program Files\Mercury
Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
Dialog("text:=Login").WinEdit("attached
text:=Agent Name:").Set "venkatesh"
Dialog("text:=Login").WinEdit("attached
text:=Password:").SetSecure
"4c63941e33c84ad39b70103970c7fe0f8e429f0f"
Dialog("text:=Login").WinButton("text:=OK").Click
Window("text:=Flight Reservation").Close
3.Capture Screen Shot
(using CaptureBitmap)—
Login failed at
Flight Reservation Application
SystemUtil.Run "C:\Program Files\Mercury
Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
Dialog("Login").WinEdit("Agent
Name:").Set "venkatesh"
'Desktop.CaptureBitmap "d:\login4.png"
Dialog("Login").WinEdit("Password:").SetSecure
"4c0616cda83a5c9f88633cdaff4c044c"
Dialog("Login").WinButton("OK").Click
dialog("Login").Dialog("Flight
Reservations").CaptureBitmap "d:\login.bmp"
bexists=Dialog("Login").Dialog("Flight
Reservations").Exist(2)
If bexists Then
smsg=Dialog("Login").Dialog("Flight
Reservations").GetVisibleText
reporter.ReportEvent
micFail,"Login",smsg
Dialog("Login").Dialog("Flight
Reservations").WinButton("OK").Click
Dialog("Login").WinButton("Cancel").Click
exittest
End If
4. Reusable Action (Flight Reservation Example)
Action1: (Login with
incorrect password and cacel)
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"
Dialog("Login").WinEdit("Agent
Name:").Set "venkatesh"
Dialog("Login").WinEdit("Password:").SetSecure
"4c0616cda83a5c9f88633cdaff4c044c"
Dialog("Login").WinButton("OK").Click
bexists=Dialog("Login").Dialog("Flight
Reservations").Exist(2)
If bexists Then
smsg=Dialog("Login").Dialog("Flight
Reservations").GetVisibleText
reporter.ReportEvent
micFail,"Login",smsg
Dialog("Login").Dialog("Flight
Reservations").WinButton("OK").Click
Dialog("Login").WinButton("Cancel").Click
End If
runaction "Action3",oneiteration
Action2:
msgbox
"welcome to action2"
Action3: (Reusable
Action) used in Action1 : (Login with correct password)
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"
Dialog("Login").WinEdit("Agent
Name:").Set "venkatesh"
Dialog("Login").WinEdit("Password:").SetSecure
"4c06513879e8c9aae96f878ebd40924cb403de52"
Dialog("Login").WinEdit("Password:").Type micReturn
Window("Flight Reservation").Close
5. Regular Expression
and Parameterization
(Login to Flight
Reservation application, insert order and send fax information)
(need to create
fax_no in global sheet with fax numbers)
' Use of Regular Expressions and Parameterization
' Insert Order and Send Fax
systemutil.Run "C:\Program Files\Mercury
Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent
Name:").Set "venkatesh"
Dialog("Login").WinEdit("Password:").SetSecure
"4c63b0b0656069024c0d34dd2f5745a7b3780b8a"
Dialog("Login").WinButton("OK").Click
Window("Flight
Reservation").ActiveX("MaskEdBox").Type "081410"
Window("Flight Reservation").WinComboBox("Fly
From:").Select "London"
Window("Flight Reservation").WinComboBox("Fly
To:").Select "Los Angeles"
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights
Table").WinList("From").Activate "19138 LON
08:00 AM LAX 08:45 AM
AA $102.00"
Window("Flight
Reservation").WinEdit("Name:").Set "venky"
Window("Flight Reservation").WinButton("Insert
Order").Click
Window("Flight
Reservation").WinMenu("Menu").Select "File;Fax
Order..."
' Rht click on the dialog
below and make .* and check the
regular expression
Window("Flight Reservation").Dialog("Fax
Order No. 21").ActiveX("MaskEdBox").Type
DataTable("fax_no", dtGlobalSheet)
Window("Flight Reservation").Dialog("Fax
Order No. 21").WinButton("Send").Click
Window("Flight Reservation").Close
6.Shared Object
Repository
a.(Record Login to Flight Reservation. Goto--Resouces--Object
Repository(File--Export Local Objects).It will save as .tsr file)
systemuti.run "C:\Program Files\Mercury
Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
Dialog("Login").WinEdit("Agent
Name:").Set "venkatesh"
Dialog("Login").WinEdit("Password:").SetSecure
"4c63bd987f7ea31db67d4ec3760e762a901d3161"
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").Close
How
to use it :
Goto--Resources--Associate
Repositories--Browse the .tsr file and add it.We can't edit this shared O.R.
b.
Goto--Resources--Object
Repository Manager--(Objects--Add Objects).File--Save As.It will save as .tsr
file
7. How to use Library
Functions
a.
addition.vbs
Function
add
a=20
b=30
c=a+b
msgbox "The addition of a and b is :
"&c
End
Function
b.
multiplication.vbs
Function
mul
a=4
b=5
c=a*b
msgbox
"The multiplication of a and b is :"&c
end
function
(File--Settings--Resources--Browse
files)
8.Give different
keywords at google and search (used descriptive programming and
parameterization)
Set
ie=createobject("internetexplorer.application")
ie.navigate("http://www.google.co.in/")
ie.visible=true
Browser("title:=Google").Page("title:=Google").WebEdit("name:=q").Set
DataTable("search_keywords",dtGlobalSheet)
Browser("title:=Google").Page("title:=Google").WebButton("value:=Google
Search").Click
Browser("opentitle:=Google").Close
9.Store Results in
Excel
Set xl=
CreateObject("Excel.application")
set wb=xl.workbooks.open("d:/sample2.xls")
Set ws=wb.worksheets(1)
a=15
b=20
If a>b Then
ws.Cells(1,1).Value
="a is bigger"
ws.Cells(1,2).value="PASS"
Reporter.ReportEvent micDone,"a is bigger", a
Else
ws.Cells(1,1).Value = "b is bigger"
ws.Cells(1,2).value = "FAIL"
ws.cells(1,2).font.bold=true
ws.cells(1,2).font.size=12
ws.Cells(1,2).font.colorindex=50
Reporter.ReportEvent micFail
,"b is bigger" , b
End If
wb.save
wb.close
Set ws=nothing
Set wb=nothing
Set xl=nothing