XProfan

English

If the NumLock-Button pressed , means the Ziffernblock active is had I gladly a Message. How can the on the Einfachsten employ ? - thanks in the ahead

05/07/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Rolf
Koch

Hi Horst
Compile Mark Separation

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

05/07/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hello Rolf

thanks !

05/07/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Rolf
Koch

Sicha immmaaa still

05/07/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

now becomes but moreover genervt !

How can I over Programmtext of/ one Button a commands unterjubeln ? - in this special drop should The NumLock-Button by the Program - activate - pressed go. is the at all possible and if, think I, does it only over a Message - but which ????

thanks for each Denkanstoss

05/09/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

-- trouble recognized - trouble gebannt

- Have it self rausgefunden (one must only on the right place in the Profanhilfe search)

for any The it too interested here the Kurzcode:

$H windows.ph
CLS
~keybd_event(144, 0, 0, 0) Numlock
~keybd_event(144, 0, ~KEYEVENTF_KEYUP, 0)
NumLock becomes activate - light
WAITINPUT
~keybd_event(144, 0, 0, 1) Numlock
~keybd_event(144, 0, ~KEYEVENTF_KEYUP, 1)
Numlock becomes again deaktiviert
WAITINPUT
END