51Testing软件测试论坛

标题: 关于checkbox 的一些做法 [打印本页]

作者: xiaoan_2131 时间: 2008-9-26 11:36
标题: 关于checkbox 的一些做法
我的思路随机点击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

作者: 鹭岛 时间: 2008-9-26 11:57
RandomNumber
这个产生的随机谁重复性比较高~~~
建议使用变成的方法产生随机数~~
funcation rand(k,n)
n=int((k-1)*rnd+1)
rand=n
end funcation
这个产生的重复性较低

作者: xiaoan_2131 时间: 2008-9-27 12:12
标题: 谢谢各位的关注啊
我这个问题自己找到答案了
随机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
如果有什么想法和意见，欢迎大家给些指点啊。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)