webcheckbox问题

bluewaves

网页中的webcheckbox属性中有type,值为checkbox
dim desc,tempObj
set desc=description.create
desc("type").value="CheckBox"
可以这样描述网页中的webcheckbox吗？
想获取网页中所有的webcheckbox，
tempObj = Browser("xxx").Page("xxx").Frame("xxx").ChildObjects(desc)正确与否？

小孩

dim desc,tempObj
set desc=description.create
desc("micclass").value="CheckBox"
可以这样描述网页中的webcheckbox吗？
想获取网页中所有的webcheckbox，
set tempObj = Browser("xxx").Page("xxx").Frame("xxx").ChildObjects(desc)正确与否？

bluewaves

试过，两种方法都可以描述
正确语句应该为：
set tempObj = Browser("xxx").Page("xxx").Frame("xxx").ChildObjects(desc)

dim desc,ranDesc,i
Set desc=description.Create
desc("micclass").value="WebCheckBox"
set ranDesc=Browser("xxx").Page("xxx").Frame("xxx").ChildObjects(desc)
If  ranDesc.count>0 Then
     i=getRandomValue(ranDesc.count)
         If  ranDesc(i).GetROProperty("visible")=0 and ranDesc(i).GetROProperty("checked")=0 Then
                 ranDesc(i).set  "on"
         End If
End If

Function getRandomValue(valFanWei)
   Dim RandomValue
   Randomize(Timer)
   RandomValue = Int((valFanWei * Rnd))
   getRandomValue = RandomValue
End Function

可以回放成功，可页面没有按要求任意选取一个未勾选的webcheckbox

bluewaves

呼呼，object repository 里的webcheckbox没有checked 与visible属性，将其添加进去就可以了。另外有的网页visible属性值不一定要"0",我测的网页便是“true",而且写”1“虽然可以回放脚本，但是没有执行勾选webcheckbox动作