QTP描述型编程--学习

l0nv.Z$[ r#@0'行描述方式，只要用SPY探测出对象的属性，不用捕获在对象库中51Testing软件测试网.k;^M8Y_w:mc
'下面是简单的小飞机订票代码,当然代码还可以优化这里只是为了熟悉行描述编程的思想
*m{4k9Zy[9n\R)h0systemutil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe"
ZRP^~;` d0dialog("text:=Login").winedit("attached text:=Agent name:").Set "mercury"51Testing软件测试网7q.L,u!Uou}
dialog("text:=Login").winedit("attached text:=Password:").Set "mercury"

|)k T&mB&q#[ Ij0dialog("text:=Login").winbutton("text:=OK").Click '登录51Testing软件测试网`lyK6@oX;Z1n
wait 2
:D
V
PB$CX(ms3t)m0window("text:=Flight Reservation").ActiveX("acx_name:=MaskEdBox").Type "121212"
ftNW"{\/@GMb0window("text:=Flight Reservation").WinComboBox("attached text:=Fly From:").select  "London"
U.j3] j:d g'dG)Ml^0window("text:=Flight Reservation").WinComboBox("attached text:=Fly To:").select  "Paris"
r8KJ?e2ug Q0window("text:=Flight Reservation").WinButton("text:=FLIGHT").Click

window("text:=Flight Reservation").Dialog("regexpwndtitle:=Flights Table").WinList("attached text:=From").Select "12510   LON   12:48 PM   PAR   02:48 PM   AF     $165.60"51Testing软件测试网.P[up
@;f
window("text:=Flight Reservation").Dialog("regexpwndtitle:=Flights Table").WinButton("text:=OK").Click51Testing软件测试网WWx2?-? @\
window("text:=Flight Reservation").WinEdit("attached text:=Name:").Set "test"51Testing软件测试网']9W'U]3WJ9F
window("text:=Flight Reservation").WinRadioButton("text:=First ").Click51Testing软件测试网)U+Y#F6p6jGT)D
'对象描述方式:此方法也无需添加对象在库中，对无法识别的对象可以采用此法
GJtO3]k4T0'Flight登录演示程序51Testing软件测试网&P@g9}8a0i7F g U
systemutil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe"
{qcv_9Tt0Set penLog=description.Create()51Testing软件测试网
[;r N{JN6q,k(R
OpenLog("text").value="Login"51Testing软件测试网a9d [1E3gv~#u6y

nwa0sc#q uj T0Set username=description.Create()
P
m'B/Z#f"j0username("attached text").value="Agent Name:"51Testing软件测试网*t!vJ;KY l.O]?
dialog(openlog).winEdit(username).Set "mercury"

Set passwd=description.Create()
;?4K)r/wV6L)O6CV0passwd("attached text").value="Password:"
!@;X y&N/htZe0dialog(openlog).winEdit(passwd).Set "mercury"

Set logbutton=description.Create()
XE6W5Ccq7\0logbutton("text").value="OK"
+Bj-W#Gn:YDXq f0dialog(openlog).winbutton(logbutton).Click
c.W+q;vGQu'QVj},R0