XProfan

English

pressure-Button intercepting with Hook:
Compile Mark Separation

 {$cleq}
cls
userMessages wm_user+1234
initMyHook()

do{

    waitInput

    select uMessage

        caseof wm_user+1234

        if (&ulParam==1) and (&uwParam==44)

            print "Drucktaste"

        endif

    endSelect

}

nProc initMyHook{

    return SetWindowsHookEx(13,procAddr(myLowLevelKeyboardHookProc),getModuleHandle(0),0)/*WH_KEYBOARD_LL*/

}

nProc myLowLevelKeyboardHookProc(long code,wp,lp){

    sendMessage(hWnd,wm_user+1234,long(lp,0),long(lp,8))
    CallNextHookEx(0, Code, wp, lp)}

or without Hook:
Compile Mark Separation

cls
registerHotKey(hWnd,222,0,44)
userMessages wm_hotkey

do {

    waitinput

    if uMessage==wm_hotkey {

        print "Tastaturcode:",hiword(ulParam)

    }

}

or without Hook and without XPSE ( [...]

) :
Compile Mark Separation

cls
external("user32.dll","RegisterHotKey",%hWnd,222,0,44)
usermessages 786'wm_hotkey

while 1

    waitinput

    if %uMessage=786

        print "Tastaturcode:",&ulParam \ $10000

    endif

wend

abfangen-drucktaste-hook-keyboard-keyboardhook-lowlevel-setwindowshookex-quelltext-3-77720.exe	148 kB

Hochgeladen:	07/22/11

Downloadcounter:
		Download

07/22/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Gerhard
Putschalka

Hi
thanks, but unfortunately is not the I my.
gives it an example as HTML-code?
I use for this trouble no Profan or. one other Program.
might it with JavaScript lösbar his?

Xprofan 11.2, Windows7 Home Premium, AcerAspire 7540G

09/08/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

salvo!

makes we here [...]

moreover.

XProfan X2
WinXP, SP3 v.3244, P4 3.06GHz

09/08/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Georg
Teles

Hmm me falls there a Problematik on or must the so his ?

once a Tastenkombination registered watts, functions tappt im dunkeln not others Programs --- example: one registriere A (dez. 65) as Hotkey and starte the Testskript (the without XPSE & without HOOK) now open one Notepad & try A To write, Notepad receiving the typed A not at all

Hello

XProfan X3
TC-Programming [...]