Hola yo de nuevo
mi pregunta es como hacer pra simular la pulsacion de un tecla ejermplo simula la pulsacion de la tecla impr paint print s o ctrl + v
cosas asi
Gracias de antemano
halc
SendKeys
Cita de: E0N en 29 Noviembre 2007, 21:40 PM
SendKeys
SendKeys sucks xD
Usa el SendMessage :)
Hola, podrias explicar mejor lo del send messaje un ejemplito, thx :P
Salu2
Ranslsad
Bah olviden el sendmessage. Sirve para muchas cosas pero no creo k sirva para esto. Acabo de probarlo y no funciona.
Usa la mas obvia, keyb_event xD
Un ejemplo:
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_NUMPAD0 = &H60
Private Sub Form_Load()
keybd_event VK_NUMPAD0, 0, 0, 0
End Sub
SendMessage si funciona, pero si lo kieres mandar a una ventana en concreto, si no lo mas comodo es SendKeys :P
Cita de: E0N en 30 Noviembre 2007, 14:45 PM
SendMessage si funciona, pero si lo kieres mandar a una ventana en concreto, si no lo mas comodo es SendKeys :P
Pruebalo, no funciona para enviar una keystroke. Claro k funciona para muchas otras cosas -.- Se lo haces funcionar me avisas ;)
SendKeys sigue siendo una m*, usa el keyb_event. El senkeys ademas de no funcionar con todas las keys, es detectado por el kav precisamente pork es un metodo k los novatos usan para hacer su virus y bromas.
Salu2
gracias por su ayuda ahora necesito como hacer para combinar las teclas osea ctrl + v
he intentado de varias forma pero no doy osea no ma sale
lo que quiero esq ue pueda pegar o copiar algo
Cita de: HALC12 en 30 Noviembre 2007, 18:47 PM
gracias por su ayuda ahora necesito como hacer para combinar las teclas osea ctrl + v
he intentado de varias forma pero no doy osea no ma sale
lo que quiero esq ue pueda pegar o copiar algo
Eso pasa pork no has estudiado la api. Vate al msdn y lee un poco sobre ela y sobre las contantes k puedes usar.
Ya he intentando de varia formas, no se si es que esta malla sentencia
lo he probado de est manera y he buscado y no encontrado algo o falta algo mas
esto sirve par tenerr control presionado
Call keybd_event(vbKeyControl, 0, 0, 0)
pero lo que no mesale es pra presinar la otra tecla ya se a c, v, o algo asi
lo llamos de esta forma
Call keybd_event(vbKeyControl, 0, 0, 0)
Call keybd_event(186, 0, 0, 0) = esta seri la otra tecl a
Cita de: HALC12 en 1 Diciembre 2007, 01:37 AM
Ya he intentando de varia formas, no se si es que esta malla sentencia
lo he probado de est manera y he buscado y no encontrado algo o falta algo mas
esto sirve par tenerr control presionado
Call keybd_event(vbKeyControl, 0, 0, 0)
pero lo que no mesale es pra presinar la otra tecla ya se a c, v, o algo asi
lo llamos de esta forma
Call keybd_event(vbKeyControl, 0, 0, 0)
Call keybd_event(186, 0, 0, 0) = esta seri la otra tecl a
Esta bien lo k estas haciendo. Solo te falta la constante de la tecla V.
Private Const VK_CONTROL = &H11
Private Const VK_V = &H56
keybd_event VK_CONTROL, 0, 0, 0
keybd_event VK_V, 0, 0, 0
Salu2
Gracias por su ayuda