Red de conocimiento informático - Aprendizaje de código fuente - El software escrito en Easy Language requiere un código de activación al abrirlo, pero no la segunda vez. ¿Qué debo hacer?

El software escrito en Easy Language requiere un código de activación al abrirlo, pero no la segunda vez. ¿Qué debo hacer?

.Versión 2

.Soporte biblioteca de scripts

.Soporte biblioteca eAPI

.Programa Windows programa 1, , , para ahorrar tiempo Ahorre esfuerzo, escribí el código de registro juntos, puede probarlo usted mismo

Código de registro de variable ensambladora, tipo de texto, adecuado para software normal

. , Tipo lógico, adecuado para software general

Subrutina __Launch Window_Create_Complete, , adecuado para software general

Cuadro de edición 1. contenido = a texto (tomar valor absoluto (tomar disco duro). personaje ()) + 20100714)?' 20100714 Este valor lo puedes tener

Registrar juicio ()? 'Compruebe si está registrado. Asignar a la variable: si está registrado

. ¿Empezar a juzgar (si está registrado = verdadero)? ' Este criterio se puede utilizar cuando se requieren restricciones

_Ventana de inicio.Title = "El software ha sido registrado"

.Default

_Ventana de inicio. Título = "Software no registrado"

. El juicio finaliza

. Juicio de registro de subrutina, , adecuado para software ordinario

Componente de script 1. Ejecución (#md5)

.Si (Existe el elemento de registro) (3, "Software\mysoft\config") = Verdadero)

Código de registro = Obtener elemento de registro de texto (3, "Software\mysoft\config ", )

.If ( código de registro = en mayúsculas (componente de script 1.run ("md5", cuadro de edición 1.contents))

Si se debe registrar = verdadero

De lo contrario

Si se registra = false

Si termina

En caso contrario

Si se registra = false

Si termina

. Se hace clic en la subrutina _botón Registrar_, , , adecuado para software normal

.If (cuadro de edición 2.content = Registrar cálculo ())

Cuadro de mensaje (" El registro se realizó correctamente, simplemente vuelva a abrir el software " , 0, )

Escriba la entrada de registro (3, "Software\mysoft\config", cuadro de edición 2.content)

Destruya. ()

. En caso contrario

cuadro de mensaje ("Error de registro", 0,)

Si finaliza

Cálculo de registro. , tipo de texto, adecuado para software normal

Componente de script 1.run (#md5)

Devuelve mayúsculas (componente de script 1.run ("md5", cuadro de edición 1 Contenido. )

.Subroutine_button1_clicked, , , para registrarse

Componente de script 1.ejecutar (#md5)

Cuadro de edición 4.content = a mayúsculas (Componente de script 1. ejecutar ("md5", cuadro de edición 3.contenido))

.