标题: webcheckbox问题 [打印本页] 作者: bluewaves 时间: 2008-4-11 09:49 标题: webcheckbox问题 网页中的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)正确与否?作者: 小孩 时间: 2008-4-11 10:43
dim desc,tempObj
set desc=description.create
desc("micclass").value="CheckBox"
可以这样描述网页中的webcheckbox吗?
想获取网页中所有的webcheckbox,
set tempObj = Browser("xxx").Page("xxx").Frame("xxx").ChildObjects(desc)正确与否?作者: bluewaves 时间: 2008-4-11 10:52
试过,两种方法都可以描述
正确语句应该为:
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