| |
|
|
Julian Schmidt | cette Bildschirmschoner peux seulement finissez volonté, si un Blindpasswort eingeben wird. chez qui Passworteingabe ist large- et Kleinschreibung égal. encore effektiver ist es si qui FastMode aktiviert wird! KompilierenMarqueSéparationWindowStyle $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 cela mais déjà. ^ ^
Vlt. UserMessage wm_keyUp ou bien un Éditer im pas-sichtbaren Bereich et den Fokus festkleben. |
|
|
| |
|
|
|
Julian Schmidt | comment peux on car den Fokus festkleben? |
|
|
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 26.07.2011 ▲ |
|
|
|
|
| si Du un Sleep 30 fais simple après un SetFocus -
ou bien plan "ordentlich" per Subclassing. |
|
|
| |
|
|
|
Julian Schmidt | iF (26.07.11)
si Du un Sleep 30 fais simple après un SetFocus -
oui c'est ca cela habe je doch getan, avec qui la ligne: KompilierenMarqueSéparation qui Unterschied liegt y cela qui Concentrer seulement gesetzt wird, si encore pas gesetzt ist.... |
|
|
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 26.07.2011 ▲ |
|
|
|
|
| Hatte je pas gesehen - sorry.
Tip: casenot getfocus(passwort_edit&) : setfocus(passwort_edit&) nécessaire ungefähr 3la fois plus CPU/ Strom/ Zeit comme simple seulement setFocus(passwort_edit&). |
|
|
| |
|
|
|
Julian Schmidt | pourquoi zieht casenot getfocus(passwort_edit&) : setfocus(passwort_edit&) "ungefähr 3la fois plus CPU/ Strom/ Zeit"? J'ai pensé plutôt moins! |
|
|
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 26.07.2011 ▲ |
|
|
|
|
| Laienhaft gezählt:
1: getfocus 2: casenot 2,5: setfocus
seulement um:
1: setfocus
dans cette Situation "lohnt" cela vérifier pas là qui Prüfung lastiger ist comme qui letztendliche Anweisung. |
|
|
| |
|
|