51Testing软件测试论坛

标题: 遇到一个奇怪的问题，browser("").close关闭 [打印本页]

作者: hotsmile99 时间: 2011-3-23 16:10
标题: 遇到一个奇怪的问题，browser("").close关闭
我的原始目标是，界面A，点解了打印按钮，跳出了打印B ，注意B 是browser，不是dialog
我的代码如下
If Browser("title:=.*").Exist(0) Then
Dim tmpBtn,tmpDialog
Set tmpBtn = Browser("公共对象").Page("登录页面").Image("签出")
If tmpBtn.GetROProperty("width") > 30 Then  ''签出按钮不显示
tmpBtn.Click
'Wait(1)

If Browser("受理免填单打印").Exist(1) Then
'Browser("受理免填单打印").Page("受理免填单打印").Sync
   Browser("受理免填单打印").Close
'Browser("受理免填单打印").close
   End If

Set tmpDialog = Browser("公共对象").Window("提示")
If tmpDialog.Exist(2) Then
If InStr(tmpDialog.Page("提示").WebElement("html tag:=LI","index:=0").GetROProperty("innertext"),"确认要签出吗") > 0 Then
tmpDialog.Page("提示").WebButton("确定").Click
Else
Call LogReport(micPass,"点击【受理打印/签出】","","")
Call AMT_DoneDialogInfo(2)
End If
Else
Call LogReport(micPass,"点击【受理打印/签出】","","")
'Call AMT_DoneDialogInfo(2)
End If
End If

目前是调试的过程中，可以正常关闭B，但是没有调试的时候，A和B都关闭了
什么原因？？？
高手指教

作者: 43528782 时间: 2011-3-23 19:45
绿化面积有点少呀.

是点击tmpBtn弹出Browser("受理免填单打印")?

不是很明白你的描述...

作者: hotsmile99 时间: 2011-3-23 20:39
回复 2# 43528782

没错，点击按钮，会弹出打印窗口，这个是一个browser对象，所以我要关闭它，但是程序的结果是，所以的browser都关闭了

作者: shingo0109 时间: 2011-3-24 10:21
LZ要么用creationtime试试，把Browser("受理免填单打印").Close这句
改为Browser("CreationTime:=1").Close

作者: xieyang702 时间: 2011-3-24 10:35
4#的思路应该是对滴

作者: cis_cn 时间: 2011-3-24 14:16
用描述性编程多限制几个属性试试

作者: hotsmile99 时间: 2011-3-24 21:34
此问题已经解决了，主要是qtp的smart identify 设置为true，造成的。

作者: kavensyw 时间: 2011-3-26 11:39
本帖最后由 kavensyw 于 2011-3-26 11:50 编辑

没特殊情况，不要开smart。
另外，希望美女在发代码时，理好代码的层次，以方便阅读。
这种贴出来没有层次感的，我估计很多人都懒得看。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)