Forum Discussion
Vallalarasu_P
12 years agoFrequent Contributor
The object exists, its unique too... But sill i get object required error. Please check with the complete code given below.
Please suggest me if you have any other simpler method to do the same operation
Sub Test1
Call Browsers.Item(btIExplorer).Navigate("http://www.lufthansa.com/online/portal/lh/in/homepage")
Aliases.browser.HPage.Pane.form.Panel.panelClW50.OneWay.Click
Call Aliases.browser.HPage.Pane.form.textboxNs7Co19vhuc6nkl80aieuv2f9.SetText("del")
Call Aliases.browser.HPage.Pane.form.Tobox.SetText("fra")
Call Aliases.browser.HPage.Pane.form.panelSubtpl.panelCl.textboxNs7Co19vhuc6nkl80aieuv2f9.Click
set calObj=Sys.Browser("iexplore").Page("http://www.lufthansa.com/online/portal/lh/in/homepage").Panel("ns_7_CO19VHUC6NKL80AIEUV2F91IH5_fmOutboundDateDisplay_dropdown").Panel("calendarWrapper").Panel(0).Panel(0).Panel("calendarDouble").Panel(1).Panel(0).Panel(2).Table(0).Cell(0, 2).Panel("calendarMatrix").Table(0)
PropArray = Array("Name", "contenttext")
ValuesArray = Array("TextNode(0)", "22")
datelist=calObj.findAll("PropArray","ValuesArray",10,true)
Log.Message("Count :" & UBound(datelist))
for each dt in datelist
Log.Message(dt.contenttext)
dt.Click
next
End Sub
Please suggest me if you have any other simpler method to do the same operation
Sub Test1
Call Browsers.Item(btIExplorer).Navigate("http://www.lufthansa.com/online/portal/lh/in/homepage")
Aliases.browser.HPage.Pane.form.Panel.panelClW50.OneWay.Click
Call Aliases.browser.HPage.Pane.form.textboxNs7Co19vhuc6nkl80aieuv2f9.SetText("del")
Call Aliases.browser.HPage.Pane.form.Tobox.SetText("fra")
Call Aliases.browser.HPage.Pane.form.panelSubtpl.panelCl.textboxNs7Co19vhuc6nkl80aieuv2f9.Click
set calObj=Sys.Browser("iexplore").Page("http://www.lufthansa.com/online/portal/lh/in/homepage").Panel("ns_7_CO19VHUC6NKL80AIEUV2F91IH5_fmOutboundDateDisplay_dropdown").Panel("calendarWrapper").Panel(0).Panel(0).Panel("calendarDouble").Panel(1).Panel(0).Panel(2).Table(0).Cell(0, 2).Panel("calendarMatrix").Table(0)
PropArray = Array("Name", "contenttext")
ValuesArray = Array("TextNode(0)", "22")
datelist=calObj.findAll("PropArray","ValuesArray",10,true)
Log.Message("Count :" & UBound(datelist))
for each dt in datelist
Log.Message(dt.contenttext)
dt.Click
next
End Sub