'获取Link对象
Set oWebEdit = Browser("BBB").Page("AAA").Frame("contentFrame").Link("内容确认")
'获取webedit对象封装属性集合
Set TOProps = oWebEdit.GetTOProperties()
Dim i, iCount
iCount = TOProps.Count - 1
'遍历所有封装属性
For i = 0 To iCount
'获取属性名
sName = TOProps(i).Name
'获取属性值
sValue = TOProps(i).Value
'检查是否为正则表达式
isRegularExpression = TOProps(i).RegularExpression
'显示结果
print sName&"->" &sValue&"->" &isRegularExpression
Next
阅读(1101) | 评论(0) | 转发(0) |
