XProfan

Gute Frage!

Hat oui nix avec XProfan trop 1faire - plutôt qui Frage si es une systemweiten Keyboardlock gibt - je sais es garnicht.

avec qui API-Funktion Blockinput, qui mais seulement ab W2K richtig funzt. Blockinput erwartet seulement une paramètre, nämlich 1 pour blockieren et 0 pour Blockierung aufheben.

GDL

merci Thomas,
la fois regarder, si je sous ME avec cela bien sûr viens.

salut
Georg

Windows7 Xprofan 8,9,10 [...]

GDL

Hi Thomas,
hoffe ca klappt so
Kompilieren Marque Séparation

Def @sperren(1) !"USER32","Blockinput"
@sperren(1)    Blockieren
@sperren(0)    Freigebenre>

salut
Georg

Windows7 Xprofan 8,9,10 [...]

GDL

allez pas, venez Fehlermeldung : Funktion dans dll pas vorhanden.

salut
Georg

Windows7 Xprofan 8,9,10 [...]

GDL

arrêt zurück,

allez déjà,habe Blockinput statt BlockInput geschrieben.
Kompilieren Marque Séparation

declare i$,ende%
cls
print "Taste s  = Tastatur und Maus für 10 sec sperren"
Def @sperren(1) !"USER32","BlockInput"

proc sperren

    beep
    print "Mauscursor und Tasten gehen jetzt 10 sec nicht"
    @sperren(1)    Blockieren
    sleep 10000
    @sperren(0)    Freigeben

endproc

whilenot ende%

    i$=inkey$()
    case i$="s":sperren

Wend

salut
Georg

Windows7 Xprofan 8,9,10 [...]

Strg+vieux+Entf wird pas gesperrt !

r.r.

Ragnar
Rehbein

grand - kleinschreibung ist important !

so sollte es marcher, le son MS ab W98 :
Kompilieren Marque Séparation

Def @Sperren(1) !"USER32","BlockInput"
print "block"
@Sperren(1)  Blockieren
sleep 10000
print "frei"
@Sperren(0)  Freigebe

Versuchs la fois avec:
Kompilieren Marque Séparation

shell "RunDll32.exe,KEYBOARD,DISABLE"

Ist seulement pour Win9x, habs pas getestet

GDL

allô Ragnar(?) et Thomas

hat sich Überschnitten avec den Postings.avec qui Gross/Kleinschreibung komm je presque chaque fois dans Bedrängniss, quand même merci pour qui Hinweise.
dernier Code de mir funzt einwandfrei.

salut
Georg

Windows7 Xprofan 8,9,10 [...]