本文主要是介绍UFT设置自定义检查点，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
'测试人员：XXX'时间：2015-10-19
'模块：航班订票系统订单模块
'脚本主要功能：1、检查程序中图片里的自由女神像部分是否正常出现
' 2、输入详细信息，点击Insert Order按钮进行订票
' 3、检查新生成的订单号Order No是否为正整数，并用用if语句写出判定成功或者失败后的Reporter.ReportEvent报告语句
' 4、检查Price*Ticket的价格是否等于Total
Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").ActiveX("MaskEdBox").Type "102515"'输入日期
Window("Flight Reservation").WinComboBox("Fly From:").Select "Denver"'选择起点
Window("Flight Reservation").WinComboBox("Fly To:").Select "London"'选择终点
Window("Flight Reservation").WinButton("FLIGHT").Click'选择航班
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click'点击选择航班后的OK按钮
Window("Flight Reservation").WinEdit("Name:").Set "swl"'输入姓名
Window("Flight Reservation").WinEdit("Tickets:").SetSelection 0,1
Window("Flight Reservation").WinEdit("Tickets:").Set "2"'输入票数
Window("Flight Reservation").WinRadioButton("First").Set'选择席位
Window("Flight Reservation").Static("Static").Check CheckPoint("Static_3")'添加位图检查点，检查程序中图片里的自由女神像部分是否正常出现；
'采用自定义检查点，检查Price*Ticket的价格是否等于Total，并用if语句写出判定成功或者失败后的Reporter.ReportEvent报告语句
Dim Price,prices,Ticket,tickets,Total,totals '声明变量并分配存储空间
Price=Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")'获取单价框内容
prices=mid(price,2)'Mid从字符串中返回指定数目的字符 从第二位读取单价框内容，去除dollar符号，只取数值位
msgbox"prices:"&prices'msgbox在对话框中显示消息，等待用户单击按钮，并返回一个值指示用户单击的按钮。
Ticket=Window("Flight Reservation").WinEdit("Tickets:").GetROProperty("text")'获取票数框内容
msgbox"tickets:"&Ticket
Total=Window("Flight Reservation").WinEdit("Total:").GetROProperty("text")'获取总价框内容
totals=mid(Total,2)'Mid从字符串中返回指定数目的字符 从第二位读取单价框内容，去除dollar符号，只取数值位
msgbox"totals:"&totals
msgbox "系统报价："&totals& vbcrlf & "计算报价："&prices*Ticket '比较 总价 与 票数 X 单价
If abs(totals-cdbl(prices*ticket))<0.00001 Then 'ABS函数取绝对值
Reporter.ReportEvent micPass, "价格比较", "相等"'将定义的事件提交到结果日志中
Else
Reporter.ReportEvent micFail, "价格比较", "不相等"
End If
'采用标准检查点，检查新生成的订单号Order No是否为正整数（【0-9】+）或\d；
'使用自定义检查点，并用if语句写出判定成功或者失败后的Reporter.ReportEvent报告语句，记录到测试结果中
Window("Flight Reservation").WinButton("Insert Order").Click
Window("Flight Reservation").Activate
Window("Flight Reservation").WinEdit("Order No:").Check CheckPoint("Order No:")
Dim OrderNo
OrderNo=Window("Flight Reservation").WinEdit("Order No:").GetROProperty("text")
Dim regEx
Set regEx=New regExp
regEx.Pattern="[0-9]+"
If regEx.test(OrderNo) Then
Reporter.ReportEvent micPass, "同为整数", "成功"
Else
Reporter.ReportEvent micFail, "不为整数", "失败"
End If
Window("Flight Reservation").WinButton("Button").Click
这篇关于UFT设置自定义检查点的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
