WEB下拉列表和复选框随机参数化,随机获得一个任意长度的字符串

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

如何随机获得一个任意长度的字符串，主要是包含字母，数字，标点符号，常用符号等

Function GetRandomChars( length )

Dim str

For I = 0 to length

     Randomize

   idx =Int( ( ub - 32 + 126 )  * Rnd +32)

   str = str & Chr(idx)

Next

GetRandomChars = str    

End Function

QTP随机选择页面上所有下拉列表

Public Sub AllSelect(byref myPage)

       dim i

       Set Desc = Description.Create()

       oDesc("html tag").Value = "SELECT"

       oDesc("disabled").Value = 0

       Set lists = myPage.ChildObjects(oDesc)

       For i = 0 To Lists.Count - 1

               Lists(i).select RandomNumber(0, Lists(i).GetROProperty("items count")-1)

       Next

End Sub

RegisterUserFunc "Frame", "AllSelect", "AllSelect",True

QTP随机选择页面上checkBOX

Set desc = Description.Create()

desc("type").Value = "checkbox"

desc("name").value="version*"

Set checkboxColection=Browser("ICAM Config - Add Remove").Page("ICAM Config - Add Model").ChildObjects(desc)

Num=checkboxCollection.count

Randomize

Num= int((Num-1)*Rnd()+1)

For j=0 to Num-1

checkboxCollection(j).set "ON"

Next