Passwort abfragen

'Passwort abfragen

Beitrag, 16.07.2007 01:03: ;createCode() 'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt: 'Passwort abfragen 'Lauffähig ab Profan-Version 5.0 'Passwort ist das aktuelle Datum declare ende%,pas%,eing%,but%,end%,code% let pas%=@createdialog(%hwnd,"Bitte Ihr Passwort:",50,50,200,75) let eing%=@createedit(pas%,"",0,0,200,24) let but%=@createbutton(pas%,"&OK",10,26,70,23) let end%=@createbutton(pas%,"&Ende",110,26,70,23) let ende%=0 let code%=0 @setfocus(eing%) whilenot @equ(ende%,4) waitinput if @getfocus(but%) if @equ$(@gettext$(eing%),@date$(0)) let ende%=4 else settext eing%,"Falsches Passwort" inc ende% endif @setfocus(eing%) elseif @getfocus(end%) let ende%=3 endif case equ(ende%,3):let code%=1 case code% :let ende%=4 wend if code% settext eing%,"3 x falsches Passwort" else settext eing%,"Passwort richtig" endif waitinput @destroywindow(pas%) end

Dies ist die Offlinevariante vom Thread [Passwort abfragen].