Test3001_Flight4a_手动启动录制购票

（VBS脚本）

Window("Flight Reservation").WinObject("Date of Flight:").Click 1,7

Window("Flight Reservation").WinObject("Date of Flight:").Type "111119"

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

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

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

Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select "12582   LON   08:00 AM   PAR   10:00 AM   AF     $164.00"

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

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

Window("Flight Reservation").WinEdit("Tickets:").SetSelection 0,1

Window("Flight Reservation").WinEdit("Tickets:").Set "3"

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

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

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

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

Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"

Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set "5"

Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click

一、补充：补录
　　1、把需要补录的操作对象显示在被测系统上
　　2、把光标定位在代码中需要补录的位置
　　3、点击菜单栏Automation(自动化)->Record and Run Settings，选择第一个单选按钮(手动启动被测系统)
　　4、点击Record按钮，开始录制需要的步骤，把需要的步骤录制完后，点击Stop停止录制
测试用例:
　　1、输入用户名 XXXX
　　2、输入密码
　　3、ok
　　4、打开订单
　　5、关闭系统

二、使用QTP测试Flight、web系统
　　1、录制测试脚本
　　　　（1）启动被测系统的方式
　　　　　　1) 自动启动web程序
　　　　　　2) 自动启动web程序的步骤：
　　　　　　　　a.录制和回放前要关闭：
　　　　　　　　　　--IE浏览器(QTP10.0只能使用IE浏览器录制)
　　　　　　　　　　--防病毒软件
　　　　　　　　　　--翻译类软件
　　　　　　　　b.打开QTP，选择web插件，创建一个脚本，点击Record开始录制
　　　　　　　　c.设置Record and run Settings(录制和回放设置)
　　　　　　　　　　--其他选项卡选择第一个单选钮
　　　　　　　　　　--web选项卡选择第二项Open the follwing address when a record or run session begins(当录制和回放时打开下面指定的路径)
　　　　　　　　　　--指定被测系统的URL地址
　　　　　　　　　　----------------------------------------------------------------------------------------------------------------------------------------
　　　　　　　　　　Open the following browser when a run session beging：当运行时启动下面的浏览器
　　　　　　　　　　Do not record and run on browsers that are already open：不要在已经打开的浏览器上运行或者录制
　　　　　　　　　　Close the browser when the test closes：当测试脚本关闭时，关闭浏览器(被QTP打开的)
　　　　　　　　　　----------------------------------------------------------------------------------------------------------------------------------------
　　　　　　　　注意：如果第一次录制Web程序，QTP会弹出提示是否开启第三方扩展，点击"Yes"，再重新录制
　　　　　　d.根据测试用例步骤录制代码，需要录制关闭浏览器操作
　　　　　　e.点击Stop，保存脚本，回放，查看结果
　　　　　　　　注意：web系统不建议使用使用手动启动方式录制，如果需要手动启动，就自己编写启动系统的代码

　　　　练习2：Mtours(自动启动方式)
　　　　　　要求：a.录制Mtours系统的登录+购票+购票+退出业务流程
　　　　　　　　London->Zurich
　　　　　　　　Portland->Paris
　　　　　　　　其他内容自己选择

　　　　　　Test3003_Mtours_自动启动录制登录+购票+购票+退出

（VBS脚本）

'登录被测系统

Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Set "Mercury"

Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure "5a530a9bb8e27d06f1ce655e"

Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Click 20,8

'第一次购票

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebRadioGroup("tripType").Select "oneway"

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("passCount").Select "4"

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromPort").Select "London"

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebRadioGroup("servClass").Select "Business"

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").Image("findFlights").Click 46,9

Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").WebRadioGroup("outFlight").Select "Blue Skies Airlines$91$201$7:07 pm$"

Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").Image("reserveFlights").Click 69,8

Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("passFirst0").Set "qwe"

Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("passLast0").Set "wqe"

Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("creditnumber").Set "124354"

Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").Image("buyFlights").Click 80,9

Browser("Welcome: Mercury Tours").Page("Flight Confirmation: Mercury").Image("Flights").FireEvent "onmouseover"

Browser("Welcome: Mercury Tours").Page("Flight Confirmation: Mercury").Image("Flights").Click

'第二次购票

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury_2").WebList("fromPort").Select "Portland"

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury_2").WebList("toPort").Select "Paris"

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury_2").WebRadioGroup("servClass").Select "First"

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury_2").Image("findFlights").Click 69,12

Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").WebRadioGroup("outFlight").Select "Pangea Airlines$542$624$9:21 pm$"

Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").WebRadioGroup("inFlight").Select "Unified Airlines$453$643$18:50 pm$"

Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").Image("reserveFlights").Click 48,18

Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("passFirst0").Set "gfdg"

Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("passLast0").Set "fsadfd"

Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("creditnumber").Set "43545"

Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").Image("buyFlights").Click 69,16

'退出系统关闭浏览器

Browser("Welcome: Mercury Tours").Page("Flight Confirmation: Mercury").Image("sign-off").FireEvent "onmouseover"

Browser("Welcome: Mercury Tours").Page("Flight Confirmation: Mercury").Image("sign-off").Click

Browser("Welcome: Mercury Tours").Page("Sign-on: Mercury Tours").Sync

Browser("Welcome: Mercury Tours").Close

　　　　　　登录+购票+退出
　　　　　　购票
　　　　　　登录+购票+购票+退出
　　　　　　London->Zurich
　　　　　　Portland->Paris

　　　　练习3：Mtours(自动启动方式)
　　　　要求：a.录制Mtours系统的登录+查询订单+退出业务

　　　　Test3004_Mtours_自动启动录制登录+查询订单+退出

（VBS脚本）

'登录被测系统

Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Set "Mercury"

Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure "5a530f51d10f7eb5bedc84ae"

Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Click 28,13

'查询订单

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").Image("itinerary").FireEvent "onmouseover"

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").Image("itinerary").Click

'关闭系统退出浏览器

Browser("Welcome: Mercury Tours").Page("Itenerary: Mercury Tours").Image("sign-off").FireEvent "onmouseover"

Browser("Welcome: Mercury Tours").Page("Itenerary: Mercury Tours").Image("sign-off").Click

Browser("Welcome: Mercury Tours").Page("Sign-on: Mercury Tours").Sync

Browser("Welcome: Mercury Tours").Close

三、QTP的实现原理(录制回放原理)
　　1、录制时：
　　　　a.QTP会自动把测试人员对被测系统执行操作的对象封装到对象库中(测试人员操作了哪个对象就封装哪个对象)
　　　　b.把操作形成脚本，记录在Keyword View和Expert View中

　　2、回放时：
　　　　a.根据代码描述的对象去对象库中查找对象，根据对象库中记录的对象属性及属性值去跟被测系统的对象进行对比，找到属性值一致的对象
　　　　b.根据脚本中记录的操作动作，对被测系统的对象进行操作

　　　　练习5：计算器(自动启动)
　　　　要求：a.录制计算器的加法过程
　　　　测试用例：
　　　　　　a.打开被测系统
　　　　　　b.点击按钮"5"
　　　　　　c.点击按钮"+"
　　　　　　d.点击按钮"2"
　　　　　　e.点击按钮"="
　　　　　　f.退出被测系统

　　　　　　Test3005_计算器_添加对象

（VBS脚本）

'Window("计算器").WinButton("5").Click

'Window("计算器").WinButton("7").Click

Window("计算器").WinButton("9").Click

Window("计算器").WinButton("*").Click

Window("计算器").WinButton("0").Click

Window("计算器").WinButton("=").Click

Window("计算器").Close

3、常见回放错误：
　　（1）The "XXX" XXX object was not found in the Object Repository.(在对象库中未找到对象)
　　　　object：对象
　　　　not found：未找到
　　　　Repository：库
　　　　原因：在对象库中未找到对象
　　　　解决方案：添加对象动对象库
　　　　　　方法一：录制时对对象进行操作
　　　　　　方法二：通过Object Repository(对象库Ctrl+R)添加
　　　　　　　　a.打开被测系统，把需要添加的对象显示在界面中
　　　　　　　　b.在QTP中打开对象库Ctrl+R
　　　　　　　　c.在对象库中点击加号按钮(Add Objects to Local)
　　　　　　　　d.使用手型鼠标点击待添加的对象
　　　　　　　　　　注意：如果被测系统被遮挡，就按住Ctrl键的同时把被测系统操作显示出来，再释放Ctrl键，再点击待添加的对象
　　　　　　　　e.在Object Selection对话框中确认是不是要添加的对象，确定
　　　　练习5：Flight4a(自动启动)
　　　　要求：

　　　　　　a.录制Flight4a的登录+退出流程

　　　　　　b.录制完后在输入用户名步骤后添加点击Help按钮的操作
　　　　　　　　1 输入用户名
　　　　　　　　2 点击"Help"按钮
　　　　　　　　3 点击"确认"按钮
　　　　　　　　4 输入密码
　　　　　　　　5 点击 "OK"按钮
　　　　　　　　6 退出系统

　　　　
　　　　　　Test3006_Flight4a_添加Help对象

（VBS脚本）

Dialog("Login").WinEdit("Agent Name:").Set "abcd"

'点击"Help"按钮

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

'点击"确认"按钮

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

Dialog("Login").WinEdit("Password:").SetSecure "5a532d747cbe92bf204ca3ef988bdaacae403daa"

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

Window("Flight Reservation").Close

　　　　练习6：两位数加法器
　　　　要求：

　　　　　　a.录制两位数加法器加法过程，录制时点击叉按钮关闭系统

　　　　　　b.在录制好的代码计算后中添加
　　　　　　　　--点击"重置"按钮
　　　　　　　　--点击"退出"按钮
　　　　　　　　1 输入第一个数
　　　　　　　　2 输入第二个数
　　　　　　　　3 点击"计算"按钮
　　　　　　　　　　--点击"重置"按钮
　　　　　　　　　　--点击"退出"按钮
　　　　　　　　4 点击叉号按钮

　　　　　　Test3007_两位数加法器_添加对象

（VBS脚本）

VbWindow("Form1").VbEdit("Text1").Set "23"

VbWindow("Form1").VbEdit("Text2").Set "56"

VbWindow("Form1").VbButton("计算(J)").Click

VbWindow("Form1").VbButton("重置(C)").Click

VbWindow("Form1").VbButton("退出(E)").Click

VbWindow("Form1").Dialog("退出提示").WinButton("确定").Click

'运行代码之前需要关闭被测系统

VbWindow("Form1").Close

　　　　练习7：Flight4a
　　　　　　要求：

　　　　　　　　a.录制Flight4a登录+购票+退出业务
　　　　　　　　b.在输入顾客姓名后，添加步骤，输入Tickets为3
　　　　　　　　c.回放代码时，使用Flight3a进行回放，并且把脚本调试通过

　　　　　　测试用例：
　　　　　　　　a.打开被测系统(QTP打开)
　　　　　　　　b.输入用户名：abcd
　　　　　　　　c.输入密码：mercury
　　　　　　　　d.点击"OK"按钮
　　　　　　　　　　等一会儿wait 8
　　　　　　　　e.输入日期：111219
　　　　　　　　f.选择起飞城市：London
　　　　　　　　g.选择到达城市：Denver
　　　　　　　　h.点击Flights按钮
　　　　　　　　i.点击"OK"按钮
　　　　　　　　j.输入顾客姓名：Jack
　　　　　　　　k.点击"Insert Order"按钮
　　　　　　　　l.关闭被测系统
　　　　　　　　Test3008_Flight4a_添加Tickets对象

（VBS脚本）

Dialog("Login").WinEdit("Agent Name:").Set "abcd"

Dialog("Login").WinEdit("Agent Name:").Type  micTab

Dialog("Login").WinEdit("Password:").SetSecure "5a533bbdaef2d2a3a6b4c9b9a88f82396988e00e"

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

'等一会儿，模拟被测系统加载的过程

wait 6

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

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

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

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

Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select "5988   DEN   01:45 PM   LAX   02:42 PM   AA     $123.60"

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

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

Window("Flight Reservation").WinEdit("Tickets:").Set "3"

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

Window("Flight Reservation").Close

3、Mtours系统介绍
　　（1）Mtours是web系统(B/S系统)
　　　　a.启动服务
　　　　b.在浏览器中输入URL地址进行访问，Mtours的默认端口号是8080
　　　　c.注册：点击首页的REGISTER，输入必填项，用户名、密码、确认密码
　　　　d.登录：输入用户名、密码进行登录
　　　　e.购票：分为3个页面
　　　　　　--选择票的信息
　　　　　　--选择航班
　　　　　　--填写个人信息，只需要填写必填项
　　　　f.退出

　　　　练习1：Mtours
　　　　要求：a.使用自动启动的方式，录制Mtours系统的登录+退出业务
　　　　测试用例：
　　　　　　a.打开被测系统(QTP给启动)
　　　　　　b.输入用户名：Mercury
　　　　　　c.输入密码：123
　　　　　　d.点击"Sign-In"按钮登录
　　　　　　e.点击"SIGN-OFF"按钮退出
　　　　　　f.关闭浏览器

　　　　　　Test3002_Mtours_自动启动录制登录

（VBS脚本）

Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Set "Mercury"

Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure "5a52e3140435c0ad9106ac27"

Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Click 26,12

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").Image("sign-off").FireEvent "onmouseover"

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").Image("sign-off").Click

Browser("Welcome: Mercury Tours").Page("Sign-on: Mercury Tours").Sync

Browser("Welcome: Mercury Tours").Close

QTP（3）的更多相关文章

  1. QTP（16）

    一.QTP项目(ECShop) 1.ECShop是一个开源免费的一个B2C的电子商务系统,主要用于商家和顾客进行商品交易操作. 2.ECShop分为前台和后台两个子系统: (1)ECShop前台:顾客 ...

  2. QTP（14）

    练习1.Flight4a 要求: a.录制Flight4a登录+退出业务流程 b.使用自定义检查结合Exist属性验证登录是否成功 c.为用户名实现参数化 用户名 Jack 正确 Rose 正确 12 ...

  3. QTP（13）

    练习1:Flight4a 要求: a.录制Flight4a登录+购票+退出业务流程 b.实现登录1次,购票3次,退出1次 c.对Fly From.Fly to.航班实现随机参数化 随机参数化:Rand ...

  4. QTP（12）

    练习:录制两位数加法器加法计算后退出的步骤,对两个加数做随机数参数化,随机数范围是0-50,在计算后获得被测系统计算的结果,判断如果结果等于100,msgbox提示“满分”,如果结果在80和99之间, ...

  5. QTP（10）

    一.VBS语言基础 1.运算符和表达式 (1)运算符 (2)表达式 a.数学表达式:由算术运算符连接,计算结果为数字 b.字符串表达式:由字符串连接符连接,计算结果为字符串 c.条件表达式:由关系运算 ...

  6. QTP（9）

    常用的Windows控件 WinEdit---Set "数据值" SetSecure "加密数值" WinButton---Click WinComboBox- ...

  7. QTP（8）

    一.Action 1.调用Action C:\Program Files\HP\QuickTest Professional\CodeSamplesPlus\Flight_Samples (1)调用A ...

  8. QTP（7）

    一.输出值(Output Value) 1.应用场景: 1) 关心被测系统的数据 2) 将被测系统生成的数据作为后面步骤的输入 2.输出值就是输出被测系统中实际运行时的数据的一种技术 a.运行中对象的 ...

  9. QTP（6）

    一.检查点 1.标准检查点(Standard Checkpoint) 作用:检查对象的属性值是否正确 文本框对象:text 预期值 单选按钮对象:checked ON/OFF 下拉框对象:Select ...

  10. QTP（5）

    一.检查点 1.位图检查点(Bitmap CheckPoint) (1)作用:主要用于检查UI界面,检查页面布局,包括控件位置.大小.颜色.状态等 (2)确定位图检查点的要素: a.检查哪个控件 b. ...

随机推荐

  1. Altera DDR2控制器学习笔记

    Altera DDR2控制器使用IP的方式实现,一般很少自己写控制器代码. ddr22 ddr22_inst ( .aux_full_rate_clk (mem_aux_full_rate_clk), ...

  2. 《精通并发与Netty》学习笔记（01 - netty介绍及环境搭建）

    一.Netty介绍     Netty是由JBOSS提供的一个java开源框架.Netty提供异步的.事件驱动的网络应用程序框架和工具,用以快速开发高性能.高可靠性的网络服务器和客户端程序.     ...

  3. 【计算机视觉】【并行计算与CUDA开发】GPU硬解码---DXVA

    前面介绍利用NVIDIA公司提供的CUVID库进行视频硬解码,下面将介绍利用DXVA进行硬解码. 一.DXVA介绍 DXVA是微软公司专门定制的视频加速规范,是一种接口规范.DXVA规范制定硬件加速解 ...

  4. 关于MySQL 5.6 中文乱码的问题(尤其是windows的gbk编码)

    一般MySQL 数据库乱码由以下几种情况造成(按照顺序): 1. 创建数据库的时候没设置编码,解决办法: 就是在创建数据库的时候设置编码, 例如: CREATE DATABASE `mydb` CHA ...

  5. [转帖]IP地址和CIDR

    IP地址和CIDR https://www.cnblogs.com/cocowool/p/8303795.html 感谢原作者 自己竟然忘记了 classless inter-domain route ...

  6. Redis-数据结构与对象-对象

    1. 作用 Redis使用对象作为五种不同类型的底层实现,字符串,列表,哈希,集合,有序集合等 而对象是基于之前的分析的数据结构创建的.每个对象都至少用到一种数据结构,这意味着,Redis五大类型,底 ...

  7. CentOS 修改/etc/resolv.conf 重启network后又恢复到原来的状态?

    问题描述:CentOS 修改/etc/resolv.conf 执行service network restart后,/etc/resolv.conf又恢复到原来的状态 解决方法:/etc/resolv ...

  8. 22 Years of KDE

    22 Years of KDEhttps://timeline.kde.org/ http://www.kdedevelopers.org/

  9. windows server 2008 R2 Enterprise 防火墙开启允许远程桌面登录

    解决方法: 开始------ > 运行 ----- > gpedit.msc 打开“本地组策略编辑器”,按如下设置:计算机配置----->管理模板----->网络-----&g ...

  10. asp.net 1.HTTP协议

    1.概念 协议是指计算机通信网络中两台计算机之间进行通信所必须共同遵守的规定或规则,超文本传输协议(HTTP)是一种通信协议,它允许将超文本标记语言(HTML)文档从Web服务器传送到客户端的浏览器. ...