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)