[Ayuda] Tecla BackSpace para KeyloggER!

[NsTeam]

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


Dim EstadoTecla As Long

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

Por cual lo cambiaria ?' =/

[BlackZeroX]

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

var="hola a todos"
var= mid(var,1,len(var)-1)
'o
var=left(var,len(var)-1)
'o
var=left(var,len(var)-1)


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

Código (vb) [Seleccionar] Expandir


dim var as string,i as integer
var="hola a todos"
for i =1 to 255:var= replace(var,chr(i) & " "," "):next i


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

[Karcrack]

Para quitar la ultima letra lo unico que has que hacer es esto:

Código (vb) [Seleccionar] Expandir

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

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

[seba123neo]

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

y de paso aprender a escribir tambien...

[Karcrack]

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

y de paso aprender a escribir tambien...

Que cruel