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做验证时，脚本如下：

’登录开始

Browser("电子政务").Page("电子政务").WebEdit("name:=user_code").Set "yzjww"
Browser("电子政务").Page("电子政务").WebEdit("user_pass").SetSecure "4905681404b239128025d90d"
Browser("电子政务").Page("电子政务").Image("dl-9").Click

'收件开始

Browser("电子政务").Page("::::行政审批系统::::").Link("text:=窗口申请","name:=窗口申请","innertext:=窗口申请").Click
Browser("电子政务").Page("::::行政审批系统::::").Frame("10").Link("text:=申请","name:=申请","innertext:=申请").Click
Browser("电子政务").Page("::::行政审批系统::::").Frame("10_2").WebEdit("shoujian.projectname").Set "邮政用品用具生产审批Auto-testing"
'Browser("电子政务").Page("::::行政审批系统::::").Frame("10_2").WebEdit("shoujian.projectname").Set ""


Browser("电子政务").Page("::::行政审批系统::::").Frame("10_3").WebList("shoujian.sqrtype").Select DataTable("weblistsqrtype", dtGlobalSheet)
sqrtype=Browser("电子政务").Page("::::行政审批系统::::").Frame("10_3").WebList("shoujian.sqrtype").GetROProperty("value")
Browser("电子政务").Page("::::行政审批系统::::").Frame("10_3").WebList("shoujian.sqrtype").Check CheckPoint("shoujian.sqrtype")
'msgbox sqrtype
If sqrtype="个人"Then
    Browser("电子政务").Page("::::行政审批系统::::").Frame("10_3").WebList("shoujian.cardtype").Select "其他"
    Browser("电子政务").Page("::::行政审批系统::::").Frame("10_3").WebList("shoujian.cardtype").Check CheckPoint("shoujian.cardtype")
elseif sqrtype="企业"     then
'Browser("电子政务").Page("::::行政审批系统::::").Frame("10_3").WebList("shoujian.cardtype").Select "其他"
'Browser("电子政务").Page("::::行政审批系统::::").Frame("10_3").WebList("shoujian.cardtype").Check CheckPoint("shoujian.cardtype")
Browser("::::行政审批系统::::").Page("::::行政审批系统::::").Frame("10").WebList("shoujian.cardtype").Select "其他"
Browser("::::行政审批系统::::").Page("::::行政审批系统::::").Frame("10").WebList("shoujian.cardtype").Check CheckPoint("shoujian.cardtype_2")
else
Reporter.ReportEvent micFail,"异常测试","发生异常，请手动跟踪！"
end if

二、关于weblist的一个应用举例：

Sub ChildObjects_Example()

'The following example uses the ChildObjects method to find all the

'list objects on a Web page, and then to select an item in each list.

Set oDesc = Description.Create()

oDesc("micclass").Value = "WebList"

Set Lists = Browser("Mercury Interactive").Page("Mercury Interactive").ChildObjects(oDesc)

NumberOfLists = Lists.Count()

For i = 0 To NumberOfLists - 1

Lists(i).Select i + 1

Next