QTP之检查点实例操作

' ===============样例 -->  检查点 ================
'  摘要：
'           1.检查点的作用：检查点比较指定属性的当前值与期望值，
'   以判断当前的程序（或站点）功能是否正常。
'           2.此样例用qtp自带的程序：flight4a.exe
'  QTP：10.00.0.0   build 513
'  作者：刘林 （QQ：994165)
'  日期：2009-10-09
'  角本名：checkPoint

'   输入用户名和密码，并点击"OK"
Dialog("Login").WinEdit("Agent Name:").Set "sdf"
Dialog("Login").WinEdit("Password:").SetSecure "4ace9ff1d7b5cb6b84e11e17"
Dialog("Login").WinButton("OK").Click

'   QTP自带文本检查点，方法 -- insert ->Checkpiont -> textCheckpoint ->点击要检查的文本->按提示进行相关设置
Dialog("Login").Dialog("Flight Reservations").Static("Agent name must be at").Check CheckPoint("Agent name must be at least 4 characters long.")

'   QTP自带standard检查点，方法  -- insert ->Checkpiont ->standardCheckpoint->点击要检查的点->按提示进行相关设置
Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Check CheckPoint("确定")

'   QTP自带TextArae检查点，方法  -- insert ->Checkpiont ->TextAraeCheckpoint->框选要检查的文本->按提示进行相关设置
Dialog("Login").Dialog("Flight Reservations").Check CheckPoint("Flight Reservations")

Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click

'   QTP自带Bitmap检查点，方法  -- insert ->Checkpiont ->BitmapCheckpoint->点击要检查的图片->按提示进行相关设置
Dialog("Login").Static("Static").Check CheckPoint("Static")
Dialog("Login").Static("Static").Check CheckPoint("Static")
'   QTP自带database检查点，方法  -- insert ->Checkpiont ->databaseCheckpoint->用qtp自带mdb的进行设置->按提示进行相关设置
DbTable("DbTable").Check CheckPoint("DbTable")

'   QTP自带XMl(文件)检查点， 方法  -- insert ->Checkpiont ->XML Checkpoint (From resource )->使用QTP的一个测试结果生成的XML文件进行样式->按提示进行相关设置
XMLFile("XMLCheckpointTest.xml").Check CheckPoint("XMLCheckpointTest.xml")

'  ==================================== 检查点成功与否？=============================================
'  想知道检查点是不是通过了，如何做？
'  1.回顾一下VB知识，根据VB可知，vb对于子过程（sub）是不返回值，而函数(function)是有返回值的，
'          1.1. sub   调用样式为      ：过程名   参数
'          1.2. function 调用样式为：变量 = 函数名( 参数)
'   2. 所以，你可能注意到了，以上的检查点调用方法都为子过程的方式，那么，想知道检查点是不是成功，
'       那么请用function 调用方法，因为所有的检查点方法都有sub 和function 两种方式。
'  3.检查点的tunction 调用返回结果类型都为boolean，检查点执行成功返回：true ,否则，返回false

' 检查点成功与否的样例 ， 注意下行行参数加了括弧.
blWinButtonChk =Dialog("Login").WinButton("Help").Check ( CheckPoint("HelpButtonChk") )
If  true = blWinButtonChk Then
 msgbox "检查点执行成功!"
else
 msgbox "检查点执行失败!"
End If
'  ==================================== 检查点成功与否 end  ===========================================

' ============= 使用对象的CheckProperty过程或函数做手工做检查点 ====================================
' 当想去对象的某属性(attribute)作检查时，可以使用此方法
'  如要检查一下弹出的对话框的title作检查点时，就可以用此方法，具体方法步骤：
'  1. 先把要检查的属性所属对象添加到对象库中
'  2. 用spy工具探测出 属性的名字和对应的值
'  3. 使用对象的绝对描述，描述到要检查的对象上，后跟上：.checkProperty  “要检测属性的名字” ,  "要检测属性所对应的值", n(设置检查点的超时时间，毫秒)

'  样例之 手工设置检查点，以检查对象的regexpwndtitle属性，并且检查其值是否是为：Help
Dialog("Login").WinButton("Help").CheckProperty "regexpwndtitle", "Help"
' ============= 使用对象的CheckProperty过程或函数做手工做检查点  end =================================

Dialog("Login").Close

checkPoint.zip(399 KB)