如何用QTP 选中网页上的所有复选框

Set MyDescrīption = Descrīption.Create()
MyDescrīption(“html tag”).Value = “INPUT”
MyDescrīption(“type”).Value = “checkbox”
Set Checkboxes = Browser(“Itinerary”).Page(“Itinerary”).ChildObjects(MyDescrīption)

NoOfChildObjs = Checkboxes.Count

For Counter=0 to NoOfChildObjs-1

Checkboxes(Counter).Set “ON”

Next