[唐胡璐]QTP技巧 - Random WebList & Write to Report(随机选择Weblist并写入测试报告)

' 用 封装"items count" 属性来获取WebList下有几个选项
itemCount =  Browser("XXX").Page("XXX|").WebList("XXX").GetROProperty("items count")

' 用RandomNumber随机选取范围内的index
tValue = RandomNumber(0, itemCount - 1)
Browser("XXX").Page("XXX").WebList("XXX").Select tValue

' 将随机选择的结果写入测试报告
Reporter.ReportEvent micDone, "本次运行随机选择了INDEX: <" & tValue & ">", " "