XProfan

Gute Cuestión!

Sombrero sí nix con XProfan a tun - más el Cuestión si una systemweiten Keyboardlock son - Yo weiß lo garnicht.

Mit el API-Función Blockinput, el aber sólo de W2K correcto funzt. Blockinput esperado sólo una Parámetro, nämlich 1 para blockieren y 0 para Blockierung aufheben.

GDL

Gracias Thomas,
veces schauen, si Yo bajo ME así klar komme.

Servus
Georg

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

GDL

Hi Thomas,
hoffe dies klappt así
Kompilieren Marca Separación

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

servus
Georg

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

GDL

Geht no, kommt Fehlermeldung : Función en dll no disponible.

Servus
Georg

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

GDL

Halt zurück,

va ya,habe Blockinput en lugar de BlockInput geschrieben.
Kompilieren Marca Separación

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

Servus
Georg

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

Strg+Alt+Entf no es gesperrt !

r.r.

Ragnar
Rehbein

groß - kleinschreibung es wichtig !

así debería lo trabajo, laut MS de W98 :
Kompilieren Marca Separación

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

Versuchs veces con:
Kompilieren Marca Separación

shell "RunDll32.exe,KEYBOARD,DISABLE"

Ist sólo para Win9x, habs no getestet

GDL

¡Hola Ragnar(?) y Thomas

ha se Überschnitten con el Postings.Mit el Gross/Kleinschreibung komm Yo fast jedesmal en Bedrängniss, trotzdem Gracias para el Hinweise.
Letzter Code de me funzt einwandfrei.

Servus
Georg

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