| |
| |
|
Roberto | Die Passwortabfrage
So ich habe bei einem Programm von mir eine Passwortabfrage gemacht.
Es klappt auch alles.
Wenn man das Password eingegeben hat kommt das Programm.
Bei dem Funktioniert auch alles.
Ausser das sich das Passworfenster da irgendwie in die Grafik reindrückt
Wäre schön wenn ihr euch das ma angucken Könntet
Password ist robin
KompilierenMarkierenSeparierendeclare e%,x%,y%,Edit&,weiter&,exit&,passwort$
x% = 260
y% = 120
passwort$ = robin
WindowTitle Passwort-Abfrage
Window (%MaxX- x%) / 2,(%MaxY - y%) / 2 - x%,y%
Edit& = Create(Edit,%HWnd,,5,5,245,(-1) * 20)
weiter& = Create(Button,%HWnd,Weiter,5,Height(%HWnd) - 30,120,25)
exit& = Create(Button,%HWnd,Abbrechen,Width(%HWnd) - 115,Height(%HWnd)- 30,110,25)
SetFocus(Edit&)
clear e%
whilenot e%
WaitInput
if Clicked(exit&)
end
elseif Clicked(weiter&)
ifnot GetText$(Edit&) = passwort$
Messagebox(Falsches Passwort!
Kein Zugang!,I N F O,4160)
e% = 1
end
else
e% = 999
Messagebox(PASSWORT STIMMT,I N F O,4160)
endif
endif
endwhile
Window 10,10-200,350
WindowTitle RH PROG Version 1.0
Declare herunter&, abmeld&eingefügt
declare uhrzeit& eingefügt KHR
declare Text$,Titeltext$
Cls
Print MEIN PROGRAMMverändert
Print verändert
LoadBMP RobinHonacker.BMP,0,0;0
herunter& = Create(Button,%hwnd,Herunterfahren,10,90,170,50)verändert
abmeld& = Create(Button,%hwnd,Abmelden,10,160,170,50)verändert
uhrzeit& = Create(Button,%hwnd,Uhrzeit,10,230,170,50)verändert
abfrage der Buttons
While 1
WaitInput
If Clicked(herunter&)
ExitWindows 0
ElseIf Clicked(abmeld&)
ExitWindows 3
elseIf Clicked (uhrzeit&) geändert KHR
Text$ = Wir haben jetzt + Time$(2) + Uhr.
Titeltext$ = I N F O
Messagebox(Text$,Titeltext$,4160)
EndIf
EndWhile
end
|
|
| |
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 17.02.2009 ▲ |
|
| |
|
|
Rolf
Koch | Hier - aber nicht nur kopieren - Nein auch kapieren!!! 
KompilierenMarkierenSeparierendeclare e%,x%,y%,Edit&,weiter&,exit&,passwort$,passwindow&
x% = 280
y% = 100
passwort$ = robin
passwindow&=Create(Window,%hwnd,Passwortabfrage,(%MaxX- x%) / 2,(%MaxY - y%) / 2, x%,y%)
Hier kein Hauptfenster erstellen.
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!
Kein Zugang!,I N F O,4160)
e% = 1
end
else
e% = 999
Messagebox(PASSWORT STIMMT,I N F O,4160)
endif
endif
endwhile
destroywindow(passwindow&)
Window 10,10-200,350
WindowTitle RH PROG Version 1.0
Declare herunter&, abmeld&eingefügt
declare uhrzeit& eingefügt KHR
declare Text$,Titeltext$
Cls
Print MEIN PROGRAMMverändert
Print verändert
LoadBMP RobinHonacker.BMP,0,0;0
herunter& = Create(Button,%hwnd,Herunterfahren,10,90,170,50)verändert
abmeld& = Create(Button,%hwnd,Abmelden,10,160,170,50)verändert
uhrzeit& = Create(Button,%hwnd,Uhrzeit,10,230,170,50)verändert
abfrage der Buttons
While 1
WaitInput
If Clicked(herunter&)
ExitWindows 0
ElseIf Clicked(abmeld&)
ExitWindows 3
elseIf Clicked (uhrzeit&) geändert KHR
Text$ = Wir haben jetzt + Time$(2) + Uhr.
Titeltext$ = I N F O
Messagebox(Text$,Titeltext$,4160)
EndIf
EndWa>
end
|
|
| |
| |
| |
|
|
 | Rolf, Du bist tapfer - respekt!  |
|
| |
| |
| |
|
|
Rolf
Koch | Warum auch nicht - iF
Jedem ist bekannt, daß ich eh und je ein Herz per Einsteiger hatte. Weil ich es damals so schwer hatte und auf mich alleine gestellt war.
@Robin
Auch wenn manchmal etwas von mir etwas härter rüberkommt, es ist nett gemeint.
Man nennt mich den Schleifer der Profanrekruten *lol*
Nur mit Härte ans Ziel ^^ |
|
| |
| |
| |
|
|
Roberto | | Ja Rolf hats drauf vielen Dank |
|
| |
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 17.02.2009 ▲ |
|
| |
|
(449)
Deutsch
English
Français
Español
Italia