QTP设置检查点，通过判断检查点checkpoint的值进行相应操作

最新推荐文章于 2019-04-25 11:08:36 发布

原创最新推荐文章于 2019-04-25 11:08:36 发布 · 6.4k 阅读

2 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#browser #arrays #脚本

qtp 专栏收录该内容

2 篇文章

订阅专栏

该博客介绍了如何使用QTP（QuickTest Professional）设置检查点进行自动化测试。首先，通过设置用户名和密码登录，然后判断检查点以确保登录成功。接着，演示了预订航班的步骤，包括选择航班类型、出发地、目的地、日期和服务等级，并填写乘客信息。整个过程展示了如何使用QTP脚本进行页面交互和对象操作。

'输入用户名test、密码test

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

Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure "4e6eba0869d817b1fa3481fdedee"

'录制的添加checkpoint脚本

'Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Check CheckPoint("Sign-In")

'手动获取checkpoint的值，需要将checkpoint参数两端加括号

bool=Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Check (CheckPoint("Sign-In"))

'判断bool值，如果不存在则提示，否则登录

if(bool=false) then

msgbox("Sign-In 对象不存在")

else

'点击sign-in登录

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

end if

定义变量

Dim num,i,arrays,j,bool

num=2

arrays=array("wang","lan","lan","wang")

j=0

'输入用户名、密码

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

Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure "4e6eba0869d817b1fa3481fdedee"

'录制的添加checkpoint脚本

'Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Check CheckPoint("Sign-In")

'手动获取checkpoint的值，需要将checkpoint参数两端加括号

bool=Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Check (CheckPoint("Sign-In"))

'判断bool值，无实际意义

if(bool=false) then

msgbox("Sign-In 对象不存在")

else

'点击sign-in登录

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

end if

'预订航班页面，进行预订操作

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

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

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

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("toDay").Select "18"

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

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("airline").Select "Blue Skies Airlines"

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

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

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

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

Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebList("creditCard").Select "Visa"

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

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

'返回预订航班页面，进行预订操作

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

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

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

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 36,7

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

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

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

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

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

'返回home页

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

Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours_2").Sync

'关闭页面

Browser("Welcome: Mercury Tours").CloseAllTabs