录制Flight程序登录的脚本

1.   采用自定义检查点，检查Price*Ticket的价格是否等于Total，并用If语句写出判定成功或者失败后的Reporter.ReportEvent报告语句。

Dim tickets,price,total

'字符串转换

tickets=cdbl(Window("Flight Reservation").WinEdit("Tickets:").GetROProperty("text"))

'去掉美元符号

price=cdbl(mid(Window("FlightReservation").WinEdit("Price:").GetROProperty("text"),2))

total=cdbl(mid(Window("FlightReservation").WinEdit("Total:").GetROProperty("text"),2))

'比较Price*Ticket的价格是否等于Total

If tickets*price-total<0.000000001 Then

   Reporter.ReportEventmicPass,"Price*Ticket的价格等于Total","Price*Ticket的价格等于Total"

   else

   Reporter.ReportEventmicPass,"Price*Ticket的价格不等于Total","Price*Ticket的价格不等于Total"

End If

Window("Flight Reservation").WinButton("InsertOrder").Click

Window("Flight Reservation").Activate