Friday 6 April 2012

Function to Page Scroll

Function Scroll()
Browser("micclass:=Browser").Page("micclass:=Page").Sync
Set oDoc=Browser("micclass:=Browser").Page("micclass:=Page").Object.Body
oDoc.doScroll("pageDown")
Set oDoc=Nothing
End Function

No comments:

Post a Comment