XProfan

Oh sorry
falsches Script hier el richtige
Kompilieren Marca Separación

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

Mirar en el Ayuda bajo Crear("Edit",...) después de.

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

Dietmar
Horn

... oder gib en el "Baby-Box" (Quellcode-Sammlung) des XProfan-Managers (F3-Taste) el Suchbegriff "Passwort" una. Der 3. gefundene Eintrag en el Ergebnisliste löst Su Problema - y incluso igual con beiliegendem y lauffähigem Code.

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

Er voluntad no lesen, él voluntad escribir y él ha Recht!

¡Hola,
funktioniert super
Nun todavía el otro Fragen!!!!!
Mit welchen Befehl puede ser el Laufwerkbuchstaben de el Festplatte auslesen wo el Script gerade darauf se ejecuta y una variable speichern?
&
Mit welchen Befehl puede ser una Windowsordner abierto?

mfg

Julian57

Julian mache Por favor, para verschiedene Temas auch verschiedene Temas en oder una Thema "meine lauter Fragen" (más o menos...) porque "Passwortabfrage con Sternchen?" es ya klar benannt ^ ^. ¿Puede auch una Thema "meine lauter Fragen" erzeugen y a Su Anliegen jeweilige Unterthemen erzeugen.

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

¡Hola,
para mich gehöhren el Fragen a una Thema se auch sólo una Script!!!!
Aber Yo voluntad deinen Vorschlag behertzigen
danke para la respuesta rápida

mfg

Julian57

¡Hola,
sí Yo weiß Yo se más bien una neuen Hilo aufmachen aber wäre simplemente a aufwändig
Also Yo krieg el con el GetDir no hin postet Por favor, Yo falso gemacht habe y cómo lo correcto va
Hier mein Code
Kompilieren Marca Separación

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

mfg

Julian57

>> para mich gehöhren el Fragen a una Thema se auch sólo una Script!!!!

Das Foro es aber nunmal para todos como, lo va sí sólo a una Anteil en Usted - otro auch spätere después de Usted kommende Besucher haben el selbe Anrecht en una ordentliche Comunidad como Usted lo hast y esta Besucher debería como Usted auch Lösungen ligeramente encontrar puede - qué no va si esta falso "abgelegt" son. Por ejemplo se Julian98 en el Hilo "Passwortabfrage con Sternchen" no después de seinem GetDir$-Problema suchen.

Mache Usted una Sammelthread más o menos - como Yo oben beschrieben habe y gerne con lauter (eigenen) Unterthemen - aber en el Topic "Passwortabfrage con Sternchen?" gehts Por favor, en "Passwortabfrage con Sternchen". ^ ^

Übrigens, Registro es algo como de libre... Usted hast entonces auch mehr Features y kannst propio Beiträge siempre bearbeiten etc...

¡Hola,
Na bien entonces muss Yo woll una Sammeltread hacer y el Cuestión otra vez puesto
Hoffe entonces beantwortet alguien mi Cuestión
Ach y podría alguien el hilo schließen el wäre muy nett!!!

mfg

Julian5

Dietmar
Horn

El Angabe el de Usted verwendeten XProfan-Versión wäre ebenfalls günstig - dies sería el Reagieren en Fragen ungemein erleichtern.

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