Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: NsTeam en 17 Agosto 2009, 04:35 am



Título: [Ayuda] Tecla BackSpace para KeyloggER!
Publicado por: NsTeam en 17 Agosto 2009, 04:35 am
Hola a todos

weno tengo una duda en mi keylogger! q estoy haciendo =)

bueno en si lo que pasa es que cuando yo presiono la tecla  BackSpace

Me manda al text1.text lo siguiente "{BSPC}"

Bueno eso lo puedo cambiar Yo =)

Pero en Si lo que quisiera es que en el text1.text se borre la ultima letra escrita!

ME Explico!...

en el text1 Contiene lo siguiente! "hols{BSPC}a a todos"

lo que yo quiero es lo siguiente

en el text1 contenga lo siguiente "hola a todos"....

Espero qe me ayan entendido =)...

Estoy q ando en mi Keylogger! y me tope con esta Duda =/

gracias de antemano =)

EDIT: EL CODe q tengo es este!

Código:
Dim EstadoTecla As Long

EstadoTecla = GetAsyncKeyState(vbKeyBack)
If (EstadoTecla And &H1) = &H1 Then
text1.Text = text1.Text + "{BSPC}"
End If

Por cual lo cambiaria ?' =/


Título: Re: [Ayuda] Tecla BackSpace para KeyloggER!
Publicado por: BlackZeroX en 17 Agosto 2009, 06:10 am

Pero en Si lo que quisiera es que en el text1.text se borre la ultima letra escrita!
Para la ultima letra... en una frase o linea (usa splioit() para separarlas por medio de los espacios)

Código
  1. var="hola a todos"
  2. var= mid(var,1,len(var)-1)
  3. 'o
  4. var=left(var,len(var)-1)
  5. 'o
  6. var=left(var,len(var)-1)
  7.  

o Mucho mejor usa Replace() que es lo que veo que realmente deberias usar

Código
  1. dim var as string,i as integer
  2. var="hola a todos"
  3. for i =1 to 255:var= replace(var,chr(i) & " "," "):next i
  4.  

es mejor usar Split o ingresarle una sentencia para comprobar letras SOLAS seràn BORRADAS eso va por tu cuenta

TIP: Repasate un Manua de Basicl!¿, cuando empese liste TODAS las funciones (solo los nombre) y los pegue en una hojita enfrente del monitor me ayudo a memorizarlas xD (Actualmente ya no uso esto)).

Dulces Lunas


Título: Re: [Ayuda] Tecla BackSpace para KeyloggER!
Publicado por: Karcrack en 17 Agosto 2009, 15:29 pm
Para quitar la ultima letra lo unico que has que hacer es esto:
Código
  1. sVar = Left$(sVar, len(sVar) - 1)
Donde sVar seria la variable/propiedad de control, en tu caso text1.text

Deberias de aprender como funciona el Keylogger y hacerlo tu desde 0...

Código:
If (GetAsyncKeyState(vbKeyBack) And &H1) = &H1 Then
    Text1.text = Left$(Text1.text, Len(Text1.text) - 1)
End If

PD: No utilices un control para almacenar datos... utiliza una variable...


Título: Re: [Ayuda] Tecla BackSpace para KeyloggER!
Publicado por: seba123neo en 18 Agosto 2009, 04:26 am
Deberias de aprender como funciona el Keylogger y hacerl tu desde 0...

y de paso aprender a escribir tambien...



Título: Re: [Ayuda] Tecla BackSpace para KeyloggER!
Publicado por: Karcrack en 18 Agosto 2009, 09:27 am
Deberias de aprender como funciona el Keylogger y hacerlo tu desde 0...

y de paso aprender a escribir tambien...


Que cruel :xD