1.获取下拉单中的元素个数
Dim listCount
listCount=Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromPort").GetROProperty("items count")
2.使用随机函数
可以将随机函数写成一个方法,如:
'i为下拉单的元素个数减1,即listCount-1
'该方法可以取0到i之间的任意一个数
Public Function Get_Ran(i)
Randomize
Get_Ran=RandomNumber(0,i)
End Function
3.组合前面两点,写成一个随机取下拉单中的值
Dim listCount
Dim randomNum
listCount=Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromPort").GetROProperty("items count")
randomNum=Get_Ran(listCount-1)
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromPort").Select ("#")& randomNum