文章标题

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