Foro de elhacker.net

Programación => 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
  1. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  2.  
  3. Private Sub Timer1_Timer()
  4.    If GetAsyncKeyState(vbKeyF2) <> 0 Then
  5.        MsgBox "F2"
  6.    ElseIf GetAsyncKeyState(vbKeyF3) <> 0 Then
  7.        MsgBox "F3"
  8.    End If
  9. 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.