QTP中weblist检查和随机选取weblis…

Function Select_weblist(obj)
   Dim item_count
   item_count=obj.GetROProperty ("items count")
   If  item_count > 0 Then
          Randomize
  Get_Ran=RandomNumber (1,item_count-1)
  obj.Select "#"&Get_Ran
   End If
End Function

把对象传进去,就可以自动选取weblist中的值，在实际操作中特别是针对动态的weblist,而且对流程没有影响的的weblist效果不错,拿出来和大家分享.

一、关于JS两个关联weblist的检查
如图：当申请人类型选择个人或企业时，证件号下拉菜单中的选线也随之改变。

在用QTP做验证时，脚本如下：