About GetToProperty

[bfakruddin]

'Make correction and one more thing this is not I asked, please give me correct answer for my question.

Code:

Function clickonlink(slinkname)
    set slink = Description.create()
    slink("micclass").value="Link"
    set a=Browser("micclass:=Browser").page("micclass:=Page").childobjects(slink)
    scount=a.count
        for i=0 to scount-1
            slink=a(i).getroproperty("innerText")
                if slinkname=slink then
                    a(i).click
                    exit for
                end if
        next
end Function

'*** calling the Function***

Code:

clickonlink("Learn more")