打开uft进行对飞机订票系统订票流程的录制后,可以对总票价控件的对象内容的正确性进行验证
Dim price,tickets,total,pricetext,ticketstext,totaltext //定义几个对象
pricetext=Window("Flight Reservation").WinEdit("Price:").GetRoProperty("text") //获取运行时对象price=split(pricetext,"$") //去掉$符号
msgbox "price:"&price(1) //显示窗口
price=cdbl(price(1)) //将数组转化为数据
ticketstext=cdbl(Window("Flight Reservation").WinEdit("Tickets:").GetRoProperty("text"))msgbox "tickets:"&ticketstext
totaltext=Window("Flight Reservation").WinEdit("Total:").GetRoProperty("text")
total=split(totaltext,"$")
msgbox "total:"&total(1)
total=cdbl(total(1))
msgbox "price*tickets"&cdbl(price)*cdbl(ticketstext)If abs(total-(price*tickets))<=0.000000000001 Then //将计算到的总票价与获取的总票价进行比较
Reporter.ReportEvent micPass, "价格比较", "相等"
Else
Reporter.ReportEvent micFail, "价格比较", "不相等"
End If