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
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
Post a Comment