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 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))
.