如何把网页上的所有checkbox都设置为True

dim obj_desc

set obj_desc = Description.Create

Obj_desc("html tag").value = "INPUT"

Obj_desc("type").value = "checkbox"

dim allcheckbox,onecheckbox

set allcheckbox = Browser("Browser").Page("Page").ChildObjects(obj_desc)

for each onecheckbox in allcheckbox

  onecheckbox.set "ON"

next