XProfan

- Page 1 -

Oh sorry
falsches Script hier das richtige
Kompilieren Markieren Separieren

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

Sieh mal in der Aiuto unter Create("Edit",...) nach.

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

Dietmar
Horn

... oder gib in die "Baby-Box" (Quellcode-Sammlung) des XProfan-Managers (F3-Taste) den Suchbegriff "Passwort" ein. Der 3. gefundene Eintrag in der Ergebnisliste löst Dein Problem - und sogar gleich mit beiliegendem und lauffähigem Code.

Saluto
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 will nicht lesen, er will schreiben und er hat Recht!

Ciao,
funktioniert super
Nun noch die anderen Fragen!!!!!
Mit welchen Befehl kann man den Laufwerkbuchstaben von der Festplatte auslesen wo das Script gerade darauf corre und in una variabile speichern?
&
Mit welchen Befehl kann man einen Windowsordner öffnen?

mfg

Julian57

Julian mache bitte per verschiedene Argomenti auch verschiedene Argomenti auf oder ein Thema "meine lauter Fragen" (oder so...) weil "Passwortabfrage mit Sternchen?" ist schon klar benannt ^^. Kannst auch ein Thema "meine lauter Fragen" erzeugen und zu Deinen Anliegen jeweilige Unterthemen erzeugen.

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

Ciao,
per mich gehöhren die Fragen zu einen Thema wird auch nur ein Script!!!!
Aber ich werde deinen Vorschlag behertzigen
danke per die schnelle Antwort

mfg

Julian57

Ciao,
ja ich weiß ich soll lieber einen neuen Thread aufmachen aber wäre einfach zu aufwändig
Also ich krieg das mit dem GetDir nicht hin postet bitte was ich falsch gemacht habe und wie es richtig geht
Hier mein Code
Kompilieren Markieren Separieren

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

mfg

Julian57

>> per mich gehöhren die Fragen zu einen Thema wird auch nur ein Script!!!!

Das Foro ist aber nunmal per alle da, es geht ja nur zu einem Anteil um Dich - andere auch spätere nach Dir kommende Besucher haben das selbe Anrecht auf eine ordentliche Community wie Du es hast und diese Besucher sollen wie Du auch Lösungen leicht finden können - was nicht geht wenn diese falsch "abgelegt" sind. Beispielsweise wird Julian98 im Thread "Passwortabfrage mit Sternchen" nicht nach seinem GetDir$-Problem suchen.

Mache Dir einen Sammelthread oder so - so wie ich oben beschrieben habe und auch gerne mit lauter (eigenen) Unterthemen - aber im Topic "Passwortabfrage mit Sternchen?" gehts bitte um "Passwortabfrage mit Sternchen". ^^

Übrigens, Registro ist sowas von kostenlos... Du hast dann auch mehr Features und kannst eigene Beiträge immer bearbeiten etc...

Ciao,
Na gut dann muss ich mir woll einen Sammeltread machen und die Frage nochmal posten
Hoffe dann beantwortet jemand meine Frage
Ach und potuto jemand den Thread schließen das wäre sehr nett!!!

mfg

Julian5

Dietmar
Horn

Die Angabe der von Dir verwendeten XProfan-Version wäre ebenfalls günstig - dies würde das Reagieren auf Fragen ungemein erleichtern.

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