XProfan

Français

si qui NumLock-bouton gedrückt , alors qui Ziffernblock aktiv ist hätte je gern une annonce. comment peux on cela am Einfachsten anstellen ? - merci im Voraus

07.05.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

Hi Horst
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

allô Rolf

merci !

07.05.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

Sicha immmaaa doch

07.05.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

eh bien wird mais plus genervt !

comment peux je sur Programmtext einer bouton une Befehl unterjubeln ? - dans diesem speziellen le cas soll qui NumLock-bouton par cela Programme - aktiviert - gedrückt volonté. Ist cela überhaupt possible et si, denke je, allez cela seulement sur une Message - mais quelle ????

merci pour jeden Denkanstoss

09.05.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

-- Problem erkannt - Problem gebannt

- hab es selbst rausgefunden (on muss seulement à qui richtigen Stelle dans qui Profanhilfe chercher)

Pour alle qui es aussi intéressé ici qui 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
FIN