also mein anliegen heut =)
ich möchte über einen button eine zufällige zeichenfolge
( zB "1lf32a?=SADC*'Y#asc/9" ) in eine textbox übergebn.
hab bei google leider nichts gefunden mit sonderzeichen
und mehrstelligen zeichen.
Druckbare Version
also mein anliegen heut =)
ich möchte über einen button eine zufällige zeichenfolge
( zB "1lf32a?=SADC*'Y#asc/9" ) in eine textbox übergebn.
hab bei google leider nichts gefunden mit sonderzeichen
und mehrstelligen zeichen.
Such hier mal nach Passwortgeneratoren. Gibt glaube ich ein paar Beispiele im Forum.
=)Zitat:
Public Function Zufallsstring()
Dim Output As String = ""
Dim focus As New Random
Dim change As Integer
change = focus.Next(11, 13)
For i = 1 To change
Dim generator As New Random
Dim randomValue As Integer
randomValue = 0
randomValue = generator.Next(3, 4) ' Die 3 und 4 kannste Variieren, 1-4 ist groß, klein und Zahlen.
System.Threading.Thread.Sleep(25)
Select Case randomValue
Case 1
randomValue = generator.Next(48, 57)
Output &= Chr(randomValue)
Application.DoEvents()
randomValue = 0
Case 2
randomValue = generator.Next(65, 90)
Output &= Chr(randomValue)
Application.DoEvents()
randomValue = 0
Case 3
randomValue = generator.Next(97, 122)
Output &= Chr(randomValue)
Application.DoEvents()
randomValue = 0
End Select
Next
Return Output
End Function
' Sirect mag Credits!
Wie bin ich auf "focus" und "change" gekommen?
change ist die Länge des Strings.
Have Fun und so
käse lol
verwechselt
hab das gleiche wie razzor es gepostet hat
aus dem source von the papst geklaut =)
natürlich nur den generator ;)
danke trzdem an alle.