Prohibir Enter

creo que el Enter no lo puedes prohibir, a menos que como te han indicado
reasignes la tecla para otro codigo Ascii tarea nada sencilla ni aun desde
C++

de todos modos lo que si puedes hacer es enviar pulsaciones de tecla
luego de que te presionen enter

ejecuta este codigo, abre el bloc de notas y la calculadora y presiona
en ambos la tecla enter, para cancelar solo presionando la tecla ESC
en alguno de esos 2 lo detendra. para saber el titulo de la ventana activa
lo hago pasandole como parametro a GetWindowText el valor devuelto por
GetForeGroundWindow (el handle de la ventana que tiene el foco).

luego solo hago
if GetAsyncKeyState(Key_Enter) = Key_Pressed
donde key_enter = codigo Ascii de la tecla que quieras saber si fue

y Key_pressed es una constante con valor de -32767

ojo el timer tiene como intervalo 10 milisegundos para evitar a lo maximo
que se le
escapen las pulsaciones de tecla (igual se puede construir un keylogger
con esto, pero eso es otro cantar)
asi que quiza tu comsumo del cpu se vaya al maximo. la otra no puedes
interceptar/enviar de
manera tan facil algunas pulsaciones tal como =<>.,@()&$% y signos asi,
por que eso depende de la distribucion
de tu teclado,y habria que pasarle algunos parametros para hacer scan de
tu teclado y ver que codigo
tiene asignado.


#Define Key_Pressed -32767
#Define Key_Enter 13 &&Ascii de enter
#Define Key_ESC 27 &&Ascii de ESC
Declare Integer GetAsyncKeyState In user32 Integer vKey
Declare Long GetForegroundWindow In user32
Declare Long GetWindowText In user32 Long nHandle, String @lpString, Long
cch
Declare Long keybd_event In "user32" Integer bVk, Integer bScan, Long
dwFlags, Long dwExtraInfo

_Screen.AddObject("timer11","timer1")
Read Events

Define Class TIMER1 As Timer
Interval
Enabled=.T.
Procedure Timer
cTitulo =Replicate(' ',250)
=GetWindowText(GetForegroundWindow(),@cTitulo,250)
cTitulo = Chrtran(cTitulo,Chr(0),'')
If cTitulo = 'Calculadora' Or 'Bloc' $ cTitulo
If GetAsyncKeyState(Key_Enter) = Key_Pressed
=keybd_event(Asc("2"), 0, 0, 0)
=keybd_event(Asc("0"), 0, 0, 0)
=keybd_event(Asc("0"), 0, 0, 0)
=keybd_event(Asc("4"), 0, 0, 0)
EndIf
If GetAsyncKeyState(Key_ESC) = Key_Pressed
This.Enabled = .F.
This.Interval = 0
This.Destroy()
Messagebox("Cancelado!")
Clear Events
Endif
Endif
Endproc
Enddefine

(Cada que presiones enter te ejecutara el enter y adicionalmente te
escribira 2004)

Saludos++


En , Alexander Ariel Kwaszka escribió:

> Obviamente puede ser peligroso, pero no es para lo que pensas. Es para

> trabajo, del cual se requiere ese control ya que no se tiene el fuente

> ese programa.
> Se que se puede, ayudenme porfavor!!!
>
>
> PortalFox :: Nada corre como un zorro
> http://www.portalfox.com
>
> PortalFox - NNTP Forum Gateway



Jorge Mota
Microsoft Visual FoxPro MVP
Guatemala