XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Mot de passe abfragen
Lauffähig ab Profan-Version 5.0
Mot de passe ist cela aktuelle date
declare ende%,pas%,eing%,but%,end%,code%
let pas%=@createdialog(%hwnd,s'il te plaît son Mot de passe:,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

    si @getfocus(but%)

        si @equ$(@gettext$(eing%),@date$(0))

            let ende%=4

        d'autre

            settext eing%,Falsches Mot de passe
            inc ende%

        endif

        @setfocus(eing%)

    elseif @getfocus(end%)

        let ende%=3

    endif

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

Wend

si code%

    settext eing%,3 x falsches Mot de passe

d'autre

    settext eing%,Mot de passe richtig

endif

waitinput
@destroywindow(pas%)
end