Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Ajax Navigation
#1
it is function which can be used for ajax navigation on a browser

Public Function navigate_to_PS(level1,level2,level3,level4,level5)
Dim oDescBrowser, oDescPage, oDescLink, oDescWebList, oDescButton, oDescWebEdit
'hard coding the start point.
Set oDescBrowser = Description.Create()
Set oDescPage = Description.Create()
Set oDescLink = Description.Create()
oDescBrowser("micclass").Value = "Browser"
oDescPage("micclass").Value = "Page"
oDescLink("micclass").Value = "Link"
'oDescLink("index").Value = 0
'Setting the title for Browser & Page
'oDescBrowser("index").Value = -1
oDescBrowser("hwnd").Value = Environment("Browser_hwnd")
oDescPage("hwnd").Value = Environment("Page_hwnd")
'With Browser("micclass:=Browser").Page("micclass:=Page")
With Browser(oDescBrowser).Page(oDescPage)
.WebElement("micclass:=WebElement","innertext:="&level1,"index:=0").Click
While .WebElement("micclass:=WebElement","class:=pthnavflyout pthnavbarshow").Exist(3) = false
Wend

If level2<> "" Then
.link("micclass:=Link","innertext:="&level2,"index:=0").Click
Wait(5)
End If

If level3<> "" Then
.link("micclass:=Link","innertext:="&level3,"index:=0").Click
Wait(5)
End If

If level4<> "" Then
.link("micclass:=Link","innertext:="&level4,"index:=0").Click
Wait(5)
End If

If level5<> "" Then
.link("micclass:=Link","innertext:="&level5,"index:=0").Click
Wait(5)
End If

End With

Set navigate_to_PS = Browser(oDescBrowser).Page(oDescPage)
End Function
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)