Problem with send function

[LongSky]

Hi every one,

the button o of my keyboard doesen't work

so I'm trying to write a script for intercept another button pression and change the output with send function.

but after the first execution of pausa function, write_oo function doesen't send anythings (in my case doesen't send ">" );

I really don't know how to fix.

Any tips or solution.

Thanks and sorry for my english.

 

 

here the script

#include-once <Misc.au3>

HotKeySet("{ESC}","stop")
HotKeySet("{<}","write_o")
HotKeySet("+{<}","write_oo")
HotKeySet("+{SPACE}","pausa")

Global $p = 1

while(1)
   sleep(1000)
WEnd

Func stop()
   Exit 0
EndFunc

Func write_o()
   If($p=1) then
      Send("o")
   Else
      Send("{ASC 060}")
   EndIf
EndFunc

Func write_oo()
   If($p=1) then
      Send("O")
   Else
      Send("{ASC 062}")
   EndIf
EndFunc

Func pausa()
   $p=1-$p
EndFunc

 

[Subz]

Try the following as {<} = Shift + comma

HotKeySet("{,}","write_o")

Or use Control + <:

HotKeySet("^{<}","write_o")