Ayuda con keylogger

[Piterpan]

Hola a todos he seguigo alguno de los manuales aqui expuestos, y he creado mi primer keylogger. Me guarda el boton retroceso como [back], y quisiera hacer un traductor de dicho log. en un programa aparte.
hay alguna forma de hacerlo?
Me explico mi log pone esto

Código [Seleccionar] Expandir

Hola quu[back]e tal
y quiero que el programa externo me modifique el .txt y me deje esto:

Código [Seleccionar] Expandir

Hola que tal

Muchas gracias de antemano

[Psyke1]

Supongo que en vez de poner:

Código (vb) [Seleccionar] Expandir

VariableString = VariableString & "[back]"

Deberías poner:

Código (vb) [Seleccionar] Expandir

VariableString = Left$(VariableString, Len(VariableString) - 1)

Lee manuales

DoEvents!

[Piterpan]

Supongo que en vez de poner:

Código (vb) [Seleccionar] Expandir

VariableString = VariableString & "[back]"

Deberías poner:

Código (vb) [Seleccionar] Expandir

VariableString = Left$(VariableString, Len(VariableString) - 1)

Lee manuales

DoEvents!

Es que lo que quiero hacer es un programa externo.
en este programa lo que hago es cargar el .txt en un textbox y quiero crear un boton que haga la funcion replace pero creando dicho retroceso. no se si me explico bien. de esta manera que me indicas en el 2º programa crearia un retroceso al final del log y no donde se encuentre [back]

[raul338]

Entonces vas leyendo el archivo, has constantes.... busca con Instr (o la alternativa ) "[back]" y ahi haces un Mid$(string, 1, index) & Mid$(string, index + len(constante) + 1) y asi lo "limpias"

[Piterpan]

Entonces vas leyendo el archivo, has constantes.... busca con Instr (o la alternativa ) "[back]" y ahi haces un Mid$(string, 1, index) & Mid$(string, index + len(constante) + 1) y asi lo "limpias"

TxtEdit.SelText = Mid$(string1, 1, Index) & Mid$(string1, Index + Len(constante) + 1)
haciendo eso solo me borra el [back] pero no me genera un retroceso.
que hago mal?

[raul338]

Cierto, se me olvido poner un -1 al primer Mid$

Código (vb) [Seleccionar] Expandir


i = 0
while i <> -1
    index = InStr(i, klog, "[back]")
    if index <> -1 Then
      Mid$(klog, 1, index - 1)
       Mid$(klog, index + len("[back]") + 1) ' "[back]" seria una constante :P
    End If
wend


[Piterpan]

muchas gracias por la ayuda raul