Chinaunix首页 | 论坛 | 博客
  • 博客访问: 275185
  • 博文数量: 58
  • 博客积分: 2317
  • 博客等级: 大尉
  • 技术积分: 1080
  • 用 户 组: 普通用户
  • 注册时间: 2005-12-22 13:16
文章分类

全部博文(58)

文章存档

2015年(1)

2014年(3)

2013年(4)

2012年(44)

2011年(6)

分类: 信息化

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
阅读(1040) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~