【软件自动化测试-QTP实战技能 23】== QTP 常用Functions

'Write Function to Count how many Browsers opend 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
            Browser(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
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()
'——————————————————————————-