如果你要随机点的话,那么可以在对象数量的范围内加一个生成随机数的函数作者: zhengxiao025 时间: 2008-5-9 18:56
呵呵。谢谢您。不过我这还是不好用。谢谢您给出了这么多主意。。。作者: xiao* 时间: 2008-5-14 13:25
objVar是传入的对象(set a = browser().pager().frame().webtable())
iC是传入的列表的列的数量
strFindTitle是列表中列的标题
strFindString是列表中能确定是你要查找的字段
Public function OpenDataFun(objVar,iC,strFindTitle,strFindString)
Dim strTableTitle,iDataNum,strDesc,i,s,m,strCellData,strCellLink
Set strDesc = description.Create()
strDesc("html tag").value = "td"
set strCellData = objVar.ChildObjects(strDesc)
iDataNum = strCellData.count()
'确认查找字段所在的列
For i = 1 to iC
strTableTitle = objVar.GetCellData(1,i)
If strTableTitle = strFindTitle Then
s = i-1
End If
Next
'在确定的列中查找字符
For m = s to iDataNum step iC
strCellLink = Trim(strCellData(m).GetROProperty("innertext"))
If strCellLink = strFindString Then
strCellData(m).click
wait 2
End If
Next
End Function作者: walker1020 时间: 2008-5-15 23:28