Navigation: a) Launch the Browser b) Enter / Select the URL (“www.jjperfumes.com”)
Verification: Capture the Browser Name and Verify
—————
Function Launch_App() SystemUtil.Run “C:\Program Files\Internet Explorer\IEXPLORE.EXE”,”",”C:\Documents and Settings\Administrator”,”open” Browser(“Google”).Page(“Google”).Sync Browser(“Google”).Navigate “http://www.jjperfumes.com/” Wait (8) Browser_Name = Browser(“Google”).GetROProperty(“title”)
If Browser_Name=”JJ Perfumes-Discount perfume cheap brand name perfumes,
fragrance & cologne online” Then Launch_App=”Jjperumes.com Browser Launched Sucessfully” Msgbox Launch_App Else Launch_App=”Jjperumes.com Browser Not Launched” Msgbox Launch_App End If End Function
——————————————————————————————–
ii) Customer Registration
Pre-Setup: Launching Application
QTP Training 1 gcreddy@gcreddy.com
Navigation: a) Select Registration Link in jjperfumes.com homepage b) Enter all Mandatory details c) Select Submit button
If Confirm_Message=”Registered successfully. “Then
Register=”Customer Registration Sucessful” Msgbox Register Else Register=”Registration Failed” Msgbox Register End If
End Function
iii) Login Operation
Pre-Requisites: a) Launching Application b) Customer Registration Navigation: a) Select “Login” Link in jjperfumes.com homepage b) Enter Email and Password c) Select “Login Button”
If Browser(“JJ Perfumes-Discount perfume”).Page(“JJ Perfumes-Discount
perfume_3″).Link(“Logout”).Exist(10) Then Login=”Login Operation Sucessful” Msgbox Login Else Login=”Login Failed” Msgbox Login End If End Function
iv) Closing Application
———————— Navigation: ———— a) Check the Existence of jjperfumes.com Browser b) Close the Browser window (If exists) —————–
Function Launch_App() SystemUtil.Run “C:\Program Files\Internet Explorer\IEXPLORE.EXE”,”",”C:\Documents and Settings\Administrator”,”open” Browser(“Google”).Page(“Google”).Sync Browser(“Google”).Navigate “http://www.jjperfumes.com/” Wait (8) Browser_Name = Browser(“Google”).GetROProperty(“title”)
If Browser_Name=”JJ Perfumes-Discount perfume cheap brand name perfumes,
fragrance & cologne online” Then Launch_App=”Jjperumes.com Browser Launched Sucessfully” Msgbox Launch_App Else Launch_App=”Jjperumes.com Browser Not Launched” Msgbox Launch_App End If End Function
Update_Order=”Order Updated Sucessfully” Msgbox Update_Order Else Update_Order=”Order Not Updated” Msgbox Update_Order End If End Function —————————————–
viii) ‘Write Function to Count how many Browsers opened on desktop
and close them all
Function Close_Browsers() Dim oBrowser, Browsers, TotBrowsers, i Set oBrowser=Description.Create oBrowser(“micclass”).Value=”Browser” Set Browsers=Desktop.ChildObjects(oBrowser) TotBrowsers=Browsers.Count Msgbox TotBrowsers For i= 0 to TotBrowsers-1 Step 1 Browsers(i).close Next End Function —————————
ix) ‘Write Function to Count how many Buttons available in FR Window
Function Count_Buttons() Dim oButton, Buttons, TotButtons, i Set oButton=Description.Create oButton(“Class Name”).Value=”WinButton” Set Buttons=Window(“text:=Flight Reservation”).ChildObjects(oButton) TotButtons=Buttons.Count Msgbox TotButtons End Function Call Count_Buttons() —————————–
x) ‘Write Function to Count how many Objects available in FR Window
by specified Test Object class
QTP Training 6 gcreddy@gcreddy.com
Function Count_Objects(Object) Dim obj, Objects, TotObjects, i Set obj=Description.Create obj(“Class Name”).Value=Object Set Objects=Window(“text:=Flight Reservation”).ChildObjects(obj) TotObjects=Objects.Count Msgbox TotObjects End Function Call Count_Objects(“WinRadioButton”) Call Count_Objects(“WinButton”) Call Count_Objects(“WinEdit”) Call Count_Objects(“WinComboBox”) ——————————–
xi) ‘Write function to capture all button names one by one from Login Dialog Box
Function Capture_Buttons() Dim oButton, Buttons, TotButtons, i, myButton Set oButton=Description.Create oButton(“Class Name”).Value=”WinButton” Set Buttons=Dialog(“text:=Login”).ChildObjects(oButton) TotButtons=Buttons.Count
For i= 0 to TotButtons-1 myButton=Buttons(i).GetRoProperty(“text”) Msgbox myButton Next End Function Call Capture_Buttons() —————————————— xii) ‘Write function to Count Howmany Links available in Google Homepage
Function Count_Links() Dim oLink, Links, TotLinks, i Set oLink=Description.Create oLink(“micclass”).Value=”Link” Set Links=Browser(“title:=Google”).Page(“title:=Google”).ChildObjects(oLink) TotLinks=Links.Count Msgbox TotLinks End Function Call Count_Links()
