Selecting Check boxes by Descriptive Programming

[bfakruddin]

Code:

Option Explicit
'On Error Resume Next
Dim co,v,j,val

systemutil.run "www.yahoomail.com"
wait(3)
val=browser("Yahoo! Mail: The best").Page("Yahoo! Mail: The best").WebEdit("login").GetROProperty("value")
print val

Function Yahoo()

    If browser("Yahoo! Mail: The best").Page("Yahoo! Mail: The best").Exist Then
            Yahoo=browser("Yahoo! Mail: The best").Page("Yahoo! Mail: The best").Exist
        Dim co
    
        Set co=description.Create()
    
        co("micclass").value="WebCheckBox"
        co("visible").value=True
    
        set v=browser("Yahoo! Mail: The best").Page("Yahoo! Mail: The best").ChildObjects(co)
        j=v.count
        print j
    
        For i=0 to j-1
            v(i).set "ON"
        Next

    End If
End Function

Call Yahoo()
msgbox Yahoo