Cómo implementar el límite de tiempo de uso del software en vb

1) Después de un período de prueba determinado, cada vez que se inicia el sistema, determinará cuántos días se ha utilizado el software, cuántos días están disponibles y cuántos veces que se ha iniciado.

2) Cuando la fecha del sistema se cambia a una fecha anterior, el sistema puede reconocer y deshabilitar automáticamente el cambio de fecha, impidiendo el inicio normal.

3) Durante el periodo de prueba solo se mostrará información y no se iniciará el programa. B: Idea simple

1) Cuando el sistema se ejecuta por primera vez, cree un archivo de base de datos en un lugar oculto (como: c:\windows\system) para registrar información del sistema, como la fecha. .mdb, usando una fecha de tabla, hay tres campos first_time, last_time y times. Entre ellos, first_time es la fecha en que se inicia el sistema por primera vez, es decir, el primer día del período de prueba es la hora en que se inicia el sistema. se inició por última vez y times es el momento para registrar la frecuencia de inicio del sistema.

2) Cada vez que se inicia el sistema, detectará la fecha actual y la última hora para comparar si la fecha actual (como 09/00/30) es anterior a la última hora (como 10/00/). 01), la fecha del sistema. El mensaje se muestra después del retraso y el sistema no se inicia. Vaya al paso tres.

3) Saque first_time en la base de datos y réstelo de la fecha actual para ver si está dentro del período de días. Si es así, vaya al paso 4; de lo contrario, se muestra un mensaje y el sistema no se inicia.

4) Modifique el campo last_time de la base de datos a la fecha actual para mostrar que el sistema se ha utilizado e inicie el sistema normalmente.

Bien, he hablado mucho sobre un sistema grande. Creo que todos deben entenderlo. No es difícil, como dije, no es necesario modificar el registro del sistema. . Mientras date.mdb esté oculto para que no sea descubierto, todo estará bien. Y puede agregar una contraseña a esta base de datos y luego cambiar los nombres de los campos first_time, last_time y times más allá del reconocimiento. Incluso si un experto descubre esta base de datos y descifra la contraseña, no sabrá el significado de estos tres campos. Y esta base de datos es un archivo que viene con el software Jaja, no hablemos más de eso, echemos un vistazo a mi código fuente:

En tu

proyecto, úsalo. SUB PRINCIPAL( ) para iniciar el programa.

(Qué, cómo configurarlo, jaja, "Proyecto"==> "Propiedades del proyecto"==> "Formulario de inicio")

Sub main()

En caso de error Ir a error

'El sistema detecta si existe un archivo date.mdb, si no es así, esta es la primera vez que se inicia el sistema, por lo que se creará el archivo

Si Dir() , entonces es la primera vez que se inicia, luego se creará

Si Dir(), es la primera vez que se inicia, y se creará

Si Dir() , es la primera vez que arranca y se crea

Si Dir(), es la primera vez que arranca y se crea

Si Dir() , es la primera vez que se inicia y se crea

Si Dir(), es la primera vez que se inicia.p>If Dir("c:\windows\system \date. mdb") = """

'Tenga en cuenta que al principio, debe asegurarse de que su proyecto haga referencia a la biblioteca de compatibilidad de Microsoft dao 2.5/3.5 en "Proyecto"==> "Referencias ". /p>

Atenuar WS como espacio de trabajo

Atenuar DB como base de datos

Atenuar TD como Tabledef

Atenuar FLD como campo

Dim IDX como índice

Dim rd como conjunto de registros

Establecer biblioteca de compatibilidad

Establecer WS = DBEngine.Workspaces(0)

Establecer DB = WS.CreateDatabase("c:\windows\system\date.mdb", dbLangGeneral)

DB.Connect = ";.pwd=andy"

Establecer TD = DB.CreateTableDef("fecha")

TD.Attributes = 0

TD.Connect = ""

TD.SourceTableName = ""

TD.ValidationRule = ""