拉取随机下拉框内容
上一节
下一节
dim a
a=Browser("XXXX").Page("XXX").WebList("XXX").GetROProperty("items count")
msgbox a
randomize
Dim b
b=randomnumber(0,a-1)
msgbox b
Browser("XXX").Page("XXX").WebList("XXX").Select "#"&b

