==下拉列表框的参数化==
1.通过下拉框对应项的实际值查找
Browser(“****”).Page(“****”).WebList(“****”).Select “****”
将select“****”的值参数化,可以将下拉框中的每一个选项都写到数据表中
2.通过下拉框对应项的索引号查找 Browser(“****”).Page(“****”).WebList(“****”).Select “#”&IndexNum
比如说下拉框有5个选项
IndexNum = RandomNumber(1,5) 以上代码生成1到5之间的随机数,5是上界,1是下界。
Dim s,Get_Ran
s=Browser("LanPay瑞宝支付|安全 简单 快捷 顺畅").Page("LanPay瑞宝支付|安全 简单 快捷 顺畅_4").Frame("_mframe").WebList("province").GetROProperty("items count")
Randomize
Get_Ran=RandomNumber (0,s-1)
Browser("LanPay瑞宝支付|安全 简单 快捷 顺畅").Page("LanPay瑞宝支付|安全 简单 快捷 顺畅_4").Frame("_mframe").WebList("province").Select "#"&Get_Ran
==单选按钮的参数化==
单选按钮参数化与下拉列表参数化相同。
1.通过单选按钮对应项的实际值查找,以蓝派中国的舱位等级为例
--------------------------------------
Browser("蓝派中国lanpay.cn").Page("蓝派中国lanpay.cn_2").WebRadioGroup("BUNK_GRADE").Select DataTable("舱位", dtLocalSheet)
--------------------------------------
将select“****”的值参数化,可以将下拉框中的每一个选项都写到数据表中
2.通过单选按钮对应项的索引号查找
1 ‘代表选择的是公务舱,索引号以0开始
--------------------------------------
Browser("蓝派中国lanpay.cn").Page("蓝派中国lanpay.cn_2").WebRadioGroup("BUNK_GRADE").Select "#" & 1
--------------------------------------
==链接的参数化==
下面的例子是根据订单号,点击后面的操作链接。
例如我们要操作订单11072822830300001 的付款,因为我们只知道订单号,所以根据订单号先找到行,然后再通过行列找到对应的链接,进行点击。
Browser("LanPay瑞宝支付|安全 简单 快捷 顺畅").Page("LanPay瑞宝支付|安全 简单 快捷 顺畅_2").Link("交易管理").Click
Browser("LanPay瑞宝支付|安全 简单 快捷 顺畅").Page("LanPay瑞宝支付|安全 简单 快捷 顺畅_2").Frame("_mframe").WebTable("创建时间").Output CheckPoint("创建时间_3")
Dim row
‘获取交易号所在的行
row = Browser("LanPay瑞宝支付|安全 简单 快捷 顺畅").Page("LanPay瑞宝支付|安全 简单 快捷 顺畅_2").Frame("_mframe").WebTable("创建时间").GetRowWithCellText(datatable.Value ("交易号", "Action1"), 3,2)
msgbox row
Dim aa,bb,cc,dd
‘获取表中的行数
aa=Browser("LanPay瑞宝支付|安全 简单 快捷 顺畅").Page("LanPay瑞宝支付|安全 简单 快捷 顺畅_2").Frame("_mframe").WebTable("创建时间").RowCount ‘列表的总行数
bb="09051316080300008"
For i =2 to aa
‘循环第三列所有的行,直到找到订单号所在的行
cc= Browser("LanPay瑞宝支付|安全 简单 快捷 顺畅").Page("LanPay瑞宝支付|安全 简单 快捷 顺畅_2").Frame("_mframe").WebTable("创建时间").GetCellData(i,3)
msgbox cc
If (bb=cc) Then
msgbox(bb)
dd=i
Exit for
End If
next
msgbox dd ‘这就是订单09051316080300008所在的行
‘点击指定订单号所对应的链接
Browser("LanPay瑞宝支付|安全 简单 快捷 顺畅").Page("LanPay瑞宝支付|安全 简单 快捷 顺畅_2").Frame("_mframe").WebTable("创建时间").ChildItem(dd,10,"Link",0).Click ‘注意ChildItem中的参数Link首字母必须大写