随机取下拉单中的值

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