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 WinEdit对象已经取到
采用了如下的语句
desc_test("text").Value=""
desc_test("attached text").Value="Agent Name:"
表示非常难理解 描述性编程是脱离对象,直接就可能运行!!
QQ:214668817,欢迎咨询,相互交流。
页:
[1]