Autor
|
Tema: Ayuda con keylogger (Leído 1,931 veces)
|
Piterpan
Desconectado
Mensajes: 5
|
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 y quiero que el programa externo me modifique el .txt y me deje esto: Muchas gracias de antemano
|
|
|
En línea
|
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Supongo que en vez de poner: VariableString = VariableString & "[back]"
Deberías poner: VariableString = Left$(VariableString, Len(VariableString) - 1)
Lee manuales DoEvents!
|
|
|
En línea
|
|
|
|
Piterpan
Desconectado
Mensajes: 5
|
Supongo que en vez de poner: VariableString = VariableString & "[back]"
Deberías poner: 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]
|
|
« Última modificación: 4 Enero 2011, 19:43 pm por Piterpan »
|
En línea
|
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
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"
|
|
|
En línea
|
|
|
|
Piterpan
Desconectado
Mensajes: 5
|
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?
|
|
|
En línea
|
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
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
|
|
« Última modificación: 4 Enero 2011, 21:03 pm por raul338 »
|
En línea
|
|
|
|
Piterpan
Desconectado
Mensajes: 5
|
muchas gracias por la ayuda raul
|
|
|
En línea
|
|
|
|
|
|