XProfan

- Page 1 -

Oh sorry
Wrong Script here the right
Compile Mark Separation

Window 10,10-100,260
WindowTitle ""
declare admin&,gast&,exit&
declare e%, x%, y%
declare passwort$
declare Edit&, passwindow&
declare weiter&
Cls rgb(0,255,0)
Print ""
Print " Wähle einen  "
Print " Benutzer aus "
admin& = Create("Button",%hwnd,"Admin",5,60,100,30)
gast& = Create("Button",%hwnd,"Gast",5,100,100,30)
print ""
print ""
print ""
print ""
print ""
print ""
print " Optionen     "
exit& = Create("Button",%hwnd,"Beenden",5,165,100,30)

While 1

    WaitInput

    If Clicked(admin&)

        x% = 280
        y% = 100
        passwort$ = "Passwort1"
        passwindow&=Create("Window",%hwnd,"Passwortabfrage(Admin)",(%MaxX- x%) / 2,(%MaxY - y%) / 2, x%,y%)
        Edit& = Create("Edit",passwindow&,"",5,5,245,20)
        weiter& = Create("Button",passwindow&,"Weiter",5,30,120,25)
        exit& = Create("Button",passwindow&,"Abbrechen",132,30,120,25)
        SetFocus(Edit&)
        clear e%

        whilenot e%

            WaitInput

            if Clicked(exit&)

                end

            elseif Clicked(weiter&)

                ifnot GetText$(Edit&) = passwort$

                    Messagebox("Falsches Passwort!!!","I N F O",4160)
                    e% = 1
                    end

                else

                    e% = 999

                endif

            endif

        endwhile

        //hier kommt das hin was bei erfolgreicher Passworteingabe passieren soll

    ElseIf Clicked(gast&)

        x% = 280
        y% = 100
        passwort$ = "Passwort2"
        passwindow&=Create("Window",%hwnd,"Passwortabfrage(Gast)",(%MaxX- x%) / 2,(%MaxY - y%) / 2, x%,y%)
        Edit& = Create("Edit",passwindow&,"",5,5,245,20)
        weiter& = Create("Button",passwindow&,"Weiter",5,30,120,25)
        exit& = Create("Button",passwindow&,"Abbrechen",132,30,120,25)
        SetFocus(Edit&)
        clear e%

        whilenot e%

            WaitInput

            if Clicked(exit&)

                end

            elseif Clicked(weiter&)

                ifnot GetText$(Edit&) = passwort$

                    Messagebox("Falsches Passwort!!!","I N F O",4160)
                    e% = 1
                    end

                else

                    e% = 999

                endif

            endif

        endwhile

        //hier kommt das hin was bei erfolgreicher Passworteingabe passieren soll

    ElseIf Clicked(exit&)

        MessageBox("Möchten Sie das Programm wirklich Beenden?","F r a g e",4132)

        if %Button=6

            end

        EndIf

    EndIf

EndWhile

end

mfg

Julian57

Jörg
Sellmeyer

look time in the Help under Create("Edit",...) to.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Dietmar
Horn

... or gib into "Baby-Box" (Source-collection) the XProfan-Managers (F3-Button) whom Suchbegriff "Passwort" one. The 3. found Sign in the Ergebnisliste resolve your trouble - and even same with beiliegendem and lauffähigem code.

Greeting
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

it will not reading, it wants write and he's right!

Hi,
functions super
now yet The others ask!!!!!
with whom commands can whom Laufwerkbuchstaben from the Festplatte read where the Script straight hereon runs and a variable Save?
&
with whom commands can a Windowsordner open?

mfg

Julian57

Julian make Please for different Topics too different Topics on or one Topic "meine lauter Fragen" (or so...) because "Passwortabfrage with asterisk?" is already clear benannt ^^. can also one Topic "meine lauter Fragen" produce and To your border jeweilige Subtopics produce.

Look GetDir$("@") and z.B. shellExec("c:\\","open",3).

Hi,
for me gehöhren The ask To a Topic becomes too only one Script!!!!
but i'll your suggestion behertzigen
thanks for speedy response

mfg

Julian57

Hi,
Yes I know I should rather a new Thread open but would simply To costly
So I war with the the GetDir not there posting Please I wrong made have and as correctly. goes
here my code
Compile Mark Separation

let prgpfad$=@getdir$("@")
//hier startet der Ordner
shellexec("prgpfad$:/LEXAR","open",3)re>

mfg

Julian57

>> for me gehöhren The ask To a Topic becomes too only one Script!!!!

the Forum is nunmal for all there, It's all right Yes go ahead one share circa you - others too later to you coming Visitors having the same claim on a tidy Community How You it have and these Visitors should How You too Solutions slight find can - what not goes if these wrong "abgelegt" are. in example becomes Julian98 in the Thread "Passwortabfrage with Sternchen" not to seinem GetDir$-trouble search.

make you a Sammelthread or so - so How I supra described have and gladly with lauter (own) Subtopics - but in the Topic "Passwortabfrage with asterisk?" GEHTS Please circa "Passwortabfrage with Sternchen". ^^

Übrigens, Login is something like of free... you have then too More Features and can Own Posts always Edit etc...

Hi,
well well then must I me woll a Sammeltread make and the question again post
hope then answers someone my question
alas and could someone Thread close the would very nice!!!

mfg

Julian5

Dietmar
Horn

The indicated the from you verwendeten XProfan-Version would ditto favorable - this would the react on ask ungemein relieve.

Greeting
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]