文章标题

来源：互联网发布：韩国核潜艇知乎编辑：程序博客网时间：2024/06/16 08:28

UFT工具飞机订票系统订单价格测试脚本
Dim flightPrice,flightNum,totalPrice,actualtotalPrice

Window(“Flight Reservation”).ActiveX(“MaskEdBox”).Type “102815”
Window(“Flight Reservation”).WinComboBox(“Fly From:”).Select “London”
Window(“Flight Reservation”).WinComboBox(“Fly To:”).Select “Los Angeles”
Window(“Flight Reservation”).WinButton(“FLIGHT”).Click
Window(“Flight Reservation”).Dialog(“Flights Table”).WinList(“From”).Select “19097 LON 12:48 PM LAX 02:18 PM DL $174.47”
Window(“Flight Reservation”).Dialog(“Flights Table”).WinButton(“OK”).Click
Window(“Flight Reservation”).WinEdit(“Name:”).Set “xiao”
Window(“Flight Reservation”).WinEdit(“Tickets:”).SetSelection 0,1
Window(“Flight Reservation”).WinEdit(“Tickets:”).Set “4”

flightPrice=window(“Flight Reservation”).WinEdit(“Price:”).GetROProperty(“Text”) //注意捕捉”Price”、”Tickets”、”Total”三个对象到对象库
flightNum=window(“Flight Reservation”).WinEdit(“Tickets:”).GetROProperty(“Text”)
totalPrice=window(“Flight Reservation”).WinEdit(“Total:”).GetROProperty(“Text”)

flightPrice=Cdbl(mid(flightPrice,2))
flightNum=Cint(flightNum)
totalPrice=Cdbl(mid(totalPrice,2))

actualTotalPrice=flightPrice*flightNum

1 0