Code-Beispiel

Passworteingabe Konsole

Lizenz:	Erster Autor:	Letzte Bearbeitung:
k. A.	TiS	27.02.2008

Eine verbesserte Version der Passworteingabe von ThePuppetMaster. Nun werden *chen angezeigt wenn man etwas eingibt. Auch kann man mit Backspace korrigieren.

Function Passwort(strInput As String = "") As String

    Dim strPasswort As String

    Dim strBuffer As String



    Print strInput;

    Do

        Sleep 1

        strBuffer = InKey()

        If strBuffer <> "" Then

            If Asc(Left(strBuffer, 1)) = 13 Then Exit Do

            If Asc(Left(strBuffer, 1)) = 8 Then

                strPasswort = Left(strPasswort, Len(strPasswort) - 1)

                Locate , Len(strPasswort) + Len(strInput) + 1

                Print " ";

                Locate , Len(strPasswort) + Len(strInput) + 1

            Else

                strPasswort += strBuffer

                Print "*";

            EndIf

        End If

    Loop

    Print ""

    Return strPasswort

End Function

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 27.02.2008 von TiS angelegt.
Die aktuellste Version wurde am 27.02.2008 von TiS gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.