12-13-2008, 03:12 AM
I'd try something like this:
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.
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.