OpenEuphoria

Re: Win32lib questions

• Posted by Judith Evans <camping at cc??b.net> Sep 28, 2007
• 680 views

CChris wrote:
> 
> 
> Sorry but I won't have time to code something very clever before this weekend.
> Put the following in a file, say logger.ew:
> }}}
<eucode>
> include win32lib.ew
> 
> constant logfile=open("keylog.out","w")
> 
> procedure log_kbd(integer id,integer event,sequence data)
> sequence which
> if event=w32HKeyDown then which="down" 
> elsif event=w32HKeyUp then which="up"
> else which="keyboard"
> end if
> puts(logfile,sprintf("%d got key event %s: \n\tEvent data: %s\n\tMessage data:
> %s\n",
>   {getSelf(),which,sprint(data),sprint(GetLastMsg())}))

I changed the above line to:
  {getSelf(),which,sprint(data),sprint(getLastMsg(""))}))

> end procedure
> setHandler(Screen,{w32HKeyDown,w32HKeyUp,w32HKeyboard},routine_id("log_kbd"))
> </eucode>
{{{

> 
> and add at the end of IDE.exw:
> }}}
<eucode>
> include logger.ew
> </eucode>
{{{

> 
> When you encounter the problem, try keying a very unusual keyboard sequence
> (like shift-alt-F5 or something). This will be an useful marker. Then close
> IDE, zip keylog.out which should be alongside IDE.exw and email it to me at
> oedoc hat free doubt fr .
> 
> Hopefully this will catch enough info for me to figure out whats going on.
> Anyone else with the problem can try it as well and send output to me too.
> 
> CChris