Deutsch
Forum

Passwort-Edit

 
- Seite 1 -



Andre
Hilprecht
Hi,
brauche mal wieder Hilfe. Habe in meinem Prog einen Adminbereich der nur über ein einzugebendes Passwort zu erreichen sein soll. Funzt auch alles bestens - nur ich möchte jetzt noch erreichen das auch im Edit-Feld für die Passworteingabe die ***** (Sternchen) und nicht das Passwort in Reinschrift erscheinen.
Habe hier schon gesucht aber nix passendes gefunden.

Gruß André
 
Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen

XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils
12.06.2006  
 



 
- Seite 2 -



Andre
Hilprecht
Jo, jo, jo,

jetzt sind das Sternchen vom Feinsten. Wie gesagt, ich bin blutiger Anfänger, ich lerne jeden Tag was Neues dazu und manchmal braucht man eben den Klaps uffn Hinterkopp.

Wie soll ich denn vorher wissen das ich Sternchen per SendMessages an die Variable Pass% schicken kann ohne aber ihren wirklichen Inhalt zu verändern.

Danke euch allen.
 
Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen

XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils
12.06.2006  
 



Du kannst das Aussehen des Sternchens auch einfach über setfont  bestimmen.
 
13.06.2006  
 




Michael
Wodrich
[quote:9ed5506d10]Wie soll ich denn vorher wissen das ich Sternchen per SendMessages an die Variable Pass% schicken kann ohne aber ihren wirklichen Inhalt zu verändern.
[/quote:9ed5506d10]
Pass% enthält das Handle des Edit-Dialoges. Über dieses Handle läßt sich der Dialog ansprechen und feintunen.

Schöne Grüße
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
13.06.2006  
 




Michael
Wodrich
Ich habe mir noch einmal die ersten Postings durchgelesen...

Vermutest Du etwas die eingegebenen Daten in Pass% ???

Die Daten eines Edit-Controls erhälst Du mit der Funktion GetText$().

Die Original-Hilfedatei ist übrigens besser als ihr Ruf es zu sein scheint. Dort findest Du auch Einführungskapitel.

Siehe unter:
- Einführung
- 20.4. Einfache Editierfelder

Das sollte helfen...

Schöne Grüße
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
13.06.2006  
 




Andre
Hilprecht
Muss mich vielleicht mal entschuldigen, wenn ich mich nicht so ganz professionell ausdrücke. Ich bin Hobby-Anfangs-Autodidakt. Habe hier niemanden, den ich mal was über Programmieren fragen könnte, in der Schule kein Informatik gahabt (bin Baujahr 60).
Baue mir meine eigene Philosophie über das Programmieren auf und verrenne mich dabei bestimmt auch mal. Kann mir mit der Hilfe so einiges zusammenreimen, aber eben nicht immer. Bin lernwillig aber brauche manchmal einen Anschubs und bin Euch deshalb dankbar, das man hier sehr schnell die Hilfe bekommt, die man braucht.
KompilierenMarkierenSeparieren
Pass%    = @Create(Edit,D%,,   20, 50,200,-30)
....
....

If Pass%=123456

    Dann kanns im Prog weitergehen

ElseIf Pass% <> 123456

    kommt die Fehlermeldung: Falsches Passwort !

EndIf


Daraus entnehme ich das in der Variablen Pass% genau der Inhalt steht, den der Anwender in das Editfeld getippt hat. Sonst könnte ich doch die Variable nicht direkt mit meinem erdachten (vordefinierten) Passwort : 123456 vergleichen, es geht doch im Prog nur weiter wenn Pass% gleich Passwort. Funzt jedenfalls so.
Jetzt kommt dazu das ich mit SetMessage Sternchen für jeden Tastenanschlag ins Editfeld schicken kann, mit dem Minus überhaupt erst mal die Passwortfunktion fürs Editfeld einschalte, mit SetFont dazu noch das aussehen des Sternchens bestimmen kann - bis hierhin reichts bei mir, aber das mit dem Handle - grübel, grübel. Wozu soll ich denn mit GetText$() jetzt noch den Inhalt auslesen, die Variable Pass% hat doch bereits ihre Schuldigkeit getan.

Entschuldigt das ich so hatnäckig bin, ich wills ja begreifen.
Gruß André
 
Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen

XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils
13.06.2006  
 



Bin Baujahr 59, das sollte also kein Problem sein
Vielleicht verstehste folgendes Code-Snippet und kannst es verweden:
KompilierenMarkierenSeparieren
Declare Password$
Password$ = GetText$(Pass%)

If Password$ <> Mein geheimes Passwort

    falsches Passwort

Else

    richtiges Passwort

EndIf


Sonst einfach nochmal nachharken
 
13.06.2006  
 




Andre
Hilprecht
Das verstehe ich, alles klar.
Vielleicht brauchte ich den Umweg über GetText$(Pass%) nicht gehen, weil mein Passwort kein Wort sondern eine Zahl ist.

Was anderes, wie bekommt ihr den Programmcode hier in so ein Fenster, sieht besser aus und ich muss bestimmt mal wieder ein paar Zeilen Quellcode posten?

Gruß André
 
Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen

XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils
13.06.2006  
 




Rolf
Koch
entweder Du klickst auf Ausführliche Antwort schreiben und hast da die Formatierungsoptionen oder du setzt es ohne die Leerzeichen zwischen dem code (nur damit es hier dargestellt wird):
[c o d e]hier der code[/c o d e]
 
13.06.2006  
 




Jörg
Sellmeyer
Andre Hilprecht
Das verstehe ich, alles klar.
Vielleicht brauchte ich den Umweg über GetText$(Pass%) nicht gehen, weil mein Passwort kein Wort sondern eine Zahl ist.

Was anderes, wie bekommt ihr den Programmcode hier in so ein Fenster, sieht besser aus und ich muss bestimmt mal wieder ein paar Zeilen Quellcode posten?

Gruß André


Das ist kein Umweg sondern die einzige Möglichkeit an den Text zu kommen - egal ob Text oder Zahl. Pass% enthält nur das Handle zum Editcontrol.
Wenn Du eine Zahl hast und weiterverwenden willst, darfst Du nicht vergessen sie mit Val(GetText$(Pass%)) in einen numerischen Wert zu verwandeln.

Gruß
Jörg
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
13.06.2006  
 



Andre Hilprecht

Vielleicht brauchte ich den Umweg über GetText$(Pass%) nicht gehen, weil mein Passwort kein Wort sondern eine Zahl ist.


Den Umweg wirste schon gehen müssen
Beim erstellen des Edit-Controls ordnet Windows diesem eine Identifizierungnummer zu, die Du in Pass% gespeichert hast. Dort ist als nur die ID zum Edit gespeichert. Um an den Text zu kommen, mußt diesen mit GetText$ auslesen, wobei Du die ID zu dem Control übergibst, welches diesen Text enthält.

Ich bin zu langsam , naja alter Mann und die Hitze
 
13.06.2006  
 




Andre
Hilprecht
Hm, ihr macht mir gerade klar, das etwas nicht geht, was bei mir aber funzt ??!!??
Also mein Teil sieht jetzt so aus:
KompilierenMarkierenSeparieren
Text%    = @Create(Text,D%,Bitte Programmpasswort eingeben:,20,20,300,20)
Pass%    = @Create(Edit,D%,,   20, 50,200,-30)
Font%    = @Create(Font,Sans Serif,24,0,0,0,0)
SetFont Pass%, Font%
sendmessage(Pass%,204,ord(*),0)
OK%      = @Create(DefButton,D%,OK, 20,140, 140,30)
CANCEL%  = @Create(DefButton,D%,Abbruch,180,140,140,30)
@SetFocus(Pass%)
F% = 0

WhileNot F%

    WaitInput

    If Clicked(OK%)

        Pass$    = @GetText$(Pass%)

        If Pass$=0000

            DestroyWindow(OK%)
            F% = 1
            DestroyWindow(D%)
            Client

        ElseIf Pass$ <> 0000

            Text1% = @Create(Text,D%,Das Passwort ist leider,20,200,140,20)
            Text2% = @Create(Text,D%,F A L S C H   ! !,60,220,140,20)
            EnableWindow Text%,0
            EnableWindow Pass%,0
            EnableWindow OK%,0
            EnableWindow CANCEL%,0
            SLEEP 2500
            F% = 1
            DestroyWindow(D%)

        EndIf

    ElseIf @Clicked(CANCEL%)

        F% = 1
        DestroyWindow(D%)

    EndIf

EndWhile


und es funzt jetzt wunschgemäß.

Danke Euch allen, bis zum nächsten Denkanstoß Gruß André
 
Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen

XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils
13.06.2006  
 



Du machst es doch so, wie wir schrieben
KompilierenMarkierenSeparieren
Pass$  = @Gettext$(Pass%)

Pass% ist die ID vom Edit
Pass$ ist die Stringvariable wo der Text gespeichert werden soll
 
13.06.2006  
 




Antworten


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

4.994 Betrachtungen

Unbenanntvor 0 min.
Georg Teles01.12.2018
RudiB.05.06.2016
Q26.05.2016
Georg25.07.2013

Themeninformationen



Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie