51Testing软件测试论坛

标题: QTP描述性编程中的问题 [打印本页]

作者: MarsNoNo 时间: 2007-8-1 22:06
标题: QTP描述性编程中的问题
代码如下：
systemutil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
dialog("regexpwndtitle:=Login").Activate
dialog("regexpwndtitle:=Login").winedit("attachedtext:= Agent Name:").Set "admin"
dialog("regexpwndtitle:=Login").winedit("attachedtext:= Password:").Set "mercury"
dialog("regexpwndtitle:=Login").winbutton("nativeclass:=button","text:="+"OK").click
wait 5
'window("regexpwndtitle:=Flight Reservation").Activate
window("regexpwndtitle:=Flight Reservation").ActiveX("progid:=MSMask.MaskEdBox.1").type "111111"
window("regexpwndtitle:=Flight Reservation").WinComboBox("attachedtext:=Fly From:").Select "London"
window("regexpwndtitle:=Flight Reservation").WinComboBox("attachedtext:=Fly To:").Select "Denver"
window("regexpwndtitle:=Flight Reservation").winbutton("regexpwndtitle:=FLIGHT").Click
dialog("regexpwndtitle:=Flights Table").winlist("attachedtext:=From").Activate
a = dialog("regexpwndtitle:=Flights Table").winlist("attachedtext:=From").GetItemsCount
b = randomnumber(1,a)
dialog("regexpwndtitle:=Flights Table").winlist("attachedtext:=From").Select b

运行后，12行报错提示winlist的属性不唯一，需要添加另外唯一属性。截图如下：
[attach]30295[/attach]
将12行至以后代码更改为：
dialog("regexpwndtitle:=Flights Table").winlist("attachedtext:=From").Activate
a = window("regexpwndtitle:=Flight Reservation").dialog("regexpwndtitle:=Flights Table").winlist("winid:=2001").GetItemsCount
b = randomnumber(1,a)
window("regexpwndtitle:=Flight Reservation").dialog("regexpwndtitle:=Flights Table").winlist("winid:=2001").Select b
还是到12行，不报错，但就运行不下去了。
请高手指点，什么原因。

作者: keenling 时间: 2007-8-1 22:27
我觉得,这是对象库识别winlist不唯一造成的,光改源码不行吧,到对象库中,增加winlist对象的识别属性(先找到他们的不同点),让QTP能够分辨它们,再根据你增加属性的值修改源码.
我觉得这就想数据库中设定主键不能唯一标识一样.

作者: MarsNoNo 时间: 2007-8-1 22:36
标题: 回2楼的兄弟，对象库中根本没对象sdlkfj8
如题！
用描述性编程更改了属性后，改成唯一的，还是运行不过去。

作者: candy_83 时间: 2007-8-2 15:16
描述性编程的好处就是对象库中可以什么对象也没有

作者: gzj_06 时间: 2007-8-2 17:53
原因我帮你找出来了，请看附件中截图
From下面有两个LON，你可以用Object Spy查看一下，可以看到这两个LON都是WinList:From对象，所以会报错

作者: jane.su 时间: 2007-8-2 20:35
错误信息翻译过来是：[WinList]对象的描述匹配了应用程序中目前显示的多个对象。给这个对象描述，加入另外的属性，可以

让它唯一被标识。

意思是，winlist("attachedtext:=From")，这个对象描述后，找不到唯一的一个对象，你需要再增加属

性，比如粉色字体部分：

Window("regexpwndclass:=Afx:","regexpwndtitle:=Flight Reservation","is owned

window:=False","is child window:=False").Dialog("nativeclass:=#32770","text:=Flights

Table","is owned window:=True","is child window:=False").
WinList("nativeclass:=ListBox","attached text:=From").
Select "6307 DEN 01:00 PM LAX 05:00

PM UA $245.00"

这样就可以了，你试试！

今天刚学过这个课程，现炒现卖喽！！

作者: MarsNoNo 时间: 2007-8-3 04:30
标题: 其实是我自己不细心！
这段代码有问题：
b = randomnumber(1,a)
window("regexpwndtitle:=Flight Reservation").dialog("regexpwndtitle:=Flights Table").winlist("winid:=2001").Select b
select的是一个char串，而并不是一个number。所以执行不过去。还有一个我想说的就是winid这个属性最好不要用在描述性编程中。因为我今天又跑了N次后，发现没有这个属性了sdlkfj8 ，今天一看，出来了一个window id属性。sdlkfj5
后来我把代码改成如下：
a = window("regexpwndtitle:=Flight Reservation").dialog("regexpwndtitle:=Flights Table").winlist("nativeclass:=ListBox","attached text:= From").GetItemsCount
b = randomnumber(0,a-1)
c = window("regexpwndtitle:=Flight Reservation").dialog("regexpwndtitle:=Flights Table").winlist("nativeclass:=ListBox","attached text:= From").GetItem (b)
window("regexpwndtitle:=Flight Reservation").dialog("regexpwndtitle:=Flights Table").winlist("nativeclass:=ListBox","attached text:= From").Select c
就能顺利跑通了。
我是通过一个randomnumber实现在Flights Table中随机选取航班。这里我想说一下，randomnumber这个函数的起点是0，前面的代码中我也写错了，我从1开始的，当然会错误了。所以也提出来，希望大家能以我为戒。一定要细心。
我在调上面那段代码的时候也出现了一个很弱智的错误。属性“attached text”这个词组中，多加了一个空格。郁闷了N分钟，后来还是一个同学帮我看出来的，他是19期中的QTP高手。希望大家能多多交流，共同进步。

p.s.:6楼的是20期的吧？！我把我今天调的代码贴出来，还没完成，多多交流，交流！

systemutil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
dialog("regexpwndtitle:=Login").Activate
dialog("regexpwndtitle:=Login").winedit("attachedtext:= Agent Name:").Set "admin"
dialog("regexpwndtitle:=Login").winedit("attachedtext:= Password:").Set "mercury"
dialog("regexpwndtitle:=Login").winbutton("nativeclass:=button","text:=OK").click
wait 5
window("regexpwndtitle:=Flight Reservation").ActiveX("progid:=MSMask.MaskEdBox.1").type "111111"
window("regexpwndtitle:=Flight Reservation").WinComboBox("attachedtext:=Fly From:").Select "London"
window("regexpwndtitle:=Flight Reservation").WinComboBox("attachedtext:=Fly To:").Select "Denver"
window("regexpwndtitle:=Flight Reservation").winbutton("regexpwndtitle:=FLIGHT").Click
a = window("regexpwndtitle:=Flight Reservation").dialog("regexpwndtitle:=Flights Table").winlist("nativeclass:=ListBox","attached text:= From").GetItemsCount
b = randomnumber(0,a-1)
c = window("regexpwndtitle:=Flight Reservation").dialog("regexpwndtitle:=Flights Table").winlist("nativeclass:=ListBox","attached text:= From").GetItem (b)
window("regexpwndtitle:=Flight Reservation").dialog("regexpwndtitle:=Flights Table").winlist("nativeclass:=ListBox","attached text:= From").Select c
window("regexpwndtitle:=Flight Reservation").dialog("regexpwndtitle:=Flights Table").winbutton("nativeclass:=Button","text:=OK").Click
window("regexpwndtitle:=Flight Reservation").winedit("nativeclass:=Edit","attached text:=Name:").Set "cc"
window("regexpwndtitle:=Flight Reservation").winedit("nativeclass:=Edit","attached text:=Tickets:").set "2"
d = randomnumber(1,3)
window("regexpwndtitle:=Flight Reservation").winradiobutton("nativeclass:=Button","index:="+cstr(d)).set

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