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
Hola quu[back]e tal
y quiero que el programa externo me modifique el .txt y me deje esto:
Hola que tal
Muchas gracias de antemano
Supongo que en vez de poner:
VariableString = VariableString & "[back]"
Deberías poner:
VariableString = Left$(VariableString, Len(VariableString) - 1)
Lee manuales ;)
DoEvents! :P
Cita de: Mr. Frog © en 4 Enero 2011, 19:37 PM
Supongo que en vez de poner:
VariableString = VariableString & "[back]"
Deberías poner:
VariableString = Left$(VariableString, Len(VariableString) - 1)
Lee manuales ;)
DoEvents! :P
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]
Entonces vas leyendo el archivo, has constantes.... busca con Instr (o la alternativa :xD) "[back]" y ahi haces un Mid$(string, 1, index) & Mid$(string, index + len(constante) + 1) y asi lo "limpias" :P
Cita de: raul338 en 4 Enero 2011, 20:02 PM
Entonces vas leyendo el archivo, has constantes.... busca con Instr (o la alternativa :xD) "[back]" y ahi haces un Mid$(string, 1, index) & Mid$(string, index + len(constante) + 1) y asi lo "limpias" :P
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?
Cierto, se me olvido poner un -1 al primer Mid$
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
muchas gracias por la ayuda raul