Sub Test1
Dim browser
Dim page
Dim table
Dim cell
Dim chrome_RenderWidgetHostHWND
Dim textbox
Dim panel
Dim vselect
Call Browsers.Item(btChrome).Navigate("http://bos-qapbba01/ProductProfiles/")
Set browser = Aliases.browser
Set page = browser.pageBosQapbba01Productprofiles
Set table = page.tableMScheduler
Set cell = table.cell
Call cell.Click(327, 10)
Set chrome_RenderWidgetHostHWND = browser.wndChrome_WidgetWin_1.Chrome_RenderWidgetHostHWND
Call chrome_RenderWidgetHostHWND.Click(259, 14)
Call cell.Click(446, 6)
Call chrome_RenderWidgetHostHWND.Click(50, 35)
Call cell.DblClick(544, 6)
Set textbox = table.textbox
Call textbox.SetText("00R")
Set panel = page.panelE27f86214
Call panel.Click(859, 57)
Call cell.Click(308, 11)
Call chrome_RenderWidgetHostHWND.Click(273, 10)
Call cell.Click(447, 5)
Call chrome_RenderWidgetHostHWND.Click(38, 41)
Call cell.DblClick(542, 9)
Call textbox.SetText("0m0")
Call panel.Click(703, 60)
Call chrome_RenderWidgetHostHWND.Click(62, 19)
Call panel.Click(788, 56)
Call chrome_RenderWidgetHostHWND.Click(37, 16)
Call panel.Click(862, 58)
Call cell.Click(217, 8)
Call page.Click(855, 348)
Call cell.DblClick(545, 5)
Call cell.Click(320, 8)
Call chrome_RenderWidgetHostHWND.Click(276, 14)
Call cell.Click(425, 12)
Set vselect = table.cell2.select
Call vselect.ClickItem("Client")
Call textbox.SetText("0t0")
Call chrome_RenderWidgetHostHWND.Click(65, 14)
Call panel.Click(802, 48)
Call chrome_RenderWidgetHostHWND.Click(40, 14)
Call panel.Click(859, 58)
Call panel.Click(711, 51)
Call chrome_RenderWidgetHostHWND.Click(75, 259)
Call panel.Click(858, 58)
End Sub