Private Function RndChar(Optional ByVal sLen As Integer = 15) As String
Dim Ran As New Random
Dim i As Integer
Dim Texte As String = ""
For i = 1 To sLen
Texte = Texte & Chr(Ran.Next(0, 255))
Next
Return Texte
End Function
Please SUBSCRIBE to get new articles directly into your Email inbox!
Dim Ran As New Random
Dim i As Integer
Dim Texte As String = ""
For i = 1 To sLen
Texte = Texte & Chr(Ran.Next(0, 255))
Next
Return Texte
End Function
Please SUBSCRIBE to get new articles directly into your Email inbox!
تعليقات
إرسال تعليق