Forum Discussion

salley's avatar
salley
Frequent Contributor
8 years ago

how to findallchildren and click during the runtime

Hi experts, i've a web screen with questionnaire and i need to click on no to all during the run time, can that be handled through script, can somebody provide me a sample script.  type is radio bu...
  • cunderw's avatar
    cunderw
    8 years ago

    I'm not super familiar with VBScript but it looks like this is because of how your setting sRadioButtons.

     

    The result of FindAllChildren is an array so you need to work with it as such. Try this:

     

    function findallchild
  Dim PropName, PropValues,i,sRadioButtons
  PropNames=Array("ObjectType","ObjectLabel")
  PropValues=Array("RadioButton","No")
  Set sPage=Sys.Browser("iexplore").Page("http://me-aptweb1/Affiliation/Questionnaire.aspx")
  sRadioButtons=sPage.FindAllChildren(PropNames,PropValues,100)
  If UBound (sRadioButtons)>=0 Then
    For i = 0 To UBound(sRadioButtons)
        sRadioButtons(i).Click
    Next
    Log.Message "Total objects found: " & (UBound(sRadioButtons) + 1)
  End If
End Function
salley's avatar
salley
Frequent Contributor

Thanks,

I'm trying to simulate that using VBscript, and i just can't get it right, can you please take a look. I also attached a screen shot.

 

function findallchild
Dim PropName, PropValues,i
PropNames=Array("ObjectType","ObjectLabel")
PropValues=Array("RadioButton","No")
Set sPage=Sys.Browser("iexplore").Page("http://me-aptweb1/Affiliation/Questionnaire.aspx")
Set sRadioButtons=sPage.FindAllChildren(PropNames,PropValues,100)
If UBound (sRadioButtons)>=0 Then
For i = 0 To UBound(sRadioButtons)
sRadioButtons(i).Click
Next
Log.Message "Total objects found: " & (UBound(sRadioButtons) + 1)
End If
End Function

cunderw's avatar
cunderw
Community Hero
8 years ago

I'm not super familiar with VBScript but it looks like this is because of how your setting sRadioButtons.

 

The result of FindAllChildren is an array so you need to work with it as such. Try this:

 

function findallchild
  Dim PropName, PropValues,i,sRadioButtons
  PropNames=Array("ObjectType","ObjectLabel")
  PropValues=Array("RadioButton","No")
  Set sPage=Sys.Browser("iexplore").Page("http://me-aptweb1/Affiliation/Questionnaire.aspx")
  sRadioButtons=sPage.FindAllChildren(PropNames,PropValues,100)
  If UBound (sRadioButtons)>=0 Then
    For i = 0 To UBound(sRadioButtons)
        sRadioButtons(i).Click
    Next
    Log.Message "Total objects found: " & (UBound(sRadioButtons) + 1)
  End If
End Function
  • salley's avatar
    salley
    Frequent Contributor
    8 years ago

    Yes it works,,, you're the best and i really appreciate it.

    • cunderw's avatar
      cunderw
      Community Hero
      8 years ago

      Great! Happy to help man!

      • salley's avatar
        salley
        Frequent Contributor
        8 years ago

        it works just fine, just a quick question, why does this script clicks from the bottom to up?