使用QTP的过程中可能会遇到需要批量选中网页中的CheckBox，大致如下图：

　　

　　具体代码如下：

Call CheckAllBoxFunction CheckAllBox	Set BrowserDesc = Browser("micclass:=Browser")	Set PageDesc = BrowserDesc.Page("micclass:=Page")	Set CheckBoxDesc = Description.Create	CheckBoxDesc("micClass").value = "WebCheckBox"	Set CheckBoxList = PageDesc.ChildObjects(CheckBoxDesc)	If CheckBoxList.count > 0 Then		For i = 0  To CheckBoxList.count - 1			CheckBoxList(i).click		Next	Else		Msgbox "抱歉！您当前页面不存在 WebCheckBox 对象！"	End IfEnd Function

 

　　运行代码的效果图如下：