QTP--随机数

Msgbox GetRandomChars(10)

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

Msgbox NumRand(5)
Function NumRand(n)
For i=1 to n
Randomize
temp = cint(9*Rnd)
temp = temp + 48
NumRand = NumRand & chr(temp)
Next
End Function

Msgbox LCharRand(5)
Function LCharRand(n)
For i=1 to n
Randomize
temp = cint(25*Rnd)
temp = temp +97
LCharRand = LCharRand & chr(temp)
Next
End Function

生成随机MAC地址
msgbox targetrandstring(2)&":"&targetrandstring(2)&":"&targetrandstring(2)&":"&targetrandstring(2)&":"&targetrandstring(2)&":"&targetrandstring(2)
Function targetrandstring(targetstringlength)
Const constring = “0123456789abcdef” '定义一个包含所有数字和字母的常量。如果需要大写的字母，可以将A-Z添加到cConStr 里面
Dim i, randsting
Randomize '直接用rnd函数，每次取的值是一样的。所以要用函数 randomize 初始化随机数发生器
For i=1 To targetstringlength
Int(Len(constring)*Rnd)+1 '返回一个1到37的随机整数，包括1和37
temp = Mid (constring, Int(Len(constring)*Rnd)+1, 1) '在constring中从第int个字符开始取1个字符
randsting = randsting & temp
Next
targetrandstring = randsting
End Function