Pulsar Tecla

[UTU]

Alguno sabe otro metodo de simular que se preciono una tecla que no sea SendKeys por que me han dicho que en algunos programas no funcionana con este comando, osea me explico si pongo un timer que mande: SendKeys "{Enter}" y abro un  bloc de notas es como si apretara el enter cada x tiempo pero me dicen que en algunos programas no funciona dice restrincion de no se que queria saber si hay algun comando parecido para simular que se apreta una tecla.

[NYlOn]

Lo podes hacer con la API keybd_event. Un ejemplo:

Código [Seleccionar] Expandir


Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
'Podes usar constantes para las letras dandoles su valor en ASCII, por ej la letra A seria 65
VK_A = 65
VK_b = 98

Private sub Timer1_Timer ()
    keybd_event VK_A, 0, 0, 0   'apretas A
    keybd_event VK_A, 0, KEYEVENTF_KEYUP, 0   ' soltas A
    keybd_event VK_b, 0, 0, 0   ' apretas b
    keybd_event VK_b, 0, KEYEVENTF_KEYUP, 0   ' soltas b
End Sub


Podes ver los valores ASCII en http://ascii.cl/es/ o sino busca que hay montones de paginas...

Saludos.-

[UTU]

Lo probe pero me pasa lo mismo q con el sendkeys en windows todo OK pero cuando entro por ejemploa algun juego no lo preciona me dijieron q por ejemplo en el GTA San Andreas no funciona yo lo estoy probando en ese le mando el ascii 65 que es la A y le meti al macaco para que se muva con la A pero no pasa nada se ve que el juego lo restringe o algo pero no me sale ningun cartel como me dijieron simplemente no ace nada, si alguno sabe alguna forma para que simule que preciono una tecla se lo agradezco, de todos modos gracias man por el codigo .

[Hackel]

  hey... hablando de codificar teclas... me gustaria saber como puedo hacer que al terminar de escribir algo en un textbox presionar enter y que ejecute la accion de mostrar en label lo que escribi en el textbox 

[NYlOn]

En el evento KeyPress del textbox que quieras pones el siguiente

Código [Seleccionar] Expandir


If KeyAscii = 13 Then '13 es el enter...
    Label1.Visible = True 'Hacer lo que quieras
End If


Saludos.-

[vivachapas]

alguien sabe donde puedo encontrar q numero le corresponde a cada boton del teclado???
desde ya muchas gracias

[_Sergi_]

alguien sabe donde puedo encontrar q numero le corresponde a cada boton del teclado???
desde ya muchas gracias

No hace falta que lo busques, cada código ASCII tiene una equivalencia. Para encontrarla, tienes que usar la función Chrs.

Por ejemplo, quieres saber a que tecla le corresponde 65

Código [Seleccionar] Expandir

Msgbox "El caracter 65 es " & Chr(65)

Chr(65) te devolverá una letra A mayúscula

Un saludo