Archivo de texto

Hola experto, espero me puedas ayudar. Me han dicho para que un sistema me sirva como evaluador o demo y que me dure solamente 20 días tengo que hacer un archivo tipo texto y que cuando complete los 20 días el sistema detecte y salga mensaje de error. Pero el problema no se como hacerlo. Espero me puedas ayudar
[email protected]
1

1 Respuesta

0 pts.
Eso no sería mucha seguridad por que sería fácil de quitarle esta, yo creo que tu puedes ingeniar un sistema de más seguridad, pero te voy a mostrar como puedes hacer lo que tu quieres.
Primero lo que se va a hacer es que el programa guarde un archivo indicando la fecha en la cual se inició el programa por primera vez, luego cuando se inicie de nuevo el programa calcular cuantos días paso desde esa fecha y decir si el programa ya se expiró o no.
Aquí te va el código.
En el evento Load de Formulario pon esto:
On Error Resume Next
Dim FechaInicio As Variant
Dim FechaFinal As Variant
FileLen("Aquí Pon Dirección completa del archivo")
If Err.number <> 0 Then
'(Comprueba si existe el archivo si no lo crea con la fecha actual)
Open "Aquí Pon Dirección completa del archivo" For Output As #1
Write #1,Date(Date)
Close #1
FechaInicio = Date(Date)
Else
Open "Aquí Pon Dirección completa del archivo" For Input As #1
Input #1,FechaInicio
Close #1
End If
FechaFinal = DateValue(Now)
If FechaFinal - DateValue(FechaInicio) > 20 Then
Msgbox "El Programa A Expirado",vbCritical,"Tiempo Expirado"
End
End if
End Sub
Espero que te sirva, si es que no te funciona cambia todos los Date(Date) por
Date(now) y cualquier duda que tengas solo escríbeme.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas