Autor Tema: Exe's Y Valores (Leído 2330 veces)

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

nostromo

Hola;

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

Nos vemos.

RadicalEd

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.

PD1. SIEMPRE COLOCO EL FUENTE DE MIS PROGRAMAS EN EL EJECUTABLE, SOLO QUE LES TOCA QUE BUSCARLO POR QUE LO ESCONDO.

PD2. LOS QUE CREAN PROGRAMAS SHAREWARE MERECEN QUE SE LOS JODAN

ups perdon

nostromo

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.

RadicalEd

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

Cyclop

Puedes hacerlo asi

Código: Text

Dim sBuffer As String
sFileName = App.Path + App.EXEName + &#34;.exe&#34;
Open (sFileName) For Binary Read Write As #1
nSize = LOF(1)
sBuffer = Space(1)
Get #1, nSize - 1, sBuffer
' Chequeamos si tiene marca
If sBuffer = &#34;X&#34; Then
    sBuffer = Space(3)
    Get #1, nSize - 4, sBuffer
 Else
    sBuffer = &#34;&#34;
EndIf
sBuffer = Format(Val(sBuffer) + 1, &#34;###&#34;)
Put #1, nSize - 4, sBuffer&#036;
Close #1
 
 

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

SoloCodigo

Autor Tema: Exe's Y Valores (Leído 2330 veces)

RadicalEd

Exe's Y Valores

nostromo

Re: Exe's Y Valores

RadicalEd

Re: Exe's Y Valores

nostromo

Re: Exe's Y Valores

RadicalEd

Re: Exe's Y Valores

Cyclop

Re: Exe's Y Valores