Selecting Check boxes by Descriptive Programming

[sunny rao]

Hi Ankur and all,

I am trying to use DP to check all checkboxes on a particular page.

Depending on my product selection on earlier pages 3 or 4 checkboxes are visible remaining are hidden. when I count

Code:

Set ParentW=Browser("abc").Page("xyz")

Set objdesc=Description.Create()
objdesc("type")="checkbox"
Set objparent=ParentW.ChildObjects(objdesc)
ckboxcount=objparent.count()
msgbox ckboxcount

The result is I get 12 checkboxes since only 3 or 4 are visible at a time and others are hidden. How to solve this problem.

[rnickerson]

I'd try something like this:

Code:

Function CheckAll()
    Dim oDesc: Set oDesc = Description.Create
    oDesc("micclass").Value = "WebCheckBox"
    oDesc("visible").Value = True
    Dim colCheckboxes: Set colCheckboxes = Browser().Page().ChildObjects(oDesc)
    'msgbox colCheckboxes.Count
    Dim i
    For i = 0 To colCheckboxes.Count -1
        colCheckboxes(i).Set "ON"
    Next
End Function

Clearly you would need to provide the Browser and Page descriptions/objects, but then this should show you the number of checkboxes (uncomment the msgbox line) and check them.

I hope this helps.

[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

[sunny rao]

Thanks guys your suggestion helped me.