XProfan

- page 1 -

eh sorry
falsches Script ici cela richtige
Kompilieren Marque Séparation

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

tiens dans qui Aider sous Créer("Edit",...) pour.

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

Dietmar
Horn

... ou bien gib dans qui "Baby-Box" (Quellcode-recueil) des XProfan-Managers (F3-bouton) den Suchbegriff "Passwort" un. qui 3. gefundene Eintrag dans qui Ergebnisliste löst Dein Problem - et sogar juste avec beiliegendem et lauffähigem Code.

Salut
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: [...]

il veut pas lesen, il veut écrivons et il hat droite!

Salut,
funktioniert super
eh bien encore qui anderen Fragen!!!!!
avec welchen Befehl peux on den Laufwerkbuchstaben de qui Festplatte auslesen wohin cela Script justement puis fonctionne et dans une variable Sauver?
&
avec welchen Befehl peux on une Windowsordner ouvrir?

mfg

Julian57

Julian fais s'il te plaît pour verschiedene Sujets aussi verschiedene Sujets sur ou bien un Thema "meine lauter Fragen" (ou bien so...) weil "Passwortabfrage avec Sternchen?" ist déjà bien sûr benannt ^ ^. peux aussi un Thema "meine lauter Fragen" erzeugen et trop Deinen Anliegen jeweilige Unterthemen erzeugen.

Schaue GETDIR$("@") et z.B. shellExec("c:\\","open",3).

Salut,
pour mich gehöhren qui Fragen trop une Thema wird aussi seulement un Script!!!!
mais je werde deinen Vorschlag behertzigen
merci pour qui schnelle Antwort

mfg

Julian57

Salut,
oui je sais je soll lieber une neuen Fil aufmachen mais wäre simple trop aufwändig
alors je krieg cela avec dem GETDIR pas hin postet s'il te plaît quoi je faux gemacht habe et comme richtig allez
ici mon Code
Kompilieren Marque Séparation

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

mfg

Julian57

>> pour mich gehöhren qui Fragen trop une Thema wird aussi seulement un Script!!!!

cela Forum ist mais nunmal pour alle là, und dir oui seulement trop einem Anteil um toi - autre aussi plus tard pour Dir kommende Besucher avons cela selbe Anrecht sur une ordentliche Community comment Du es la hâte et cet Besucher devoir comment Du aussi Lösungen léger trouver peut - quoi pas allez si cet faux "abgelegt" sommes. Beispielsweise wird Julian98 im Fil "Passwortabfrage avec Sternchen" pas pour seinem GETDIR$-Problem chercher.

fais Dir une Sammelthread ou bien so - so comment je dessus beschrieben habe et volontiers avec lauter (eigenen) Unterthemen - mais im Topic "Passwortabfrage avec Sternchen?" gehts s'il te plaît um "Passwortabfrage avec Sternchen". ^ ^

Incidemment, S'inscrire ist quelque chose comme de kostenlos... tu as ensuite aussi plus Features et peux eigene Posts toujours Travailler etc...

Salut,
eh bien ensuite muss je mir woll une Sammeltread faire et qui Frage nochmal posten
Hoffe ensuite beantwortet quelqu'un mon Frage
ah et pourrait quelqu'un den Fil schließen cela wäre très gentil!!!

mfg

Julian5

Dietmar
Horn

qui Angabe qui de Dir verwendeten XProfan-Version wäre également favorable - ca serait cela réagir sur Fragen ungemein erleichtern.

Salut
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: [...]