XProfan

Gute Frage!

Hat ja nix mit XProfan zu tun - eher die Frage ob es einen systemweiten Keyboardlock gibt - ich weiß es garnicht.

Mit der API-Funktion Blockinput, die aber erst ab W2K richtig funzt. Blockinput erwartet nur einen Parameter, nämlich 1 für blockieren und 0 für Blockierung aufheben.

GDL

Danke Thomas,
mal schauen, ob ich unter ME damit klar komme.

Servus
Georg

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

GDL

Hi Thomas,
hoffe dies klappt so
Kompilieren Markieren Separieren

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

servus
Georg

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

GDL

Geht nicht, kommt Fehlermeldung : Funktion in dll nicht vorhanden.

Servus
Georg

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

GDL

Halt zurück,

geht schon,habe Blockinput statt BlockInput geschrieben.
Kompilieren Markieren Separieren

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 [...]

Ragnar
Rehbein

groß - kleinschreibung ist wichtig !

so sollte es funktionieren, laut MS ab W98 :
Kompilieren Markieren Separieren

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

Strg+Alt+Entf wird nicht gesperrt !

r.r.

Versuchs mal mit:
Kompilieren Markieren Separieren

shell "RunDll32.exe,KEYBOARD,DISABLE"

Ist nur für Win9x, habs nicht getestet

GDL

Hallo Ragnar(?) und Thomas

hat sich Überschnitten mit den Postings.Mit der Gross/Kleinschreibung komm ich fast jedesmal in Bedrängniss, trotzdem Danke für die Hinweise.
Letzter Code von mir funzt einwandfrei.

Servus
Georg

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