vba - Using SetWindowsHookEx. in Excel 2010 -


this function getting me crazy! trying use setwindwoshookex avoid keystrokes user, can't make work properly.

i have been looking around many code on web don't understand why not working me. firstly, because using excel 2010 (64 bit) , code wasn't it, don't know.

basically, have created simple code shows me message when pull "g" happening excel crashes when pull key. doesn't crash when run code step step if pull "g" message appears 3 times!

this code:

#if win64  public declare ptrsafe function unhookwindowshookex lib "user32" (byval hhook longptr) longptr public declare ptrsafe function setwindowshookex lib "user32" alias "setwindowshookexa" (byval idhook longptr, byval lpfn longptr, byval hmod longptr, byval dwthreadid longptr) longprt public declare ptrsafe function callnexthookex lib "user32" (byval hhook longptr, byval ncode longptr, byval wparam longptr, lparam any) longptr public declare ptrsafe function getmodulehandle lib "kernel32" alias "getmodulehandlea" (byval lpmodulename string) longptr public declare ptrsafe function getcurrentthreadid lib "kernel32" () longptr public declare ptrsafe function getkeystate lib "user32" (byval nvirtkey longptr) integer private hwndppt longptr private hookhandle longptr  'adicional private declare function senddlgitemmessage lib "user32" alias "senddlgitemmessagea" (byval hdlg longprt, byval niddlgitem longptr, byval wmsg longptr, byval wparam longptr, byval lparam longptr) longptr private declare function getclassname lib "user32" alias "getclassnamea" (byval hwnd longptr, byval lpclassname string, byval nmaxcount longptr) longptr    #else public declare function unhookwindowshookex lib "user32" (byval hhook long) long public declare function setwindowshookex lib "user32" alias "setwindowshookexa" (byval idhook long, byval lpfn long, byval hmod long, byval dwthreadid long) long public declare function callnexthookex lib "user32" (byval hhook long, byval ncode long, byval wparam long, lparam any) long public declare function getmodulehandle lib "kernel32" alias "getmodulehandlea" (byval lpmodulename string) long public declare function getcurrentthreadid lib "kernel32" () long public declare function getkeystate lib "user32" (byval nvirtkey long) integer private hwndppt long private hookhandle long  'adicional private declare function senddlgitemmessage lib "user32" alias "senddlgitemmessagea" (byval hdlg long, byval niddlgitem long, byval wmsg long, byval wparam long, byval lparam long) long private declare function getclassname lib "user32" alias "getclassnamea" (byval hwnd long, byval lpclassname string, byval nmaxcount long) long  #end if    'constants used in our api functions 'private const em_setpasswordchar = &hcc 'private const wh_cbt = 5 private const wh_keyboard = 2 'private const hcbt_activate = 5 private const hc_action = 0  'private hhook long   public sub removehook()     unhookwindowshookex (hookhandle) end sub  sub sethook() #if win64 dim lthreadid longptr dim lngmodhwnd longptr #else dim lthreadid long dim lngmodhwnd long #end if  lthreadid = getcurrentthreadid lngmodhwnd = getmodulehandle(vbnullstring)  'set local hook hookhandle = setwindowshookex(wh_keyboard, addressof newproc, 0, lthreadid) end sub  public function newproc(byval lngcode longptr, byval wparam longptr, byval lparam longptr) longptr      if lngcode < hc_action       newproc = callnexthookex(hookhandle, lngcode, wparam, lparam)       exit function     end if      if wparam = 71         'msgbox "g"         'newproc = 1         wparam = 70         'exit function     end if      'this line ensure other hooks may in place     'called correctly.     callnexthookex hookhandle, lngcode, wparam, lparam  end function

the correct declarations 64bit be:

public declare ptrsafe function unhookwindowshookex lib "user32" (byval hhook longptr) long public declare ptrsafe function setwindowshookex lib "user32" alias "setwindowshookexa" (byval idhook long, byval lpfn longptr, byval hmod longptr, byval dwthreadid long) longptr public declare ptrsafe function callnexthookex lib "user32" (byval hhook longptr, byval ncode long, byval wparam longptr, lparam any) longptr public declare ptrsafe function getmodulehandle lib "kernel32" alias "getmodulehandlea" (byval lpmodulename string) longptr public declare ptrsafe function getcurrentthreadid lib "kernel32" () long public declare ptrsafe function getkeystate lib "user32" (byval nvirtkey long) integer private declare function senddlgitemmessage lib "user32" alias "senddlgitemmessagea" (byval hdlg longptr, byval niddlgitem long, byval wmsg long, byval wparam longptr, byval lparam longptr) longptr private declare function getclassname lib "user32" alias "getclassnamea" (byval hwnd longptr, byval lpclassname string, byval nmaxcount long) long

i can't see how code posted run @ on 64bit.


Comments

Post a Comment

Popular posts from this blog

python - Selenium remoteWebDriver (& SauceLabs) Firefox moseMoveTo action exception -

while performing simple hover test on firefox through selenium (3.4.0) python bindings (3.4.3) using of available os in saucelabs (except linux, latest available firefox version old), performing following actionchain: hover = actionchains(driver) hover.move_to_element(elm_men_menu).perform() it throws following error: taceback: file [...] in testhover hover.perform() file "/usr/local/lib/python2.7/dist-packages/selenium/webdriver/common/action_chains.py", line 80, in perform action() file "/usr/local/lib/python2.7/dist-packages/selenium/webdriver/common/action_chains.py", line 290, in <lambda> command.move_to, {'element': to_element.id})) file "/usr/local/lib/python2.7/dist-packages/selenium/webdriver/remote/webdriver.py", line 256, in execute self.error_handler.check_response(response) file "/usr/local/lib/python2.7/...
Read more

html - How to custom Bootstrap grid height? -

why bootstrap grid has height 591.067 ? did height came ? .main-post { padding: 20px; background-color: #fff; border: 1px solid #d8d8d8; margin-bottom: 100px; } .main-post .post-categories { margin-bottom: 10px } .main-post h3 { margin: 0 0 10px; color: #777; letter-spacing: -1px; font-weight: bold } .main-post .post-author, .main-post .post-date, .main-post .post-comments { font-size: 12px } .main-post img { display: block; margin: 10px 0; } .main-post .post-summary { line-height: 1.7; color: #888 } .main-post { color: #999 } <div class="col-sm-6"> <div class="main-post"> <h3 class="post-title"> <a href="#"> post title </a> </...
Read more

transpose - Maple isnt executing function but prints function term -

im using maple im in worksheetmode tried using maple input , 2d input , want transpose matrix a: := `<|>`(`<,>`(1, .5, -2), `<,>`(.5, 9/4+b, 5+3*b), `<,>`(-2, 5+3*b, 18+9*b+4*a)); b:= transpose(a); when exectute sheet dont translated values, there same input. matrix looks same input matrix plus function term. you can see picture in following link: why arent functions executed? meanwhile b:=a^+ doing right way , transposed matrix. other functions return function body instead needed values... if using 2d input mode (the default) space you've got between transpose , bracketed (b) interpreted multiplcation. rid of such space. also, either load package @ start of document like, with(linearalgebra): before calling transpose command package, or call it's full name like, linearalgebra:-transpose(b);
Read more