qtp web随机获取下拉框的值

1.先顶一个随机获取数的函数

  Function GetList(i)
     randomize
     GetList=RandomNumber(0,i)
  End Function

2.以下就是纯代码了,这里只展示一个下拉框是如何取值的

  Dim stcount,stnum,rel,stobj
  Set stobj=browser("BIP管理平台").Page("BIP管理平台").WebList("read").Object
  stcount=stobj.options.length  '获取下拉框对象的值个数
  'msgbox(stcount)
  stnum=GetList(stcount-1)  '调用随机数函数,获取随机一个整数
  'msgbox(stnum)
  rel=stobj.options.item(stnum).text  '获取项相应的文本值
  'msgbox(rel)
  browser("BIP管理平台").Page("BIP管理平台").WebList("read").Select rel  '改变下拉框的文本框取值

3.OK,就这样完成啊!

posted @ 2013-12-10 10:51  赏客  阅读(523)  评论(0编辑  收藏  举报