| |
| |
|
Roberto | qui Passwortabfrage
So j'ai chez einem Programme de mir une Passwortabfrage gemacht.
Es klappt aussi alles.
si on cela Mot de passe eingegeben hat venez cela Programme.
chez dem Funktioniert aussi alles.
Ausser cela sich cela Passworfenster là irgendwie dans qui Grafik reindrückt
Wäre joli si son euch cela ma angucken Könntet
Mot de passe ist robin
KompilierenMarqueSéparationdeclare 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 | ici - mais pas seulement kopieren - non aussi kapieren!!! 
KompilierenMarqueSéparationdeclare 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, tu es brave - respekt!  |
|
| |
| |
| |
|
|
Rolf
Koch | pourquoi aussi pas - iF
Jedem ist bekannt, qui je eh et je un Herz pour Einsteiger hatte. Weil je es autrefois so schwer hatte et sur mich alleine gestellt était.
@Robin
aussi si quelquefois quelque chose de mir quelque chose härter rüberkommt, c'est gentil gemeint.
on nennt mich den Schleifer qui Profanrekruten *lol*
seulement avec Härte à l' but ^ ^ |
|
| |
| |
| |
|
|
Roberto | | oui Rolf hats sur elle vielen Dank |
|
| |
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 17.02.2009 ▲ |
|
| |
|
(1.103)
Deutsch
English
Français
Español
Italia