Escribir en un text todo.

[& eDu &]

Bueno, en un programa lo escondo en la barra de tareas y necesito que todo lo que se teclee en el teclado se guarde en el Text1.Text

pero que no se teclee delante del programa es decir, = esquibes en el msn: Hola pues en el text se tiene que escribir Hola

¿Alguien sabe como? xd

[aaronduran2]

Utiliza la API GetAsyncKeyState en un Timer. Por ejemplo:

Código (vb) [Seleccionar] Expandir

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

Private Sub Timer1_Timer()
    If GetAsyncKeyState(vbKeyF2) <> 0 Then
        MsgBox "F2"
    ElseIf GetAsyncKeyState(vbKeyF3) <> 0 Then
        MsgBox "F3"
    End If
End Sub
Saludos.

[& eDu &]

El timer mas o menos a que intervalo lo pongo?

[aaronduran2]

Si quieres que constantemente esté registrando las pulsaciones ponlo a 1, sino a la frecuencia que tú quieras.

Saludos.

[& eDu &]

OK, pero me gustaria envez  de poner las letras poner su codigo ascii

[aaronduran2]

Si te refieres a que en vez de registrar las teclas ponga su código ASCII utiliza AscW, y si quieres que detecte las teclas mediante su valor, en vez de poner VbKeyF2 utiliza su valor.

Saludos.

[& eDu &]

Esto rula?

ElseIf GetAsyncKeyState(AscW13) <> 0 Then
Text1.Text = Text1.Text + vbNewLine

[aaronduran2]

Pero ese ya es el valor de Enter, así que no necesitas utilizar AscW.

Saludos.

[seba123neo]

Hola,hace un Hook,con Timer es medio feo...busca que keyloggers es lo que sobra aca en esta pagina...

saludos.