| |
| |
|
Julian
Schmidt | Dieser Bildschirmschoner kann nur beendet werden, wenn ein Blindpasswort eingeben wird. Bei der Passworteingabe ist Groß- und Kleinschreibung egal.
Noch effektiver ist es wenn der FastMode aktiviert wird!
KompilierenMarkierenSeparierenWindowStyle $F0
Window 0, 0 - %MaxX, %MaxY
Setwindowpos %hwnd=0, 0 - %MaxX, %MaxY;-1
Cls 0
ShowCursor 0
var blindpasswort$=Upper$("XProfan")
var passwort_edit& = Create("Edit",%HWnd,"",%MaxX,%MaxY,0,(-1)*25)
ShowWindow(passwort_edit&,0)
while 1
sleep 30
setfocus(passwort_edit&)
case Upper$(Gettext$(passwort_edit&))<>Left$(blindpasswort$,Len(Gettext$(passwort_edit&))) : Settext passwort_edit&,""
case Upper$(Gettext$(passwort_edit&))=blindpasswort$ : end
'Bildschirmschoner - Algorithmus
Color Rnd(16),Rnd(16)
print MkStr$(" ",%MaxX/8)
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...]  | 26.07.2011 ▲ | |
|
| |
|
|
 | Bisl Murx ist das aber schon. ^^
Vlt. UserMessage wm_keyUp oder ein Edit im nicht-sichtbaren Bereich und den Fokus festkleben. |
|
| |
| |
| |
|
|
Julian
Schmidt | Wie kann man denn den Fokus festkleben?  |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 26.07.2011 ▲ |
|
| |
|
|
| Wenn Du ein Sleep 30 machst einfach danach ein SetFocus -
oder eben "ordentlich" per Subclassing. |
|
| |
| |
| |
|
|
Julian
Schmidt | iF (26.07.11)
Wenn Du ein Sleep 30 machst einfach danach ein SetFocus -
Genau das habe ich doch getan, mit der Zeile:
KompilierenMarkierenSeparieren
Der Unterschied liegt darin das der Focus nur gesetzt wird, wenn noch nicht gesetzt ist.... |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 26.07.2011 ▲ |
|
| |
|
|
| Hatte ich nicht gesehen - sorry.
Tip: casenot getfocus(passwort_edit&) : setfocus(passwort_edit&) necessario ungefähr 3mal mehr CPU/ Strom/ Zeit als einfach nur setFocus(passwort_edit&). |
|
| |
| |
| |
|
|
Julian
Schmidt | Warum zieht casenot getfocus(passwort_edit&) : setfocus(passwort_edit&) "ungefähr 3mal mehr CPU/ Strom/ Zeit"?
Ich dachte eher weniger!   |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 26.07.2011 ▲ |
|
| |
|
|
| Laienhaft gezählt:
1: getfocus
2: casenot
2,5: setfocus
nur um:
1: setfocus
In dieser Situation "lohnt" das Prüfen nicht da die Prüfung lastiger ist als die letztendliche Anweisung. |
|
| |
| |
| |
|
(2.551)
Deutsch
English
Français
Español
Italia