Chinaunix首页 | 论坛 | 博客

分类: 信息化

2014-03-18 10:19:34

'获取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
阅读(509) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~
评论热议
请登录后评论。

登录 注册