XProfan

Español

Wenn el NumLock-Taste gedrückt , also el Ziffernblock aktiv es hätte Yo gern una Meldung. ¿Cómo se puede al al Einfachsten anstellen ? - Gracias en el Voraus

07.05.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Hi Horst
Kompilieren Marca Separación

Def GetKeyboardState(1) ! "USER32.DLL","GetKeyboardState"
declare state#

PROC NUMSTATE

    getmessage
    declare retstate&
    dim state#,256
    GetKeyboardstate(state#)

    if byte(state#,144) = 1

        retstate&=1

    else

        retstate&=0

    endif

    dispose state#
    return retstate&

ENDPROC

cls

while 1

    waitinput
    Numstate
    print &(0)

wend

07.05.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

¡Hola Rolf

Gracias !

07.05.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Sicha immmaaa doch

07.05.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Nun se aber más genervt !

¿Cómo se puede Yo encima Programmtext uno Taste una Befehl unterjubeln ? - In diesem speziellen Fall se el NumLock-Taste por el Programa - aktiviert - gedrückt voluntad. Ist el überhaupt posible y si, denke Yo, va el sólo una Message - aber welche ????

Gracias para cada Denkanstoss

09.05.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

-- Problema erkannt - Problema gebannt

- tener lo incluso rausgefunden (uno muss sólo a el richtigen Punto en el Profanhilfe suchen)

Für todos el lo auch interessiert hier el Kurzcode:

$H Windows.ph
CLS
~keybd_event(144, 0, 0, 0) Numlock
~keybd_event(144, 0, ~KEYEVENTF_KEYUP, 0)
NumLock se aktiviert - leuchtet
WAITINPUT
~keybd_event(144, 0, 0, 1) Numlock
~keybd_event(144, 0, ~KEYEVENTF_KEYUP, 1)
Numlock se otra vez deaktiviert
WAITINPUT
FIN