XProfan

- Seite 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 Hilfe 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.

Gruß
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!

Hallo,
funktioniert super
Nun noch die anderen Fragen!!!!!
Mit welchen Befehl kann man den Laufwerkbuchstaben von der Festplatte auslesen wo das Script gerade darauf läuft und in eine Variable speichern?
&
Mit welchen Befehl kann man einen Windowsordner öffnen?

mfg

Julian57

Julian mache bitte für verschiedene Themen auch verschiedene Themen 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).

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

mfg

Julian57

Hallo,
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)

mfg

Julian57

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

Das Forum ist aber nunmal für 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, Anmelden ist sowas von kostenlos... Du hast dann auch mehr Features und kannst eigene Beiträge immer bearbeiten etc...

Hallo,
Na gut dann muss ich mir woll einen Sammeltread machen und die Frage nochmal posten
Hoffe dann beantwortet jemand meine Frage
Ach und könnte 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.

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