elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el ttwitter! de elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Evitar repetición de la pulsación de una tecla
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Evitar repetición de la pulsación de una tecla  (Leído 494 veces)
adla

Desconectado Desconectado

Mensajes: 13


Ver Perfil
Evitar repetición de la pulsación de una tecla
« en: 7 Noviembre 2021, 19:09 pm »

hola,

edito el mensaje, lo pregunto mejor:

¿hay alguna forma de evitar la repetición de una tecla o varias en el evento keydown? es decir que si mantengo pulsado el 1, no aparezca 11111111111111111111111111.....

gracias


« Última modificación: 7 Noviembre 2021, 19:55 pm por adla » En línea

Serapis
Colaborador
***
Desconectado Desconectado

Mensajes: 2.865


Ver Perfil
Re: Evitar repetición de la pulsación de una tecla
« Respuesta #1 en: 7 Noviembre 2021, 21:33 pm »

No existe un modo desde vb6, para evitarlo directamente.
Y no esoty seguro que puedas evitarlo con código (por ejemplo añadiendo varias variables buleanas en el keydown activarla a true si era false y evitar el cambio en el evento change, luego ponerlo en false en el evento Up, etc... creo que es complcado si no imposible sin el uso de un timer (por ejemplo).

Recuerda que la sucesión de eventos es: (Down change)+ up
Es decir si hay repetición Down y change se alternan y cuando se suelte ocurre un Up.
El problema de todo esto es que el evento Change no contiene parámetros que puedan controlarse para esto.

Es más sencillo, que filtres el contenido en el evento validate.
Si no te vale, la mejor opción es escribir tu propio control 'textbox'. En él tu pudes crear un evento 'change' que reciba como parámetro la tecla recibida y otro que señale si ya ha existido un evento down, antes de otro Up... con lo que al usar dicho control, sería extremadamente sencillo evitarlo.

En cualquier caso, es responsabilidad del usuario establecer el 'Repeat Delay' y en 'Repeat Rate' en las propiedades del teclado. No es tu problema que el usuario se quede 'pegado' a la tecla. Si es un usuario con capacidades mermadas, seguramente usará (o debiera usar) 'opciones de accesibilidad' adicionales que satisfagan sus necesidades y qu él habrá elegido o elegirá según sus necesidades.

...todavía a través de la API devicecaps, podrías leer y modificar dichos valores, pero siempre está el volver a restablecerlo a  sus valores previos... y no es buena idea, si el programa se cuelga, no podrás establecer los valores previos, si otra aplicación  (imagina otras 20) haciendo lo mismo, si no se 'resetean' en el mismo orden en que fueron tomados, se restablecerá un valor errado. En general las opciones dle usuairo, no hay que tocarlas, es el cosa dle usuario y no hay nada más irritante que una aplicación toque los valores que has establecido (entiendase resolución, tamaño de fuente, orientación de la pantalla (esta todavía vale si está a pantalla completa, porque se restablece al salir y mientras no hay otras aplicaciones que afecten), y los valores del ratón, teclado, cursor, idioma, etc...

Si insistes en necesitar dicha funcionalidad, recuerda lo que te he mencionado más arriba, podrás lograrlo a base de escribir tu propio control textbox, donde tu controles todo. Ahora, ¿merece el esfuerzo a dedicar escribir un control de usuario solo para poder disponer de esa funcionalidad?. Es mucho trabajo solo para eso (te obliga a implementar mucha funcionalidad ya existente en el textbox, que no incorpora el usercontrol), ...pero si lo haces incorpora otras funcionalidades útiles, todo junto al menos justifican abordarlo...


En línea

Serapis
Colaborador
***
Desconectado Desconectado

Mensajes: 2.865


Ver Perfil
Re: Evitar repetición de la pulsación de una tecla
« Respuesta #2 en: 10 Noviembre 2021, 20:22 pm »

adla,  Tengo una buena noticia para tí...

Me picaba el gusanillo de probar que de alguna manera fuera posible y simple lograr lo que reclamas y lo he conseguido.
Que conste que no hay funcionalidad documentada al respecto, a sí que ha sido tirar de intuición y pruebas.

VB6 suele pasar sus parámetros por referencia... en general esto es más rápido que copiar el valor a una nueva variable y es una razón de peso (velocidad), por la que muchos lenguajes por defecto, han pasado (y siguen pasando) parámetros por referencia...
No obstante esto mismo permite modificar el valor en origen, por lo que ha sido cuestión de probar ciertos casos para jugar con tal eventualidad.

Con el evento keydown, el problema es que te pasa el 'keycode' que es la tecla pulsada, esto es muy útil, ya que te salta cuando pulsas la 'A' pero también cuand pulsas las teclas de cursor, muy útil si tratas de controlar por ejemplo el reposicionamiento del cursor en un control diseñado por tí.
Tu caso es no permitir repetición de teclas pero solo en el caso de las teclas imprimibles, lógicamente que alguien quiera mover el cursor x posiciones a derecha o izquierda (arriba y abajo suelen comportarse traducido a derecha e izquierda), no debiera ser filtrado. Es cómodo dejar el la tecla del cursor pulsada cuando hay que avanzar bastantes caracteres, en ves de pulsar una vez por cada movimiento...
Entonces, filtrar una funcionalidad y no la otra... exige crear un array de teclas, poniendo a 1 (por ejemplo) las teclas imprimibles y a 0 las que no para filtrar solo las imprimibles... el resultado es que no funciona.

Luego he recordado que está también el evento keypress, que también sucede antes del evento change (pero detrás del keydown) y que el parametro que envía no es 'keycode', si no KeyAscii', aquí si funciona, pues todo lo que hay que hacer es anular la tecla pulsada cuando se dé la condición indicada.
Se ve que el evento change es disparado justo a la devolució de este teniendo el cuenta el valor actual de 'KeyAscii' y no el del 'Keycode'.

Sin más te pongo el código.
De ejemplo se supone un formulario con al menos un textbox (llamado al caso text1) y ya:
Código
  1. Private KeyIsDown As Boolean
  2.  
  3.  
  4. Private Sub Text1_KeyPress(KeyAscii As Integer)
  5.    If (KeyIsDown = False) Then
  6.        KeyIsDown = True
  7.    Else
  8.        KeyAscii = 0
  9.    End If
  10.  
  11.    Debug.Print KeyAscii    ' con CTRL +G abre la ventana de debug, para ver los resultados filtrados...
  12. End Sub
  13.  
  14. Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
  15.    KeyIsDown = False  ' sea o no true.
  16.  
  17. End Sub
  18.  
Ahora cuando se pulsa una tecla, solo se acepta como una sola pulsación, sin importar el tiempo que se deje pulsada la tecla, es decir elimina la repetición.

Si deseas que otras teclas (como la de cursor) tampoco se repitan, implementa el array comentado... pero ahora en el evento Keydown.
Nota la diferencia entre una tecla de cursor a izquierda keycode=36, es ditintito de Keypress= 36 que corresponde con el carácter imprimible '$'
...se modifica como aquí consta:
Código
  1.  
  2. Private KeyIsDown As Boolean
  3. Private CodeIsDown As Boolean   ' ojo, esta opera con keydown, la otra con KeyPress...
  4. private charsImprimibles(0 to 255)  as byte
  5.  
  6. Private Sub Form_Load()
  7.    dim k as integer
  8.  
  9.    charsImprimibles(13) = 1
  10.    for k= 32 to 255
  11.         charsImprimibles(k) = 1
  12.    next
  13.  
  14.    ' FALTA: poner a 0 las 'keycode' que quieras que si se repitan (pulsa F2 y busca KeyCodeConstants).
  15.     charsImprimibles(vbKeyUp)= 0
  16.     charsImprimibles(vbKeyDown)= 0
  17.     charsImprimibles(vbKeyLeft)= 1      ' prueba, verás que cursor a derecha exige una pulsación por cada desplazamiento.
  18.     charsImprimibles(vbKeyRight)= 0
  19.     ' etc...
  20. End Sub
  21.  
  22.  
  23. Private Sub Text1_KeyDown(KeyCode As Integer)
  24.    If (charsImprimibles(KeyCode ) > 0) Then
  25.        If (CodeIsDown = False) Then
  26.            CodeIsDown = True
  27.        Else
  28.            KeyCode = 0
  29.        End If
  30.    End If
  31.  
  32.    Debug.Print KeyCode
  33. End Sub
  34.  
  35. Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
  36.    KeyIsDown = False  ' sea o no true.
  37.    CodeIsDown = False
  38.  
  39. End Sub
  40.  


p.d: Nota que si el textbox no es multiline, el salto de línea se ignora, pero no si el textbox es multiline.
« Última modificación: 12 Noviembre 2021, 02:11 am por Serapis » En línea

adla

Desconectado Desconectado

Mensajes: 13


Ver Perfil
Re: Evitar repetición de la pulsación de una tecla
« Respuesta #3 en: 12 Noviembre 2021, 20:31 pm »

adla,  Tengo una buena noticia para tí...

Me picaba el gusanillo de probar que de alguna manera fuera posible y simple lograr lo que reclamas y lo he conseguido.
...

muchisimas gracias Serapis, te lo has trabajado, no he conseguido que me funcione porque quizas tenia que haber dicho que tengo el keypreview en true para que sea el formulario el que tome la pulsación, no es una caja de texto y por tanto no necesito mostrar el valor del keyascii.. la idea es o era, no es tan fácil, quiero hacer que una serie de luces se enciendan al ritmo de una melodía, para ello uso un arduino, reles, etc, y lo que hago es poner la canción 2 o 3 segundos, escribo el código para que se enciendan o apaguen, luego vuelvo al inicio de la cancion oigo otros 2 o 3 segundos más es decir 4 o 6, escribo el código para que se enciendan o apaguen, luego vuelvo al inicio de la cancion oigo otros 2 o 3 segundos más es decir entre 6 y 8 segundos, te puedes imaginar las veces que tengo que oir el tema, cuando llevo un minuto la he oido 30 o 40 veces y ya tengo las luces des-sincronizadas totalmente y soy incapaz de pillar el hilo, hacer esto me lleva semanas o meses,



asi que pensé en asignar un relé a cada tecla y luego intentar seguir el ritmo de la música pulsando las teclas que se corresponderían con cada luz, por eso necesito saber cuanto tiempo permanece pulsada cada tecla para poder darle el tiempo a la luz encendida.. no se si lo he conseguido entender.. bueno sea como sea también es muy dificil conseguir sincronizar las luces así..

he conseguido solucionar el tema de esta forma y puesto que solo tenemos 10 dedos, esas serán las teclas que podamos pulsar a la vez, así que metemos las teclas pulsadas en un cadena y para cada repetición comprobamos si ya existe esa tecla en la cadena, si no existe la añadimos, al soltar la tecla borramos el código de la cadena..


Código:

Dim teclasPulsadas as String

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If InStr(teclasPulsadas, "(" & Str(KeyCode) & ")") = 0 Then

'---- lo que queramos hacer ----

        teclasPulsadas = teclasPulsadas & "(" & Str(KeyCode) & ")"
    End If
End Sub



Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    teclasPulsadas = Replace(teclasPulsadas, "(" & Str(KeyCode) & ")", "")
End Sub

En línea

Serapis
Colaborador
***
Desconectado Desconectado

Mensajes: 2.865


Ver Perfil
Re: Evitar repetición de la pulsación de una tecla
« Respuesta #4 en: 13 Noviembre 2021, 00:36 am »

Si, cuando falta contexto no se puede aportar más que lo específicamente solicitado.

Aún así, recuerda que el formulario tambien posee el evento keypress (no solo el textbox, aunque es el prototipo de control cuando se habla de texto).
Citar
por eso necesito saber cuanto tiempo permanece pulsada cada tecla para poder darle el tiempo a la luz encendida..
La duración de cada tecla, como te decía al comienzo, viene definida en las propiedades del teclado. Puedes cambiarlo si los valores no se adecúan a tus necesidades aunque sea provisionalmente: 'Repeat Delay' y en 'Repeat Rate'.
La lástima es que en la interfaz son sendos 'sliders' pero sin mostrar valores numéricos. Así que hay que tirar de código para obtenerlos...


De todos modos El retraso de repetición es elegible entre 0 y 3 segundos 0-3, sin intervalos intermedios entre segundos.
Y la cadencia de repetición es elegible entre: 0-31, aunque experimentalmente si pongo 0, observo que se repiten 2 caracteres por segundo.
Estos valores podrían estar alterados o ignorados si hay establecidas opciones de accesibilidad (Filterkeys). No lo he investigado, ya que nunca lo he necesitado ni personal ni profesionalmente.

Código
  1. Const GETKEYBOARD_RATE      As Long = 10
  2. Const GETKEYBOARD_DELAY     As Long = 22
  3.  
  4. Private Declare Function KeyboardRepeat Lib "user32" Alias "SystemParametersInfoA" (ByVal Accion As Long, ByVal Param1 As Long, Param2 As Any, ByVal Param3 As Long) As Long
  5.  
  6. Private Sub Form_Load()
  7.    Dim kbState As Long
  8.  
  9.    Call KeyboardRepeat(GETKEYBOARD_DELAY, 0, kbState, 0)
  10.    Debug.Print "Retraso de repeticion del teclado: " & kbState & " Sg."  
  11.  
  12.    Call KeyboardRepeat(GETKEYBOARD_RATE, 0, kbState, 0)
  13.    Debug.Print "Cadencia de repeticion del teclado: " & kbState & " Caracteres por segundo"
  14. End Sub
  15.  

Tal como lo explicas, es un trabajo de chinos, pero en el vídeo se ve que te ha quedado bien...
En línea

adla

Desconectado Desconectado

Mensajes: 13


Ver Perfil
Re: Evitar repetición de la pulsación de una tecla
« Respuesta #5 en: 21 Noviembre 2021, 13:38 pm »

Si, cuando falta contexto no ...

hola, no sé por que no recibo avisos de nuevos mensajes en el foro y lo tengo activado..

bueno, ahora estoy a tope con el curro y me queda poco tiempo para las aficiones, he pensado en un programilla que reprodujera un mp3 y diese opción a 'pintar' los encendidos de las luces pero no tengo ni idea de por donde empezar, mis conocimientos son muy básico.. dejo la idea por alguien tiene algo parecido.

gracias por todo Serapis, eres una máquina, ojalá yo dominase esto como tú.



En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
enviar pulsacion tecla form invisible VB6
Programación Visual Basic
revenge1252 5 7,462 Último mensaje 24 Agosto 2009, 23:33 pm
por NsTeam
Simular pulsacion de tecla en otro programa
Programación Visual Basic
neeeko 4 3,322 Último mensaje 21 Mayo 2011, 05:07 am
por neeeko
Detectar Pulsacion de Tecla (Keylogger)
.NET (C#, VB.NET, ASP)
adan-2994 1 3,516 Último mensaje 15 Agosto 2011, 01:51 am
por Keyen Night
detectar pulsacion tecla
ASM
poeta3d 1 1,447 Último mensaje 9 Diciembre 2015, 09:15 am
por Eternal Idol
Pulsación de tecla en un batch (solucionado)
Windows
gusku 0 740 Último mensaje 21 Mayo 2019, 09:11 am
por gusku
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines