练习1：Flight4a
　　要求：
　　　　a.录制Flight4a登录+购票+退出业务流程
　　　　b.实现登录1次，购票3次，退出1次
　　　　c.对Fly From、Fly to、航班实现随机参数化
　　　　　　随机参数化：RandomNumber
　　　　　　控件：Fly From
　　　　　　总数：items count
　　　　　　获取运行时的值：GetRoProperty("属性名")

Test13001_Flight4a_for循环购票

SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\HP\QuickTest Professional\samples\flight\app\","open"

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

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

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

wait 6

'开始购票

For i=1 to 3

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

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

'	FromCount保存起飞城市的总数

	Dim FromCount

	FromCount=Window("Flight Reservation").WinComboBox("Fly From:").GetROProperty("items count")

	Window("Flight Reservation").WinComboBox("Fly From:").Select RandomNumber(0,FromCount-1)

'	ToCount保存到达城市的总数

	Dim ToCount

    ToCount=Window("Flight Reservation").WinComboBox("Fly To:").GetROProperty("items count")

	Window("Flight Reservation").WinComboBox("Fly To:").Select RandomNumber(0,ToCount-1)

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

'	FlyCount保存航班的总数

	Dim FlyCount

	FlyCount=Window("Flight Reservation").Dialog("Flights Table").WinList("From").GetROProperty("items count")

	Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select RandomNumber(0,FlyCount-1)

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

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

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

	wait 6

'结束购票

Next

Window("Flight Reservation").Close

练习2：Flight4a
　　要求：
　　　　a.录制Flight4a登录+购票+退出业务流程
　　　　b.对购票时输入的Tickets实现随机参数化
　　　　c.使用自定义检查点检查票数*单价=总价
　　　　　　reporter.ReportEvent micPass,"",""
　　　　　　reporter.ReportEvent micFail,"",""
Test13002_Flight4a_自定义检查票价

Option Explicit '强制检查语法

SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\HP\QuickTest Professional\samples\flight\app\","open"

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

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

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

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

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

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

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

Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select "20178   FRA   12:48 PM   DEN   01:33 PM   SR     $162.80"

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

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

'1、随机生成1到10的数字，输入Tickets时使用

Dim Tickets

Tickets=Cint(RandomNumber(1,10))

'2、把代码中输入的Tickets替换为随机生成的数字

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

'3、获取Price的值 $100.10

Dim Price

Price=Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")

'4、获取Total的值  $100.20

Dim Total

Total=Window("Flight Reservation").WinEdit("Total:").GetROProperty("text")

'5、  去掉$符号，转换为double子类型

Price=Cdbl(mid(Price,2))

Total=Cdbl(mid(Total,2))

'6、判断Tickets*Price=Total

If  abs(Tickets*Price-Total)<0.01 Then

	Reporter.ReportEvent micPass,"检查票价","票数*票价=总价,票数是："&Tickets&",票价是："&Price&",总价是："&Total

else

'	给失败的界面截图

	Dim pic

	pic="D:\检查票价.png"

	desktop.CaptureBitmap pic,True

	'desktop.CaptureBitmap "路径",True

'	True表示截图存在，就覆盖，False就不覆盖

	Reporter.ReportEvent micFail,"检查票价","票数*票价=总价,票数是："&Tickets&",票价是："&Price&",总价是："&Total,pic

End If

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

Window("Flight Reservation").Close

补充：如何判断浮点数是否相等
　　abs(浮点数1-浮点数2)<精度
　　abs：取绝对值
精度：自己定义

Tickets=Cint(RandomNumber(1,10))
"票数*票价=总价,票数是："&Tickets&",票价是："&Price&",总价是："&Total
Reporter.ReportEvent micPass
Reporter.ReportEvent micFail

Reporter.ReportEvent micPass,"步骤名称","成功",pic

"票数*票价=总价,票数是："&Tickets&",票价是："&Price&",总价是："&Total&""

练习3：Flight4a
　　要求：
　　　　a.录制Flight4a登录+购票+打开订单+退出业务流程
　　　　b.把购票生成的订单号获取，打开订单时使用
　　　　c.使用自定义检查点验证打开的订单是否为购票生成的订单
Test13003_Flight4a_自定义检查打开订单

Option Explicit

SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\HP\QuickTest Professional\samples\flight\app\","open"

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

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

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

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

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

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

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

Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select "12670   FRA   09:34 AM   PAR   11:29 AM   AF     $175.60"

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

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

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

wait 6

'1、获取购票生成的订单号

Dim No

No=Window("Flight Reservation").WinEdit("Order No:").GetROProperty("text")

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

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

'2、打开订单时使用购票生成的订单号

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

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

'3、获取打开订单后的订单号

Dim afterNo

afterNo=Window("Flight Reservation").WinEdit("Order No:").GetROProperty("text")

'4、判断打开的订单号是否与购票生成的订单号一致

If afterNo=No Then

	Reporter.ReportEvent micPass,"验证订单号","一致"

else

	Dim pic

	pic="D:\验证订单号.png"

	desktop.CaptureBitmap pic,True

	Reporter.ReportEvent micFail,"验证订单号","不一致",pic

End If

Window("Flight Reservation").Close

练习4：Flight4a
　　要求：
　　　　a.录制Flight4a登录+打开不存在的订单+退出业务流程
　　　　b.打开订单实现随机参数化，500-1000
　　　　c.使用自定义检查点，验证打开不存在订单时的提示信息中是否包含输入的订单号
　　　　d.使用for循环打开5次订单

Test13004_Flight4a_自定义检查提示信息

Option Explicit

SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\HP\QuickTest Professional\samples\flight\app\","open"

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

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

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

Dim i

For i=1 to 5

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

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

	'1、获取500-1000之间的随机数

	Dim orderNo

	orderNo=RandomNumber(500,1000)

	'2、把打开订单输入的订单号替换为随机数

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

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

	'3、点击OK按钮打开订单号后，获取提示信息内容

	Dim info

	info=Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").Static("Order number 500 does not exist").GetROProperty("text")

	'4、判断info是否包含orderNo

	If instr(info,orderNo)<>0 Then

		Reporter.ReportEvent micPass,"判断提示信息","提示信息包含订单号"

	else

		Reporter.ReportEvent micFail,"判断提示信息","提示信息不包含订单号"

	End If	

	Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").WinButton("确定").Click

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

Next

Window("Flight Reservation").Close

一、Exist属性）
　　1、Exist属性时动态属性，记录被测系统控件对象是否出现\存在于被测系统中

　　2、Exist属性值：
　　　　True：代表存在\出现
　　　　False：代表不存在\未出现\消失
　　　　项目老师在不在
　　　　If 项目经理.Exist Than
　　　　　　叫他过来
　　　　else
　　　　　　不叫

　　3、应用场景：
　　　　a.页面跳转(从A页面跳转到B页面)，需要检查B页面的控件对象是否出现
　　　　b.检查某个对象控件是否出现
　　　　c.检查某个对象控件消失
　　　　练习5：Flight4a
　　　　　　要求：
　　　　　　　　a.录制Flight4a登录+退出业务流程
　　　　　　　　b.使用Exist属性验证登录是否成功
　　　　Test13005_Flight4a_Exist属性验证登录

SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\HP\QuickTest Professional\samples\flight\app\","open"

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

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

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

'1、验证登录是否成功，

'只要Flight Reservation窗口对象存在，就表示登录成功

'如果不存在，就表示登录失败

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

	Reporter.ReportEvent micPass,"验证登录是否成功","成功！"

else

	Reporter.ReportEvent micFail,"验证登录是否成功","失败！"

End If

Window("Flight Reservation").Close

　　　　练习6：Flight4a
　　　　　　要求：
　　　　　　　　a.录制Flight4a系统打开后关闭系统
　　　　　　　　b.验证登录对话框已经被关闭
　　　　Test13006_Flight4a_Exist登录消失

SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\HP\QuickTest Professional\samples\flight\app\","open"

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

'1、判断Login对话框不存在

If  Not Dialog("Login").Exist(3) Then

	msgbox "登录框不存在"

else

	msgbox "登录框存在"

End If

'1+1=2

'判断1+1等于2    要判断  等于

'If 1+1=2 Then

'	等于

'else

'	不等于

'End If

'

'

'判断1+1不等3    要判断  不等于

'If 1+1 !=3 Then

'	不等于

'else

'	等于

'End If

　　4、Exist属性用自定义检查点中的语法：
　　　　（1）检查对象存在：
　　　　　　if 对象.Exist(秒数) Then
　　　　　　　　记录成功
　　　　　　else
　　　　　　　　记录失败
　　　　　　End if
　　　　（2）检查对象消失，不存在
　　　　　　if Not 对象.Exist(秒数) Then
　　　　　　　　记录成功
　　　　　　else
　　　　　　　　记录不成功
　　　　　　End if

　　5、注意：Exist属性QTP封装的每个控件对象的动态属性，可以直接使用对象.Exist获取属性的值，值是True或者False，不需要使用GetRoProperty

　　　　练习7：Flight4a系统
　　　　　　要求：
　　　　　　　　a.判断Flight Reservation窗口对象是否存在
　　　　　　　　　　如果存在就关闭
　　　　　　　　　　如果不存在，就判断Login对话框是否存在
　　　　　　　　　　如果存在，就输入用户名、密码登录系统，关闭系统
　　　　　　　　　　如果不存在，就打开被测系统，关闭被测系统

　　　　　　　　　　Window("Flight Reservation")

　　　　练习8：Flight4a
　　　　　　要求：
　　　　　　　　a.录制时在登录界面，不输入任何信息，点击OK按钮
　　　　　　　　b.使用自定义检查点验证提示信息框对象是否存在
　　　　　　　　c.如果b步骤的提示框对象存在，使用文本检查点检查提示框中提示的信息内容是否正确，点击确认按钮，关闭提示框，验证提示框是否消失
　　　　Test13007_Flight4a_Exist验证登录提示信息

SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\HP\QuickTest Professional\samples\flight\app\","open"

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

'1、判断Dialog("Flight Reservations")是否存在

If  Dialog("Login").Dialog("Flight Reservations").Exist(3)Then

'	存在

	Dialog("Login").Dialog("Flight Reservations").Static("Please enter agent name").Check CheckPoint("Please enter agent name")

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

'	2、判断信息提示框是否消失

	If  Not Dialog("Login").Dialog("Flight Reservations").Exist(3) Then

		Reporter.ReportEvent micPass,"验证提示框","关闭"

	else

		Reporter.ReportEvent micFail,"验证提示框","未关闭"

	End If

else

'	不存在

	Reporter.ReportEvent micFail,"验证提示框","未打开"

End If

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

QTP（13）的更多相关文章

  1. 基于MVC4+EasyUI的Web开发框架经验总结（13）--DataGrid控件实现自动适应宽带高度

    在默认情况下,EasyUI的DataGrid好像都没有具备自动宽度的适应功能,一般是指定像素宽度的,但是使用的人员计算机的屏幕分辨率可能不一样,因此导致有些地方显示太大或者太小,总是不能达到好的预期效 ...

  2. Web 在线文件管理器学习笔记与总结（13）重命名文件夹（14）复制文件夹

    (13)重命名文件夹 ① 重命名文件夹通过 rename($oldname,$newname) 实现 ② 检测文件夹名是否符合规范 ③ 检测当前目录中是否存在同名文件夹名称,如果不存在则重命名成功 i ...

  3. Android菜鸟的成长笔记（13）——异步任务（Async Task）

    原文:[置顶] Android菜鸟的成长笔记(13)——异步任务(Async Task) Android的UI线程主要负责处理用户的事件及图形显示,因此主线程UI不能阻塞,否则会弹出一个ANR(App ...

  4. Windows Phone开发（13）：如何规范用户的输入行为

    原文:Windows Phone开发(13):如何规范用户的输入行为 很多时候,我们对用户的操作或输入做一定程度的限制,以避免发生不必要的异常或错误,因此,对一些特殊的类型,进行输入限制是很有必要的. ...

  5. 网站静态化处理—web前端优化—下【终篇】（13）

    网站静态化处理—web前端优化—下[终篇](13) 本篇继续web前端优化的讨论,开始我先讲个我所知道的一个故事,有家大型的企业顺应时代发展的潮流开始投身于互联网行业了,它们为此专门设立了一个事业部, ...

  6. [.net 面向对象程序设计深入]（13）实战设计模式——设计模式使用场景及原则

    [.net 面向对象程序设计深入](13)实战设计模式——设计模式使用场景及原则 1,什么是设计模式? 设计模式(Design pattern)是一套被反复使用.多数人知晓的.经过分类编目的.代码设计 ...

  7. 51单片机学习笔记（清翔版）（13）——LED点阵、74HC595

    如图3,点阵屏分单色和彩色,点阵屏是由许多点组成的,在一个点上,只有一颗一种颜色的灯珠,这就是单色点阵屏,彩色的在一个点上有三颗灯珠,分别是RGB三原色. 图4你可能没看出来,那么大块黄色的就是点阵屏 ...

  8. Java设计模式（13）模板模式（Template模式）

    Template模式定义:定义一个操作中算法的骨架,将一些步骤的执行延迟到其子类中. 其实Java的抽象类本来就是Template模式,因此使用很普遍.而且很容易理解和使用,我们直接以示例开始: pu ...

  9. leecode刷题（13） -- 字符串中的第一个唯一字符

    leecode刷题(13) -- 字符串中的第一个唯一字符 字符串中的第一个唯一字符 描述: 给定一个字符串,找到它的第一个不重复的字符,并返回它的索引.如果不存在,则返回 -1. 案例: s = & ...

随机推荐

  1. 使用Postman如何做接口自动化测试

    师从‘百测’! 一.简介 Postman是一款非常流行的API调试工具,很多攻城狮都应该用过,或听说过,这里不做过多介绍. 官方网站:http://www.getpostman.com 二.接口自动化 ...

  2. Crunch黑客神器-创造个性字典

    先来看第一个命令: crunch 6 7 123456 -o pass.txt 是什么意思呢?我们打开终端,输入这个命令之后,crunch代表使用crunch这个工具,6代表生成的密码最小是6位数,7 ...

  3. centos 自动挂载ISO

    创建挂载点并挂载光盘mkdir -p /media/cdrommount -t iso9660 -o loop /usr/ison/centos.iso /media/cdrom 设置开机自动挂载:方 ...

  4. 关于bootstrap的响应式插件respond.min.js在IE8下出现：拒绝访问。respond.min.js，行: 5，列: 746报错问题

    本地在IE8浏览器下测试兼容性的时候,出现了以下的报错: 该问题在bootstrap的官网有介绍:https://v3.bootcss.com/getting-started

  5. 在vue中使用Normalize初始化样式

    参考链接:https://www.jianshu.com/p/34533b45aac1

  6. JQuery自动填充控件：autocomplete（自己稍作了修改）

    <!doctype html> <html lang="en"> <head> <meta charset="UTF-8&quo ...

  7. SpringBoot默认日志的使用方法及常用配置

    SpringBoot默认采用slf4j+logback 的组合形式,但也提供对JUL.log4j2.Logback提供了默认配置. 我们使用IDEA的spring初始化创建一个springboot项目 ...

  8. spring boot 项目开发常用目录结构

    在spring boot开发中一些常用的目录划分 转载自https://blog.csdn.net/Auntvt/article/details/80381756: 一.代码层结构 根目录:net.c ...

  9. mongodb 批量替换内容的语句

    // 注意上面的集合要和下面的集合名称相同 db.rand_web_test.find( { 'content': /^.*要替换的字符串.*$/ } ).forEach( function (ite ...

  10. python新手必躺的5大坑

    python新手必躺的5大坑 对于Python新手来说,写代码很少考虑代码的效率和简洁性,因此容易造成代码冗长.执行慢,这些都是需要改进的地方.本文是想通过几个案列给新手一点启发,怎样写python代 ...