关于checkbox 的一些做法
我的思路随机点击checkbox按钮，这只是单选的操作，高人解决一些，回头在研究多选的啊，呵呵:lolDim desc,descNum,getDescNum,id,checkNum
Set desc=Description.Create()
desc("type").value="checkbox"
desc("html tag").value="INPUT"
Set descNum=Browser("Browser").Page("Page").ChildObjects(desc)
getDescNum=descNum.count（可获得数字18）
Randomize
num=RandomNumber (0,getdescnum)
msgbox num
set checkNum=Browser("Browser").Page("Page").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
这个产生的重复性较低
谢谢各位的关注啊
我这个问题自己找到答案了随机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("Page").ChildObjects(desc)
getDescNum=descNum.count'（可获得数字18）
Randomize
num=RandomNumber (0,getdescnum)
msgbox num
descNum(num).set"ON"
'Browser("Browser").Page("Page").WebCheckBox("QG1_+num").Set "ON"
If desc("checked").value="1" Then
reporter.ReportEvent 2,"pass","check"
else
reporter.ReportEvent 2,"pass","check"
End If
如果有什么想法和意见，欢迎大家给些指点啊。:)
页:
[1]
