vbs我想随即获得一个任意长度的字符串，求高人代码

csj

主要是字符，数字，标点符号，常用符号等，求赐代码。用于QTP

zzxxbb112

胡乱帮你写了一个，呵呵，自己可以根据需求进行修改。

rData = Crypt.Encrypt(RandomNumber(00000,99999999))

rData = replace(rData,"a",",")
rData = replace(rData,"b","@")
rData = replace(rData,"c","^")
rData = replace(rData,"cd","#")
msgbox rData

csj

版主大人，你给的这个东东我也不知道什么意思，你直接给个生成6位随机字符串的吧。谢谢了啊

TIB

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