10.19

来源：互联网发布：10月份淘宝活动编辑：程序博客网时间：2024/06/11 04:30

Window("Flight Reservation").ActiveX("MaskEdBox").Click 8,2
Window("Flight Reservation").ActiveX("MaskEdBox").Type micBack
Window("Flight Reservation").ActiveX("MaskEdBox").Type "101815"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Frankfurt"
Window("Flight Reservation").WinComboBox("Fly To:").Select "Paris"
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select "13566 FRA 08:00 AM PAR 11:30 AM SR $169.70"

Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "LIUJIE"
Window("Flight Reservation").WinRadioButton("First").Set
Window("Flight Reservation").WinButton("Insert Order").Click
pricetext=Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")
'取值price
price=mid(pricetext,1)
'弹出票价对话框
msgbox "price:"&price
Dim price,num,total,real
'取值Tickets
num1 = Window("Flight Reservation").WinEdit("Tickets:").GetROProperty("text")
'弹出票的张数对话框
msgbox "Tickets:" &num1
price1=Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")
'取值Total
total1=Window("Flight Reservation").WinEdit("Total:").GetROProperty("text")
price = cdbl(mid(price1,2))
num = cint(num1)
total =cdbl(mid(total1,2))
real = price*num
'比较Price*Ticket的价格是否等于Total
If abs(total-real) <0.001Then

Reporter.ReportEvent micPass, "success", "订票正确"
msgbox "订票正确"
else
Reporter.ReportEvent micFail, "fail", "订票错误"
msgbox "订票错误"
End If
Window("Flight Reservation").WinMenu("Menu").Select "File;New Order"

0 0