| |
| |
|
Roberto | The Passwortabfrage
so I have with one Program of me Passwortabfrage made.
it works too everything.
If to the Password association has comes the program.
with the functions too everything.
except the itself the Passworfenster there somehow into graphic reindrückt
would be beautiful if your you the ma angucken could
Password is robin
CompileMarkSeparationdeclare 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.^^ | 02/17/09 ▲ |
|
| |
|
|
Rolf
Koch | here - but not only copy - No too kapieren!!! 
CompileMarkSeparationdeclare 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, you are valiant - respect!  |
|
| |
| |
| |
|
|
Rolf
Koch | Why neither - iF
each is famous, that I eh and apiece one marrow for Beginner having. because I it then so heavy having and on me on my own set was.
@Robin
even if sometimes something of me something harder rüberkommt, its nice meant.
one name me whom Schleifer the Profanrekruten *lol*
only with severity ans target ^^ |
|
| |
| |
| |
|
|
Roberto | | Yes Rolf hats on it many Thanks |
|
| |
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 02/17/09 ▲ |
|
| |
|
(5.678)
Deutsch
English
Français
Español
Italia