使用QTP自动化 DZ消息复选框选择实例！

DZ:消息管理自动化选择其中的CheckBox。使用QTP来实现这样简单方便。我们来具体看来一下，是如何完成的吧。

描述性编程：dexcription.Create()  来创建一个对象。

Dim vCheckBox
Set vCheckBox =description.Create()
         vCheckBox("type").value="checkbox"            '类型
         vCheckBox("name").value="deletepm_deluid\[\]"    '名称
        ' vCheckBox("index").value="0"                          '索引
'Browser("admin - Discuz! Board").Page("admin - Discuz! Board").WebCheckBox(vCheckBox).Set "ON"

'Browser("admin - Discuz! Board").Page("admin - Discuz! Board").WebCheckBox("deletepm_deluid[]").Set "ON"

'使用ChildObjects 获得其中的子对象。然后循环拿出对象，设置为“ON”
dim allCheck
Set allCheck = Browser("admin - Discuz! Board").Page("admin - Discuz! Board").ChildObjects(vCheckBox)
msgbox  allCheck.count

For i=0 to allCheck.count-1
    allCheck(i).Set"ON"
    wait 2
Next