QTP设置检查点，通过判断检查点checkpoint的值进行相应操作
'输入用户名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