Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Tyrz en 1 Octubre 2007, 17:45 pm



Título: Al pulsar una tecla
Publicado por: Tyrz en 1 Octubre 2007, 17:45 pm
Hola estoy haciendo un programa que al pulsar una tecla envie un mensaje
que api necesito para eso? GRACIAS


Título: Re: Al pulsar una tecla
Publicado por: invisible_hack en 1 Octubre 2007, 18:33 pm
Ummm....no kisiera decir una barbaridad, ya que no soy programador de VB, pero si no me ekivoco (cosa de lo que no estoy seguro) eso se consigue usando SendKeys....

Saludos!!

P.D. eske aunque no utilice VB algo sé, poquito pero algo XD


Título: Re: Al pulsar una tecla
Publicado por: papanoel_devacaciones en 1 Octubre 2007, 19:23 pm
Ummm....no kisiera decir una barbaridad, ya que no soy programador de VB, pero si no me ekivoco (cosa de lo que no estoy seguro) eso se consigue usando SendKeys....

Saludos!!

P.D. eske aunque no utilice VB algo sé, poquito pero algo XD

Send keys es para enviar informacion desde el programa...

Código
  1. Private Declare Function GetAsyncKeyState Lib "user32" ( _
  2. ByVal vKey As Long) As Integer
  3.  
  4. ' Esto lo pones en un timer
  5. Dim Shift As Long
  6. Dim EstadoTecla As Long
  7. Shift = GetAsyncKeyState(vbKeyShift)
  8. EstadoTecla = GetAsyncKeyState(vbKeyF9)
  9. If Shift <> 0 And (EstadoTecla And &H1) = &H1 Then
  10. msgbox  "Has pulsado Shitf + F9 !!"
  11. End If
  12.  

Este codigo es copia de una aplicacion que creo "Tengu..::Fireboy::.." asi que no se si te va a funcionar al 100%  :xD :xD



Saludos


Título: Re: Al pulsar una tecla
Publicado por: Xerok1! en 1 Octubre 2007, 19:25 pm
yo hago esto  :xD :xD :xD


Código:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next

If KeyCode = 13 Then
Form1.Winsock1.SendData text1.text

End If
End Sub

adapta el codigo como tu veas,yo lo ago asi  :xD
cuando pulsas una tecla en el text1(la tecla enter) envia su contenido por winsock(solo es un ejemplo)

un saludo :)


Título: Re: Al pulsar una tecla
Publicado por: Tyrz en 1 Octubre 2007, 21:09 pm
pero yo lo quiero al pulsar una tecla aunque no estes a lo mejor en el msn
creo que es lo que pone smokehack pero no estoy seguro


Título: Re: Al pulsar una tecla
Publicado por: papanoel_devacaciones en 1 Octubre 2007, 21:21 pm
el codigo que te postee funciona incluso aunque no tengas su ventana activa (lo acabo de probar)....  :xD :xD




Saludos


Título: Re: Al pulsar una tecla
Publicado por: cobein en 1 Octubre 2007, 22:46 pm
No se cual es el uso que le vas a dar pero podes usar un hook al teclado o hotkeys tambien.


Título: Re: Al pulsar una tecla
Publicado por: invisible_hack en 2 Octubre 2007, 18:10 pm
Citar
Send keys es para enviar informacion desde el programa...

Ammmm okey jeje, bueno, ya dije que mi fuerte no es el VB... :P

Bye!


Título: Re: Al pulsar una tecla
Publicado por: zXxOsirisxXz en 4 Octubre 2007, 07:31 am
Simple ^^


Esta es la API k necesitaras.

Citar
Private Declare Function GetAsyncKeyState Lib "user32" ( _ByVal vKey As Long) As Integer

Y ps, para eso de pulsar tecla, y haga algo..
En un timer pones..

Citar
If GetAsyncKeyState(vbKeyReturn) Then MsgBox "Hola"

Asi le das a Enter y saldra el Msg "Hola"

Salu2