Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: & eDu & en 18 Septiembre 2008, 18:07 PM

Título: Escribir en un text todo.
Publicado por: & eDu & en 18 Septiembre 2008, 18:07 PM
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
Título: Re: Escribir en un text todo.
Publicado por: aaronduran2 en 18 Septiembre 2008, 18:08 PM
Utiliza la API GetAsyncKeyState en un Timer. Por ejemplo:
Código (vb) [Seleccionar]
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.
Título: Re: Escribir en un text todo.
Publicado por: & eDu & en 18 Septiembre 2008, 18:29 PM
El timer mas o menos a que intervalo lo pongo?
Título: Re: Escribir en un text todo.
Publicado por: aaronduran2 en 18 Septiembre 2008, 18:57 PM
Si quieres que constantemente esté registrando las pulsaciones ponlo a 1, sino a la frecuencia que tú quieras.

Saludos.
Título: Re: Escribir en un text todo.
Publicado por: & eDu & en 18 Septiembre 2008, 19:00 PM
OK, pero me gustaria envez  de poner las letras poner su codigo ascii
Título: Re: Escribir en un text todo.
Publicado por: aaronduran2 en 18 Septiembre 2008, 19:15 PM
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.
Título: Re: Escribir en un text todo.
Publicado por: & eDu & en 18 Septiembre 2008, 19:19 PM
Esto rula?

ElseIf GetAsyncKeyState(AscW13) <> 0 Then
Text1.Text = Text1.Text + vbNewLine
Título: Re: Escribir en un text todo.
Publicado por: aaronduran2 en 18 Septiembre 2008, 19:22 PM
Pero ese ya es el valor de Enter, así que no necesitas utilizar AscW.

Saludos.
Título: Re: Escribir en un text todo.
Publicado por: seba123neo en 18 Septiembre 2008, 22:41 PM
Hola,hace un Hook,con Timer es medio feo...busca que keyloggers es lo que sobra aca en esta pagina...

saludos.