Zufallswort generieren?

1. offizieller Beitrag

    Hallo,
    ich hab eine kleine Frage, ist es möglich Zufallswörter (6 Zeichen) zu erzeugen und diese dann durch den Send Befehl an Notepad & Co zu senden?

    Danke für eure Hilfe.

    Mir würden spontan Stichwörter wie:
    Schleife, Random, Chr einfallen.

    Einmal editiert, zuletzt von Zen (10. Januar 2007 um 22:15)

    mhh mir ist grad langweilig....
    erst schauen wenn du es selber gelößt hast...

    Spoiler anzeigen
    [autoit]

    $text = ""
    For $i=0 to 6
    $grosseBuchstaben = Random(65,90)
    $kleineBuchstaben = Random(97,122)
    $text = $text & Chr($grosseBuchstaben)
    Next
    Sleep(2000)
    Send($text)

    [/autoit]

    könntest aber auch klein mit groß buchstaben vermischen ebenfalls über rand...
    Ascii zeichensatz

    Mir war auch langweilig :)

    [autoit]

    ; Zufallswort.au3
    ; by Zen

    [/autoit][autoit][/autoit][autoit]

    $Zeichen = 20

    [/autoit][autoit][/autoit][autoit]

    $Wort = ""
    For $i = 1 to $Zeichen

    $Buchstabe = Random(48,122, 1)
    If $Buchstabe > 57 AND $Buchstabe < 65 OR $Buchstabe > 90 AND $Buchstabe < 97 Then
    $i -= 1
    Else
    $Wort &= Chr($Buchstabe)
    EndIf

    Next
    MsgBox(0, '', $Wort)

    [/autoit]


    Ist klein/groß/zahlen ...

    Vielen Dank euch allen.
    snoozer: Sowas hätte ich nicht alleine machen können, hab AutoIt auch erst seit 2 Tagen. Im Moment steuere ich andere Programme halt durch Tastatursimulation, also mit dem Send Befehl.

    • Offizieller Beitrag

    Hi,

    wenn es von der Logik nicht variiert, kannst du auch einfach:

    [autoit]

    MsgBox(64, "6 Zeichen Zufallswort", Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90)))

    [/autoit]

    in eine Zeile schreiben.

    So long,

    Mega

    P.S. : Kannst natürlich MsgBox durch Send ersetzen.