51Testing软件测试论坛

标题: 脚本运行正常,但为什么active screen中看不到控件呢? [打印本页]

作者: letmehappy 时间: 2005-12-15 14:30
标题: 脚本运行正常,但为什么active screen中看不到控件呢?
步骤如下:
1 新建一个Action叫open_flight,设为可重用,有一个输入参数app_path.用Add Objects把两个窗口及上面的控件加入:Login, Flight Reservation
2 expert view中输入以下代码,实现的功能为:打开flight4a,输入用户名和密码,点击ok
--------------------------------------------------
Option Explicit

Const  agent_name = "TestAgent"
Const  password      = "MERCURY"
Const  app = "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
Dim get_in_app_path

get_in_app_path = parameter("app_path")  '得到输入的参数

If get_in_app_path = ""  Then
   get_in_app_path = app
End If

If  window("Flight Reservation").Exist  = 0 Then
   SystemUtil.Run get_in_app_path  '打开flight4a.exe
End If

Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set agent_name
Dialog("Login").WinEdit("Agent Name:").Type  micTab
Dialog("Login").WinEdit("Password:").Set password
Dialog("Login").WinEdit("Password:").Type  micTab
Dialog("Login").WinButton("OK").Type  micReturn
---------------------------------------------------

运行结果:可以正常打开程序
问题:在keyword view选择某个控件名,如"Agent Name",在active screen中看不到这个控件,这样导致加入checkpoint时提示无法识别此控件.
我觉得奇怪的是,脚本可以正常运行,为什么active screen中看不到控件呢?

又试了以下步骤:
1 先打开flight4a.exe
2 新建脚本,录制登录过程,保存
3 在active screen中可以看到控件,插入checkpoint也正常

为什么这两种步骤结果不一样呢?难道说不录制,先用Add Objects来识别控件就不行吗?

作者: yangkinki 时间: 2005-12-16 11:36
在active screen 中当然只能显示你在录制过程中的screen，你通过add object增加的objects不会在active screen中显示。

作者: letmehappy 时间: 2005-12-18 13:14
看起来应该是这样的,感觉这样比较麻烦.

作者: walker1020 时间: 2005-12-30 20:11
标题: 试试看看此方法
很简单，你选定 View 菜单下的 Active Sceen 就可以了。或者你点击 QTP 窗口的第三行的 Active Sceen 按钮(本行的第四个按钮)即可。（你怎么把Active Sceen 的显示功能关闭了？）
能否解决问题，给个理由先！

作者: walker1020 时间: 2005-12-30 20:14
标题: 说明
不好意思， Active Sceen 按钮是位于QTP 窗口的第三行的第五个按钮（如果你对按钮的位置没有作任何调整的话）。特此说明！

作者: walker1020 时间: 2005-12-31 09:02
标题: 对不起
对不起，好像是我理解错了，因为我后来仔细看了一下，你的QTP 的 Active Sceen 已经出现了，可是控件还是不出现。我说的方法估计是不行。
对了，你按照yangkinki 说的方法去修改了吗？问题解决了吗？怎么没有你的回音呢？！

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