Al pulsar una tecla

[Tyrz]

Hola estoy haciendo un programa que al pulsar una tecla envie un mensaje
que api necesito para eso? GRACIAS

[invisible_hack]

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

[papanoel_devacaciones]

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 (vb) [Seleccionar] Expandir


Private Declare Function GetAsyncKeyState Lib "user32" ( _
ByVal vKey As Long) As Integer

' Esto lo pones en un timer
Dim Shift As Long
Dim EstadoTecla As Long
Shift = GetAsyncKeyState(vbKeyShift)
EstadoTecla = GetAsyncKeyState(vbKeyF9)
If Shift <> 0 And (EstadoTecla And &H1) = &H1 Then
msgbox  "Has pulsado Shitf + F9 !!"
End If


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



Saludos

[Xerok1!]

yo hago esto 

Código [Seleccionar] Expandir

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  
cuando pulsas una tecla en el text1(la tecla enter) envia su contenido por winsock(solo es un ejemplo)

un saludo

[Tyrz]

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

[papanoel_devacaciones]

el codigo que te postee funciona incluso aunque no tengas su ventana activa (lo acabo de probar).... 




Saludos

[cobein]

No se cual es el uso que le vas a dar pero podes usar un hook al teclado o hotkeys tambien.

[invisible_hack]

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

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

Bye!

[zXxOsirisxXz]

Simple ^^


Esta es la API k necesitaras.

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..

If GetAsyncKeyState(vbKeyReturn) Then MsgBox "Hola"

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

Salu2