青岛小吃街:QTP随机取值和WebList取值脚本

在QTP中要取随机数，比如取0到100的数，可以用两种方法1. Randomize（表示不取重复的，可以不要） cran=RandomNumber (0,100)
2.QTP帮助中的Rnd方法：

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

cran=int((100-0+1)*rnd+0) 在Web页面录制中，经常要用到取WebList中的第X项的值，这就必须得用随机取值了，下面是一个例子：下面是http://www.xmwx.org.cn上两个WebList任取值的脚本，注释了的是一种方法，这种方法比较死：WebList的总项items count是先算出来的；第二种方法比较全接近全自动：WebList中的items count是通过GetRoProperty这个函数得到的。所以第二种方法代码比第一种方法精练很多。如果有朋友有兴趣试试的话，只要把网站上的站内搜索录制一遍或者把所需要的对象中到对像库中，然后直接把脚本拷进去运行就OK了，记住：这里是两种方法；'Dim Get_Ran,ran1,ran2,ran3,ran4,ran6
'Randomize
'Get_Ran=RandomNumber (0,14)
'Browser("厦门市物业管理协会").Page("厦门市物业管理协会").WebList("catalog").Select "#"&Get_Ran
'msgbox Get_Ran
'If (Get_Ran=0 or Get_Ran=5 or Get_Ran=9 or Get_Rnd=10 or Get_Ran=11 or Get_Rnd=12 or Get_Ran=13 or Get_an=14) Then
'   ran1= 1
'  Browser("厦门市物业管理协会").Page("厦门市物业管理协会").WebList("sort").Select "#"&ran1
'elseif (Get_Ran=3 or Get_Ran=6 or Get_Ran=8) then
'     Randomize
'  ran2=RandomNumber (0,1)
'  Browser("厦门市物业管理协会").Page("厦门市物业管理协会").WebList("sort").Select "#"&ran2
'elseif (Get_Ran=7) then
'  Randomize
'  ran3=RandomNumber(0,2)
'     Browser("厦门市物业管理协会").Page("厦门市物业管理协会").WebList("sort").Select "#"&ran3
'elseif (Get_Ran=1 or Get_Ran=2) then
'  Randomize
'  ran4=RandomNumber(0,3)
'  Browser("厦门市物业管理协会").Page("厦门市物业管理协会").WebList("sort").Select "#"&ran4
'else
'  Randomize
'  ran6=RandomNumber(0,5)
'  Browser("厦门市物业管理协会").Page("厦门市物业管理协会").WebList("sort").Select "#"&ran6
'End If
''Browser("厦门市物业管理协会").Page("厦门市物业管理协会").WebList("sort").Select "国家性政策、法规"
'Browser("厦门市物业管理协会").Page("厦门市物业管理协会").WebEdit("key").Set "12"
'Browser("厦门市物业管理协会").Page("厦门市物业管理协会").Image("search").Click方法二：
 Dim cran,ccout,scout,sran
 Randomize
 ccout=Browser("厦门市物业管理协会").Page("厦门市物业管理协会").WebList("catalog").GetROProperty( "items count")
 cran=RandomNumber (0,ccout-1)
 msgbox cran
 Browser("厦门市物业管理协会").Page("厦门市物业管理协会").WebList("catalog").Select "#"&cran
 scout=browser("厦门市物业管理协会").Page("厦门市物业管理协会").WebList("sort").GetROProperty( "items count")
 sran=RandomNumber(0,scout-1)
 msgbox sran
 Browser("厦门市物业管理协会").Page("厦门市物业管理协会").WebList("sort").Select "#"&sran
 Browser("厦门市物业管理协会").Page("厦门市物业管理协会").WebEdit("key").Set "12"
 Browser("厦门市物业管理协会").Page("厦门市物业管理协会").Image("search").Click