XProfan

Deutsch

Wenn die NumLock-Taste gedrückt , also der Ziffernblock aktiv ist hätte ich gern eine Meldung. Wie kann man das am Einfachsten anstellen ? - Danke im Voraus

07.05.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Rolf
Koch

Hi Horst
Kompilieren Markieren Separieren

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 zitieren Zeilenweise zitieren

Hallo Rolf

Danke !

07.05.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Rolf
Koch

Sicha immmaaa doch

07.05.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Nun wird aber weiter genervt !

Wie kann ich über Programmtext einer Taste einen Befehl unterjubeln ? - In diesem speziellen Fall soll die NumLock-Taste durch das Programm - aktiviert - gedrückt werden. Ist das überhaupt möglich und wenn, denke ich, geht das nur über eine Message - aber welche ????

Danke für jeden Denkanstoss

09.05.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

-- Problem erkannt - Problem gebannt

- hab es selbst rausgefunden (man muss nur an der richtigen Stelle in der Profanhilfe suchen)

Für alle die es auch interessiert hier der Kurzcode:

$H Windows.ph
CLS
~keybd_event(144, 0, 0, 0) Numlock
~keybd_event(144, 0, ~KEYEVENTF_KEYUP, 0)
NumLock wird aktiviert - leuchtet
WAITINPUT
~keybd_event(144, 0, 0, 1) Numlock
~keybd_event(144, 0, ~KEYEVENTF_KEYUP, 1)
Numlock wird wieder deaktiviert
WAITINPUT
END