XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Contraseña abfragen
Lauffähig de Profano-Versión 5.0
Contraseña es el aktuelle Datum
declarar ende%,pas%,eing%,but%,end%,code%
let pas%=@createdialog(%hwnd,Bitte Ihr Contraseña:,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

        más

            settext eing%,Falsches Contraseña
            inc ende%

        endif

        @setfocus(eing%)

    elseif @getfocus(end%)

        let ende%=3

    endif

    caso equ(ende%,3):let code%=1
    caso code% :let ende%=4

wend

if code%

    settext eing%,3 x falsches Contraseña

más

    settext eing%,Contraseña correcto

endif

waitinput
@destroywindow(pas%)
end