==下拉列表框的参数化==
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
--------------------------------------
==链接的参数化==
| 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首字母必须大写 |