SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: RadicalEd en Sábado 21 de Agosto de 2004, 20:08

Título: Exe's Y Valores
Publicado por: RadicalEd en Sábado 21 de Agosto de 2004, 20:08
HOLA CHICOS DE SOLOCODIGO QUISIERA SABER COMO HAGO PARA CREAR UN CONTADOR Y GUARDE EL VALOR CADA VEZ QUE MI EJECUTABLE SE ENCIENDA PERO NO EN ARCHIVOS, NI EN REGISTRO SINO DENTRO DEL MISMO EJECUTABLE
Título: Re: Exe's Y Valores
Publicado por: nostromo en Sábado 21 de Agosto de 2004, 22:00
Hola;

Quieres que tu aplicación sea un shareware y se desactive despues de un tiempo.

Nos vemos.
Título: Re: Exe's Y Valores
Publicado por: RadicalEd en Domingo 22 de Agosto de 2004, 20:29
NO ES ESO, DE HACER UN PROGRAMA SHAREWARE YO LO COLOCO POR MEDIO DE FECHAS Y CONTADORES EN REGISTRO, LO QUE QUIERO SABER ES SI SE PUEDE MODIFICAR EL EJECUTABLE GUARDANDO VALORES DENTRO DE EL CADA VEZ QUE SE EJECUTA Y MANTENGA ESE VALOR GUARDADO ASI SE DESACTIVE.
 :comp: PD1. SIEMPRE COLOCO EL FUENTE DE MIS PROGRAMAS EN EL EJECUTABLE, SOLO QUE LES TOCA QUE BUSCARLO POR QUE LO ESCONDO. :comp:
 :lightsabre: PD2. LOS QUE CREAN PROGRAMAS SHAREWARE MERECEN QUE SE LOS JODAN :lightsabre:  ups perdon
Título: Re: Exe's Y Valores
Publicado por: nostromo en Lunes 23 de Agosto de 2004, 01:11
Hola;

Primero lo que quieres, se necesita que la variable se guarde en algo, al iniciarse tu aplicación debe buscar el último valor generado.

Como se hace, por archivo ini., base de datos con password. O modificar la fecha de creación del archivo de tu exe, en el momento de la instalación y restar según la fecha de apertura y contar los días, ese será tu contador.

Nos vemos.
Título: Re: Exe's Y Valores
Publicado por: RadicalEd en Lunes 23 de Agosto de 2004, 17:25
BUENO ESO DE GUARDAR EN VALORES .INI O EN EL REGISTRO YO LO SE HACER, PERO QUIERO ES GUARDARLO DENTRO DEL MISMO EJECUTABLE, COMO SI MODIFICARA EL CODIGO DEL EJECUTABLE CADA VEZ QUE SE HABRE
Título: Re: Exe's Y Valores
Publicado por: Cyclop en Lunes 23 de Agosto de 2004, 20:29
Puedes hacerlo asi

Código: Text
  1. Dim sBuffer As String
  2. sFileName = App.Path + App.EXEName + ".exe"
  3. Open (sFileName) For Binary Read Write As #1
  4. nSize = LOF(1)
  5. sBuffer = Space(1)
  6. Get #1, nSize - 1, sBuffer
  7. ' Chequeamos si tiene marca
  8. If sBuffer = "X" Then
  9.     sBuffer = Space(3)
  10.     Get #1, nSize - 4, sBuffer
  11.  Else
  12.     sBuffer = ""
  13. EndIf
  14. sBuffer = Format(Val(sBuffer) + 1, "###")
  15. Put #1, nSize - 4, sBuffer$
  16. Close #1
  17.  
  18.  

Aun que vas a tener problemas si le abres del mismo exe ya que te va a dar un error, de que el archivo esta siendo utilizado por otro porgrama.


Salu2


Cyclop


 :D