关于page对象的识别

j_wnn

采用描述性编程的方法识别page对象，我使用的是“url”属性，但是当属性中含有“=”字符时就无法识别到了。例如：

这句就识别不到，提示找不到page对象
Browser("title:=ATA-ETX考试管理系统").Page("url:=http://172.16.16.191/etxcdc/OrganizationManage/PZoneDetail.aspx?mode=add").WebElement("html tag:=SPAN","innertext:=保存").Click

但如下语句则可以识别到
Browser("title:=ATA-ETX考试管理系统").Page("url:=http://172.16.16.191/etxcdc/OrganizationManage/PZoneQuery.aspx").WebElement("html tag:=SPAN","innertext:=新增区域").Click


请教大家，采用描述性编程的方法识别page对象时应该使用哪个属性呢？

海龙

在对象识别库里面保存了每个对象要记录的属性，使用这些属性就可以，或者使用object spy选择几个属性

j_wnn

关键是我从对象库里看，发现除了“url”属性之外两个page对象的其它属性都是相同的，但是使用“url”属性又遇到如下问题，所以就不知道使用什么属性了，特请教大家有什么别的方法。

j_wnn

问题在url中的=号，与url属性赋值的=号存在语义上的冲突。有没有好的解决方法？

海龙

=前面加\

j_wnn

我试了一下不行啊，应该怎么加呢？

请如下这个为例，写好贴出来让我参考一下，谢谢



Browser("title:=ATA-ETX考试管理系统").Page("url:=http://172.16.16.191/etxcdc/OrganizationManage/PZoneDetail.aspx?mode=add").WebElement("html tag:=SPAN","innertext:=保存").Click

海龙

请参考下面的信息：

1. 
   
2. SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","","C:\Documents and Settings\Administrator","open"
   
3. Browser("Browser").Page("Page").Sync
   
4. Browser("Browser").Navigate "http://bbs.51testing.com/viewthread.php?tid=29710&extra=page%3D1"
   
5. 'Browser("Browser").Page("51Testing软件测试论坛 - [软件测试职业发展]").Link("帮助").Click
   
6. msgbox  Browser("Browser").Page("title:=51Testing软件测试论坛 \- \[软件测试职业发展\] \- \[51Testing企业培训专版\] - 关于page对象的识别---软件测试,软件质量工程师的家园").Exist
   
7. Browser("Browser").Page("url:=http://www.51testing.com/cgi\-bin/viewthread.php\?tid\=29710&extra\=page%3D1").Link("text:=帮助").Click
   

复制代码

改成：

1. 
   
2. Browser("title:=ATA\-ETX考试管理系统").Page("url:=http://172.16.16.191/etxcdc/OrganizationManage/PZoneDetail.aspx\?mode\=add").WebElement("html tag:=SPAN","innertext:=保存").Click
   

复制代码

j_wnn

可以识别到了，多谢海龙版主的大力帮助
sdlkfj

richardcn

这种方案不太好，因为你识别只是其中的一个页面，如果你的应用程序有N多页面不可能每个页面都是上面的方法。

目前我在国外的网站上看到一种比较好的方法

Function GetBrowser(creationtime)
   Set GetBrowser = Browser(creationtime)
End Function
Function GetPage(refBrowser)
  Set GetPage = refBrowser.Page("micclass:=page")
End Function

Dim currentBrowser,currentPage
Set currentBrowser = GetBrowser(1)  ' 电脑启动后首次打开IE，creationtime = 0
Set currentPage = GetPage(currentBrowser)
currentPage.WebElement("html tag:=SPAN","innertext:=保存").Click

'free resource
Set currentPage = Nothing
Set currentBrowser = Nothing