What is ‘Childobjects’ method?

By childobjects method, we can access any object in a webpage.

E.g.,

            Set object_description = Description.Create()

            object_description("href").Value = "http://rss.cnn.com/~r/rss/cnn_topstories.*"

            object_description("html tag").Value = "A"

            Set header_links = Browser("Bro").Page("Page").ChildObjects(object_description)

            header_links(0).Output CheckPoint("QTP expertise toll tops up")

            header_links(1).Output CheckPoint("Train derails, burns for hours")

            ‘to navigate to the respective URL   

Browser("Bro").Navigate http://onlineqtp/vip/Default.aspx

            If Browser("Bro1").Page("VIP Page").WebButton("value:=Log In").Exist(2) Then

                        Browser("Bro1").Page("VIP Page").WebButton("Log In").Click

            End If

            Dim Data, Data1, Data2

            Data=DataTable("Heading1",dtGlobalSheet)

            Data1=DataTable("Heading2",dtGlobalSheet)        

            set PageObject =Browser("Bro").Page("Page").Object

            PageText = PageObject.Body.innertext

            Search=Instr(PageText, Data)

            If Search > 0 Then

                        Reporter.ReportEvent 0,"Search for news Link","Links Found"

            Else

                        Reporter.ReportEvent 1,"Search for news Link","Links not Found"

            End If

Comments

Popular posts from this blog

Is QA a easy job?

Latest Version of TestComplete

Successful tester