开始学习qtp第一天对象库添加和检查点的添加

作者： TIB自动化测试工作室核心成员郭振华

原文：http://www.automationqa.com/uchome/space.php?uid=290&do=blog&id=393

从2011年的12月15日起开始从新学习QTP自动化，这是昨天学习的知识点：

1.对象识别技术

2.对象的添加和属性的获取

3.动态消息的获取

4.输出值

一下是学习的代码：

'******************************************************************************************************

'飞机订票系统检查点和参数化学习

'******************************************************************************************************

'登录账号和密码的参数化

'******************************************************************************************************

Dialog("Login").WinEdit("Agent Name:").Set DataTable("UserName", dtGlobalSheet)

Dialog("Login").WinEdit("Password:").SetSecure DataTable("Passwd", dtGlobalSheet)

Dialog("Login").WinButton("OK").Click

If Dialog("Login").Exist(2) Then

Dialog("Login").Dialog("Flight Reservations").Static("Incorrect password. Please").Check CheckPoint("Incorrect password. Please")'检查点

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

Dialog("Login").Close

else

If Window("Flight Reservation").Exist(2) Then

'******************************************************************************************************

'开始订票

'******************************************************************************************************

Window("Flight Reservation").ActiveX("MaskEdBox").Type "121212"

Window("Flight Reservation").WinComboBox("Fly From:").Select "Denver"

Window("Flight Reservation").WinComboBox("Fly To:").Select "London"

Window("Flight Reservation").WinEdit("Name:").Set "andy"

Window("Flight Reservation").WinButton("FLIGHT").Click

Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click

Window("Flight Reservation").WinEdit("Name:").Set "andy"

Window("Flight Reservation").WinRadioButton("First").Set

Window("Flight Reservation").WinButton("Insert Order").Click

'******************************************************************************************************

'设置检查点

'******************************************************************************************************

Window("Flight Reservation").WinButton("Update Order").Check CheckPoint("Update Order")

Window("Flight Reservation").WinButton("Delete Order").Check CheckPoint("Delete Order")

Window("Flight Reservation").ActiveX("Threed Panel Control").Check CheckPoint("Threed Panel Control")

Window("Flight Reservation").WinEdit("Order No:").Output CheckPoint("Order No:_2")'将订单号输出到文本中

Window("Flight Reservation").WinEdit("Order No:").Check CheckPoint("Order No:")

'******************************************************************************************************

'设置检查点

'******************************************************************************************************

Dim Get_Inserter_Done

Get_Inserter_Done=Window("Flight Reservation").ActiveX("Threed Panel Control").GetROProperty("text")

print Get_Inserter_Done

End If