关于checkbox 的一些做法

xiaoan_2131

我的思路随机点击checkbox按钮，这只是单选的操作，高人解决一些，回头在研究多选的啊，呵呵
Dim desc,descNum,getDescNum,id,checkNum
Set desc=Description.Create()
desc("type").value="checkbox"
desc("html tag").value="INPUT"
Set descNum=Browser("Browser").Page("age").ChildObjects(desc)
getDescNum=descNum.count（可获得数字18）
Randomize
num=RandomNumber (0,getdescnum)
msgbox num
set checkNum=Browser("Browser").Page("age").WebCheckBox(QG1_+num)（这句应该怎么写？）
If checkNum("checked").value="1"  Then （判断按钮checked是否为1，1说明被点击）
        reporter.ReportEvent 1,"fail","nocheck"
        else
        reporter.ReportEvent 2,"pass","check"
End If

鹭岛

RandomNumber
这个产生的随机谁重复性比较高~~~
建议使用变成的方法产生随机数~~
funcation rand(k,n)
   n=int((k-1)*rnd+1)
   rand=n
end funcation
这个产生的重复性较低

xiaoan_2131

我这个问题自己找到答案了
随机checkbox按钮测试
代码
Dim desc,descNum,getDescNum,id,checkNum
Set desc=Description.Create()
desc("type").value="checkbox"
desc("html tag").value="INPUT"
Set descNum=Browser("Browser").Page("age").ChildObjects(desc)
getDescNum=descNum.count'（可获得数字18）
Randomize
num=RandomNumber (0,getdescnum)
msgbox num
descNum(num).set  "ON"
'Browser("Browser").Page("age").WebCheckBox("QG1_+num").Set "ON"
If desc("checked").value="1" Then
         reporter.ReportEvent 2,"pass","check"
         else
          reporter.ReportEvent 2,"pass","check"
End If
如果有什么想法和意见，欢迎大家给些指点啊。