XProfan

good question!

has Yes nothing with XProfan to do - sooner The question whether it a systemweiten Keyboardlock gives - I know it not at all.

with the API-function Blockinput, The but first ex W2k correctly. working. Blockinput expects only a Parameter, namely 1 for blockieren and 0 for blockage pick up.

GDL

thanks Thomas,
time look, whether I under ME so clear come.

Hello
Georg

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

GDL

Hi Thomas,
hope this works so
Compile Mark Separation

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

servus
Georg

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

GDL

No way, comes Error Message : function in dll No.

Hello
Georg

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

GDL

hold back,

goes already,have Blockinput instead of BlockInput written.
Compile Mark Separation

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

Hello
Georg

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

Strg+old+Entf won't blocked !

r.r.

Ragnar
Rehbein

big - kleinschreibung is important !

so ought to it functions, loudly MS ex W98 :
Compile Mark Separation

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

Versuchs time with:
Compile Mark Separation

shell "RunDll32.exe,KEYBOARD,DISABLE"

is only for Win9x, habs not tested

GDL

Hello Ragnar(?) and Thomas

has Überschnitten with the Postings.with the tall/Kleinschreibung komm I almost jedesmal in Bedrängniss, nevertheless thanks for Notes.
last Code me working correct.

Hello
Georg

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