Function GetBrowser(creationtime)
Set GetBrowser = Browser(creationtime)
End Function
Function GetPage(refBrowser)
Set GetPage = refBrowser.Page("micclass:=page")
End Function
Dim currentBrowser,currentPage
Set currentBrowser = GetBrowser(1) ' 电脑启动后首次打开IE,creationtime = 0
Set currentPage = GetPage(currentBrowser)
currentPage.WebElement("html tag:=SPAN","innertext:=保存").Click
'free resource
Set currentPage = Nothing
Set currentBrowser = Nothing