UFT基础_1-6悬停及web下拉框功能

一、基础篇
安装
录制浏览器脚本，打开百度，进行搜索

录制后的脚本

Browser("uft_百度搜索").Page("uft_百度搜索").WebEdit("wd").Set "UFT"
Browser("uft_百度搜索").Page("uft_百度搜索").WebButton("百度一下").Click
Browser("uft_百度搜索").Page("UFT_百度搜索_2").Sync
Browser("uft_百度搜索").CloseAllTabs

录制脚本,HP自带的飞机订票系统UFT12版本

SystemUtil.Run "C:\Program Files\HP\Unified Functional Testing\samples\flight\app\flight4a.exe","","C:\Program Files\HP\Unified Functional Testing\samples\flight\app\",""
Dialog("Login").WinEdit("Agent Name:").Set "test"
Dialog("Login").WinEdit("Password:").Set "MERCURY"
Dialog("Login").WinButton("OK").Click
wait(2)
Window("Flight Reservation").ActiveX("MaskEdBox").Type "111417"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Denver"
Window("Flight Reservation").WinComboBox("Fly To:").Select "Paris"
wait(2)
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select 1
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
wait(1)
Window("Flight Reservation").WinEdit("Name:").Set "huo"
Window("Flight Reservation").WinButton("Insert Order").Click

录制脚本,HP自带的飞机订票系统UFT14版本

SystemUtil.Run "D:\Program Files (x86)\HPE\Unified Functional Testing\samples\Flights Application\FlightsGUI.exe","","D:\Program Files (x86)\HPE\Unified Functional Testing\samples\Flights Application\",""
WpfWindow("HPE MyFlight Sample Applicatio").WpfEdit("agentName").Set "john"
WpfWindow("HPE MyFlight Sample Applicatio").WpfEdit("password").Set "HP"
WpfWindow("HPE MyFlight Sample Applicatio").WpfButton("OK").Click
WpfWindow("HPE MyFlight Sample Applicatio").WpfComboBox("fromCity").Select "Denver"
WpfWindow("HPE MyFlight Sample Applicatio").WpfComboBox("toCity").Select "Paris"

WpfWindow("HPE MyFlight Sample Applicatio").WpfCalendar("datePicker").SetDate "13-Nov-2017"

WpfWindow("HPE MyFlight Sample Applicatio").WpfComboBox("Class").Select "Economy"
WpfWindow("HPE MyFlight Sample Applicatio").WpfComboBox("numOfTickets").Select "1"


WpfWindow("HPE MyFlight Sample Applicatio").WpfButton("FIND FLIGHTS").Click

WpfWindow("HPE MyFlight Sample Applicatio").WpfTable("flightsDataGrid").SelectCell "0","0"


WpfWindow("HPE MyFlight Sample Applicatio").WpfButton("SELECT FLIGHT").Click

WpfWindow("HPE MyFlight Sample Applicatio").WpfEdit("passengerName").Set "tim"

WpfWindow("HPE MyFlight Sample Applicatio").WpfButton("ORDER").Click

序号	模块	用例	预期
1	Login	1、输入用户名2，输入密码，3、OK	进入Flight界面
2	Flight	1、日期 2、选择航班Fly From 3、选择航班Fly From to 4、选择仓类，5、预订票数，选择航次。6、输入乘客名字 6、	检查预设值，Flights Table 界面出现，可输入

下拉框功能
UFT14

msgbox WpfWindow("HPE MyFlight Sample Applicatio").WpfComboBox("toCity").GetContent

UFT12

msgbox Window("Flight Reservation").WinComboBox("Fly From:").GetContent

运行，弹出msgbox框，将所有的下拉框显示出来

取值值并存到记事本中，在 Output printlog 将结果复制到excel中，再复制到记事本中。

print WpfWindow("HPE MyFlight Sample Applicatio").WpfComboBox("toCity").GetContent

获取下拉列表中值的总数,UFT14

msgbox WpfWindow("HPE MyFlight Sample Applicatio").WpfComboBox("toCity").GetItemsCount

获取下拉列表中值的总数,UFT12

msgbox Window("Flight Reservation").WinComboBox("Fly From:").GetItemsCount

比对下拉列表中的值是否正确,UFT12

flyfrom_a = Array("Denver","Frankfurt","London","Los Angeles","Paris","Portland","San Francisco","Seattle","Sydney","Zurich")

flyfrom_c = Window("Flight Reservation").WinComboBox("Fly From:").GetItemsCount
For i = 0 To flyfrom_c-1
    flyfrom_i= Window("Flight Reservation").WinComboBox("Fly From:").GetItem (i)
    If flyfrom_i=flyfrom_a(i) Then
    print i&" is right"
else
    print i&" is wrong"
End If

Next

比对下拉列表中的值是否正确,UFT14

flyfrom = Array("Denve","Frankfurt","London","Los Angeles","Paris","Portland","San Francisco","Seattle","Sydney","Zurich")

For i = 0 To WpfWindow("HPE MyFlight Sample Applicatio").WpfComboBox("fromCity").GetItemsCount -1
    If WpfWindow("HPE MyFlight Sample Applicatio").WpfComboBox("fromCity").GetItem (i)=flyfrom(i) Then
    print i&" is right"
else
    print i&" is wrong"
End If

Next

Sub与Function异同，functiion 有返回值，sub没有

sub用法一

Sub sum(a,b)
    msgbox a+b
End Sub

Call sum(2,3）

sub用法二

Sub sum(a,b)
    msgbox a+b
End Sub

sum 2,3

function用法一,无返回值

Function sum(a,b)
    msgbox a+b
End Function

sum 2,3

function用法二，有返回值

Function sum(a,b)
    sum=a+b
End Function

msgbox sum (2,3)

用户登录函数重构

Call login("john","HP")

Sub login (userName,passWd)
    WpfWindow("HPE MyFlight Sample Applicatio").WpfEdit("agentName").Set userName
    WpfWindow("HPE MyFlight Sample Applicatio").WpfEdit("password").Set passWd
    WpfWindow("HPE MyFlight Sample Applicatio").WpfButton("OK").Click
End Sub

菜单栏使用

'Window("记事本").WinMenu("Menu").Select "文件(F);打开(O)...   Ctrl+O"

Window("记事本").WinMenu("Menu").Select "<Item 1>;<Item 1>"
Window("记事本").Dialog("记事本").WinButton("保存(S)").Click

悬停及web下拉框功能

悬停

1、如何加入对象库
用“Object Spy”,捕获对象
先把“美食”添加到对象库中，
再把“火锅”添加到对象库中（方法：按住ctrl键，鼠标滑过“美食”，松ctrl键，单击”火锅”）

对象库

link的FireEvent

Browser("【团购】团购网站，高品质团购网站_百度糯米").Page("【团购】团购网站，高品质团购网站_百度糯米").Link("美食").FireEvent "onmouseover"
Browser("【团购】团购网站，高品质团购网站_百度糯米").Page("【团购】团购网站，高品质团购网站_百度糯米").Link("火锅").Click

如下图

WEB下拉框

1、与flight异同
2、常用方法
（1）选取值
（2）总数&字符check
添加对象库，百度首页的设置，高级设置

下拉列表框

//打开百度首页，设置，高级搜索
Browser("百度一下，你就知道").Page("百度一下，你就知道").Link("设置").FireEvent "onmouseover"
Browser("百度一下，你就知道").Page("百度一下，你就知道").Link("高级搜索").Click

添加对象库weblistweblist方法

weblist属性及方法

添加item count属性

1、item count属性

msgbox Browser("百度一下，你就知道").Page("百度一下，你就知道").WebList("gpc").GetROProperty("items count")

2、默认为“全部时间”，执行后变为“最近一天”

Browser("百度一下，你就知道").Page("百度一下，你就知道").WebList("gpc").Select ("最近一天")

3、索引选取，执行后为”最近一月”

Browser("百度一下，你就知道").Page("百度一下，你就知道").WebList("gpc").Select "#3"

4、显示weblist中所有的值

msgbox Browser("百度一下，你就知道").Page("百度一下，你就知道").WebList("gpc").GetROProperty("all items")

5、 使用weblist的getitem()方法

msgbox Browser("百度一下，你就知道").Page("百度一下，你就知道").WebList("gpc").GetItem(1)

实战：对比weblist中的数据否正确

baidu_weblist = Array("全部时间","最近一天","最近一周","最近一月","最近一年")
baidu_weblist_count =  Browser("百度一下，你就知道").Page("百度一下，你就知道").WebList("gpc").GetROProperty("items count")

For i = 0 To baidu_weblist_count -1

    If baidu_weblist(i) =  Browser("百度一下，你就知道").Page("百度一下，你就知道").WebList("gpc").GetItem(i+1) Then
        print i&" is right"
    else
        print i&" is wrong"
End If

Next