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.