QTP（10）

一、VBS语言基础
　　1.运算符和表达式
　　　　（1）运算符
　　　　（2）表达式
　　　　　　a.数学表达式：由算术运算符连接，计算结果为数字
　　　　　　b.字符串表达式：由字符串连接符连接，计算结果为字符串
　　　　　　c.条件表达式：由关系运算符或逻辑运算符连接，计算结果为布尔值----重点！！

　　　　　　Test10001_VBS基础_关系运算符_强制转换

'Dim a,b,c,d,e,f,g
'a=100
'b=99
'c="100"
'd="100"
'e="99"
'f="Hello"
'g="World"
'msgbox cstr(a)+f'100Hello

'msgbox a>b'True
'msgbox c<>d'False
'msgbox a=c'Flase数据子类型不同，不相等
'msgbox cint(a)=cint(c)'True
'msgbox cstr(a)=cstr(c)'True
'msgbox a>e'False???
'msgbox a>cint(e)'将e强制转换为integer，再比较大小
'msgbox f>g'False

'msgbox 10/3
'msgbox cint(10/3)'3
'msgbox 10/7
'msgbox cint(10/7)'1
'msgbox cint(10.56)'11
'msgbox cint(10.500001)'11
msgbox cint(10.5)'10
msgbox cint(8.5)'8
msgbox cint(6.5)'6
msgbox cint(11.5)'12
msgbox cint(3.5)'4
msgbox cint(1.5)'2

　　2、强制转换子类型
　　　　（1）cstr：强制转换为String子类型
　　　　　　例：a=cstr(b)
　　　　（2）cint：强制转换为Integer子类型
　　　　　　例：a=cint(b)
　　　　　　　　转换原则：
　　　　　　　　　　a.当小数部分小于0.5时，舍掉
　　　　　　　　　　b.当小数部分大于0.5时，进位
　　　　　　　　　　c.当小数部分等于0.5时，取最接近的偶数作为结果。

　　　　　　　　CBool Function | CByte Function | CCur Function | CDate Function | CDbl Function | CLng Function | CSng Function | CStr Function | Int, Fix Functions

　　　　　　练习：录制Flight3个Action：登录、订票、退出，在订票Action中对订票的数据做DataTable参数化，其中航班在DataTable中准备选项编号。
　　　　　　　　Test10002_Flight_订票_DataTable参数化

登录Action（）
Dialog("Login").WinEdit("Agent Name:").Set "12345"
Dialog("Login").WinEdit("Password:").SetSecure "5a5eb3b62861ca09e91a9690d13c8327db9c7737"
Dialog("Login").WinButton("OK").Click

订票Action（）
Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").ActiveX("MaskEdBox").Type "111119"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Denver"
Window("Flight Reservation").WinComboBox("Fly To:").Select "Frankfurt"
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select cint(DataTable("航班",dtLocalSheet))
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "ooo"
Window("Flight Reservation").WinButton("Insert Order").Click

退出Action（）
Window("Flight Reservation").Close

　　3.数组：用于存放一组数据
　　　　（1）用法一：
　　　　　　Dim 数组名称(最大下标)
　　　　　　　　数组名称(下标)=值
　　　　　　注意：下标从0开始，每个元素可以赋值任意子类型的数值。
　　　　　　例:
　　　　　　　　'用法一
　　　　　　　　　　Dim stu(3)
　　　　　　　　　　stu(0)="zhangsan"
　　　　　　　　　　stu(1)="lisi"
　　　　　　　　　　stu(2)="wangwu"
　　　　　　　　　　stu(3)=100
　　　　　　　　　　msgbox stu(1)
　　　　　　　　Test10003_VBS基础_数组

'用法一
'Dim stu(3)
'stu(0)="zhangsan"
'stu(1)="lisi"
'stu(2)="wangwu"
'stu(3)=100
'用法二：
Dim stu
stu=array("zhagnsan","lisi","wangwu",100)
msgbox stu(3)

　　　　（2）用法二：
　　　　　　Dim 变量
　　　　　　变量=array(值1,值2,值3,值4,值5)
　　　　　　说明：变量就可以当做数据名称来使用。
　　　　　　例：
　　　　　　　　'用法二：
　　　　　　　　　　Dim stu
　　　　　　　　　　stu=array("zhagnsan","lisi","wangwu",100)
　　　　　　　　　　msgbox stu(3)

　　　　　　练习：录制两位数加法器加法计算后退出的步骤，将2个加数的数据提前存储在一个数组中，由数组元素提供加数数据。
　　　　　　Test10004_两位数加法器_数组

'用法一:
'Dim num(1)
'num(0)="30"
'num(1)="80"
'用法二：
Dim num
num=array("30","80")
VbWindow("Form1").VbEdit("Text1").Set num(0)
VbWindow("Form1").VbEdit("Text2").Set num(1)
VbWindow("Form1").VbButton("计算(J)").Click
VbWindow("Form1").VbButton("退出(E)").Click
VbWindow("Form1").Dialog("退出提示").WinButton("确定").Click

　　4.输入输出
　　　　（1）msgbox：弹出信息框输出内容，测试时一般用于调试代码时输出关键变量的当前值。
　　　　　　语法：msgbox "内容"
　　　　（2）inputbox：弹出输入框来接收用户的输入，一般用于和用户交互。
　　　　　　语法：变量=inputbox("请输入……")
　　　　　　注意：只有当用户点击“确定”后，才会返回输入框中的内容，如果点击“取消”或直接关闭输入框，都返回空字符串。
　　　　　　例：
　　　　　　　　'inputbox "请输入您的姓名："
　　　　　　　　Dim n'姓名
　　　　　　　　n=inputbox("请输入您的姓名：")
　　　　　　　　msgbox n
　　　　（3）特点：inputbox和msgbox都会打断程序的执行，必须等待用户操作后才继续执行，自动化测试时，尽量减少输入输出框的使用。
　　　　（4）msgbox的替换方案：QTP提供的打印日志功能，最终自动化测试代码中建议使用print代替msgbox
　　　　　　语法：Print "内容"

　　　　　　练习：不录制，书写代码实现：
　　　　　　　　（1）使用两个Inputbox获得两个操作数，存储在一个数组中
　　　　　　　　　　说明：运行时都输入整数（例如20和30）
　　　　　　　　（2）对这两个数分别做乘法和加法计算，将结果存储在两个变量中
　　　　　　　　（3）使用两个msgbox输出以下格式的信息
　　　　　　　　　　例如：

　　　　　　　　　　　　20乘以30等于600
　　　　　　　　　　　　20加上30等于50
　　　　　　　　　　Test10005_VBS基础_综合

Option Explicit
'练习：不录制，书写代码实现：
'（1）使用两个Inputbox获得两个操作数，存储在一个数组中
Dim num(1)
num(0)=Inputbox("请输入第一个数：")
num(1)=Inputbox("请输入第二个数：")
'说明：运行时都输入整数（例如20和30）
'（2）对这两个数分别做乘法和加法计算，将结果存储在两个变量中
Dim result1,result2'结果1和结果2
result1=num(0)*num(1)
result2=cint(num(0))+cint(num(1))
'（3）使用两个msgbox输出以下格式的信息
'例如：20乘以30等于600
'            20加上30等于50
msgbox num(0)&"乘以"&num(1)&"等于"&result1
msgbox num(0)&"加上"&num(1)&"等于"&result2

二、总结VBS语法规则
　　1.总结VBS函数：
　　　　（1）wait 5
　　　　（2）msgbox "Hello"
　　　　（3）a=Inputbox("请输入")
　　　　（4）a=cint(b)
　　　　（5）a=cstr(b)
　　　　（6）a=array(1,6,8)

　　2.VBS函数使用的语法规则：---非常重要！
　　　　（1）如果函数无返回值，或有返回值但是不接收返回值时，将参数写在函数名称的空格后。
　　　　（2）如果函数有返回值并且接收返回值，那么将参数写在函数名称后的小括号内。
　　　　　　说明：除了函数，对象的方法也遵循这种语法规则。

　　3.GetROProperty方法
　　　　（1）作用：获得RO指定属性的当前值。
　　　　（2）语法：变量=对象.GetROProperty("属性名称")
　　　　（3）前提：该TO对象必须在对象仓库中存在
　　　　（4）返回值：属性当前值（子类型是String）。
　　　　　　例：
　　　　　　　　num=Window("Flight Reservation").WinEdit("Order No:").GetROProperty("text")

　　　　　　练习：使用jack用户名登录Flight，订票后，获得新订单号，退出后，使用rose用户登录Flight，打开jack刚订的新订单号的票，再退出
　　　　　　Test10006_Flight_GetROProperty

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 "5a5efc499ef99cc3a3509a9dd5b95f25b33c87a0"
Dialog("Login").WinButton("OK").Click
wait 5
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 "20174   FRA   10:24 AM   DEN   11:09 AM   SR     $323.80"
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "alice"
Window("Flight Reservation").WinButton("Insert Order").Click
wait 10
'获得新订单号
Dim num
num=Window("Flight Reservation").WinEdit("Order No:").GetROProperty("text")
print num
Window("Flight Reservation").Close
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 "rose"
Dialog("Login").WinEdit("Password:").SetSecure "5a5efcd5b7328b37323ce6442cfa0b1f87d7a9d8"
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set num
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
Window("Flight Reservation").Close

三、随机数参数化
　　1.作用：做随机测试

　　2.实现方式一：在关键字视图中，点击Value列的数据，点击其后的<#>按钮，在弹框中选择Parameter，选择下拉框中的Random Number，输入From下限和To上限值，点击OK
　　　　缺陷：下限和上限不能输入负数

　　3.实现方式二：在专家视图中，使用RandomNumber(下限,上限)的语法格式代替常量即可。

　　4.注意：RandomNumber(下限,上限)的语法格式生成的数据子类型是Integer

　　　　练习：录制Flight登录、订票、退出的步骤，订票时的数据做随机数参数化
　　　　Test10007_Flight_随机数参数化

Dialog("Login").WinEdit("Agent Name:").Set "1234"
Dialog("Login").WinEdit("Password:").SetSecure "5a5f09bbe317fe069bb1dc4a7facfffe5b6cea25"
Dialog("Login").WinButton("OK").Click
wait 8
Window("Flight Reservation").ActiveX("MaskEdBox").Type "111119"
Window("Flight Reservation").WinComboBox("Fly From:").Select RandomNumber(0,9)
Window("Flight Reservation").WinComboBox("Fly To:").Select RandomNumber(0,8)
Window("Flight Reservation").WinButton("FLIGHT").Click
Dim c'航班数（列表框的选项个数，items count属性值）
c=Window("Flight Reservation").Dialog("Flights Table").WinList("From").GetROProperty("items count")
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select RandomNumber(0,c-1)
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "jack"
Window("Flight Reservation").WinEdit("Tickets:").SetSelection 0,1
Window("Flight Reservation").WinEdit("Tickets:").Set cstr(RandomNumber(1,10))
Window("Flight Reservation").WinButton("Insert Order").Click
Window("Flight Reservation").Close

　　　　　　Dim c'航班数（列表框的选项个数，items count属性值）
　　　　　　c=Window("Flight Reservation").Dialog("Flights Table").WinList("From").GetROProperty("items count")
　　　　　　Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select RandomNumber(0,c-1)

　　　　练习：录制Flight登录-打开1-10之间随机编号的订单-退出，打开完订单后，退出前，使用msgbox输出“顾客x预定了y从z到w的k张票！”
　　　　说明：x是顾客姓名、y是日期、z是FlyFrom、w是FlyTo、k是Tickets票数