WinMenu使用描述性编程
WinMenu的描述性编程需要一点小技巧以flight4.exe中新订一张票为例使用描述性编程
Function Order_Ticket()
Set ōrderPage = Descrīption.Create()
OrderPage("Class Name").Value= "Window" '设置页面类
OrderPage("Regexpwndtitle").Value="Flight Reservation"
Set DateForm =Descrīption.Create()
DateForm("Class Name").Value="ActiveX" ''设置ActiveX的属性
DateForm("acx_name").Value="MaskEdBox"'描述对象名
SetFromCity = Descrīption.Create()
FromCity ("Class Name").Value="WinComboBox"
FromCity("attached text").Value="Fly From:"
Window(OrderPage).Restore '还原订票系统
Window(OrderPage).ActiveX(DateForm).Type "081229" '输入订票日期
Window(OrderPage).WinComboBox( FromCity).Select "London"
Window(OrderPage).WinComboBox("attached text:=Fly To:").Select "Denver"
''Window(OrderPage).ActiveX(DateForm).Type Parameter("myDate") '设置参数化订票日期
''Window(OrderPage).WinComboBox( FromCity).Select Parameter("myFrom")' 设置参数化“出发地”
'''Window(OrderPage).WinComboBox("attached text:=Fly To:").Select Parameter("myTo")'设置参数化“目的地”
Window(OrderPage).WinButton("text:= flight").Click'查看机票信息
Window(OrderPage).Dialog("text:=Flights Table","Class Name:=Dialog").WinButton("text:=ok").Click '关闭机票信息窗口
Window(OrderPage).WinEdit("Class Name:=WinEdit","attached text:=Name:").Set"zhangfei" '订票人
Dim rage,i
i=RandomNumber(0,2)
Select Case i
Case "0"
rage="First"
print(rage)
Window(OrderPage).WinRadioButton("Class Name:=WinRadioButton","text:="&rage).Set
Case "1"
rage="Business"
print(rage)
Window(OrderPage).WinRadioButton("Class Name:=WinRadioButton","text:="&rage).Set
Case "2"
rage="Economy"
print(rage)
Window(OrderPage).WinRadioButton("Class Name:=WinRadioButton","text:="&rage).Set
End Select'选择机舱
Window(OrderPage).WinButton("Class Name:=WinButton","text:=&Insert Order").Click
Window(OrderPage).WinMenu("menuobjtype:=&2").Select "File;New Order" '再新订一张票，描述性编程
End Function
Call Order_Ticket()
WinMemu的描述性编程：WinMenu("menuobjtype:=&2")超级简单，就是需要一点技巧 呵呵 你还要加油啊
现在论坛QTP进展已经不在你那拉 WinMenu("menuobjtype:=&2") 对吗？
页:
[1]
