51Testing软件测试论坛

标题: QTP flight4a登录程序描述性编程中为什么取不到winedit对象 [打印本页]

作者: newage_7 时间: 2011-6-23 18:23
标题: QTP flight4a登录程序描述性编程中为什么取不到winedit对象
环境是：windows xp sp2，QTP 8.2  ，用的是QTP自带的飞机订票系统
脚本如下：
Dim desc_test
Set desc_test=Description.Create()
' desc_test("Class Name").Value="WinEdit"
desc_test("attached text").Value="Agent Name:"
set bb = desktop.ChildObjects(desc_test)
Msgbox bb.count
Msgbox打印出来的值一直是0，说明找不到WinEdit对象，很奇怪，但是通过WinEdit（“Attached text:=Agent Name”）可以用。。
  我用这个描述对象的目的是想参数化用户名。。。

全部脚本如下
Dim username(3)
username(0) = "user"
username(1) = "user1"
username(2) = "user2"

For i=0 to 2
Dim myDesc
  Set myDesc = Description.Create()
myDesc("Class Name").Value = "Dialog"
  myDesc("regexpwndtitle").Value = "Login"

  Dim desc_test
Set desc_test=Description.Create()
desc_test("Class Name").Value="WinEdit"
desc_test("attached text").Value="Agent Name:"
set bb = desktop.ChildObjects(desc_test)
Msgbox bb.count

desc_test("text").Value=username(i)
  ' desc_test("regexpwndtitle").Value=username(i)已经注释掉

Dialog(myDesc).WinEdit(desc_test) '这里调用参数是否只用WinEdit(desc_test)就可以？另外不知道对于描述性对象，能否用SetTOProperty
Dialog(myDesc).WinEdit("Attached text:=Password:").Set "mercury"
  Dialog(myDesc).WinButton("text:=Cancel").Click
Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"

Next

作者: newage_7 时间: 2011-6-24 17:19
WinEdit对象已经取到
采用了如下的语句
desc_test("text").Value=""
desc_test("attached text").Value="Agent Name:"
表示非常难理解

作者: hacker8866 时间: 2011-6-27 13:03
描述性编程是脱离对象，直接就可能运行！！
QQ：214668817，欢迎咨询，相互交流。

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