QTP 如何批量选中网页中的CheckBox

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

　　

　　具体代码如下：

Call CheckAllBox
Function 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 If
End Function

 

　　运行代码的效果图如下：