/ Published in: Visual Basic
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
Function genAdvRndString(ByRef length As Integer) As String Randomize() Dim allowableChars As String allowableChars = "!@#$%^&*()?><1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" Dim i As Integer For i = 1 To length genAdvRndString = genAdvRndString & Mid$(allowableChars, Int(Rnd() * Len(allowableChars) + 1), 1) Next End Function