Author: miguel
Subject: Código para caducar un programa en una fecha fija
Posted: Fri Jul 13, 2012 9:29 pm (GMT -7)
Topic Replies: 5
Si lo que queremos es que nuestro programa tenga una fecha fija de caducidad podemos usar el código que os incluyo. Tal y como está escrito basta con pulsar F6 en cualquiera de nuestros proyectos y copiarlo y pegarlo allí, eso sí, cambiando la fecha de caducidad, la dirección Web y del email por las nuestras.
.REM *****************
.REM Subrutina en NeoBook para comprobar si nuestro programa ha alcanzado la fecha de caducidad que deseamos.
.REM Por ejemplo, si queremos que sea válido hasta el 31/12/2012
.REM Hacemos un número con el formato AAAAMMDD y se carga en una variable.
SetVar "[FechaCaducidad]" "20121231"
.REM Vemos si el mes y día en el que el usuario abre el programa tienen un sólo dígito y de ser así le colocamos un cero delante.
If "[MonthNum]" "<" "10"
SetVar "[EsteMes]" "0[MonthNum]"
Else
SetVar "[EsteMes]" "[MonthNum]"
EndIf
If "[DayNum]" "<" "10"
SetVar "[EsteDia]" "0[DayNum]"
Else
SetVar "[EsteDia]" "[DayNum]"
EndIf
.REM Se carga en una variable la fecha actual con el mismo formato AAAAMMDD
SetVar "[FechaActual]" "[Year][EsteMes][EsteDia]"
.REM Lo comparamos con el día en que debe caducar.
.REM Si es menor se lo comunicamos al usuario y cerramos el programa.
.REM En caso contrario el programa continúa.
If "[FechaCaducidad]" "<" "[FechaActual]"
AlertBox "¡Versión caducada!" "Puede solicitar el programa||actualizado escribiendo a||administrador@sitioweb.com||o descargarlo desde ||http://sitioweb.com/"
Exit "" ""
EndIf
.REM *****************
Un saludo
_________________
Miguel
…………………………
……………
http://www.mirepisa.com/
NeoSoft Support Forum