Bloqueo de colgar de Easy Language. ¿Alguien tiene un código fuente mejor? Se puede romper usando combinaciones de teclas.
.Versión 2
.Ventana de ensamblaje ensamblaje 1
.Contraseña ingresada en la variable de ensamblaje, tipo de texto
.Programa La contraseña establecido por la variable de ensamblaje, tipo de texto
La primera ejecución de la variable de ensamblaje, tipo lógico
. Subrutina __start window_created
Tecla de bloqueo (97, 1). , 0, 0)
Establecer contraseña = Obtener clave de registro de texto ("SYSTEMSET", "SET", "PMM", "")
Si se debe ocultar la ventana = Obtener la clave de registro de valor ("SYSTEMSET", "SET", "DESK", 1)
If (set password = "")
Primeras ejecuciones = True
Siempre visible = False
Botón Desbloquear.Disabled = True
Botón Salir.Disabled = False
Botón Configuración.Disable = False
Botón Establecer.Obtener foco()
Cuadro de información ("¡Este programa aún no se ha configurado, presione el botón de configuración para inicializar el programa!", Icono #Información, "Información:" )
De lo contrario
Si es verdadero (si se oculta la ventana = 1)
Posición = 3
.Si es verdadero, termina
Establezca la posición del mouse()
.Si finaliza
.Subroutine_password box_content se cambia
Ingrese contraseña = Contenido del cuadro de contraseña.
. Se hace clic en el botón Subroutine_Unlock.
.Si (Ingresar contraseña = Establecer contraseña)
Botón Salir.Disable=False
Botón Establecer. Desactivar=False
Siempre visible=False
Tecla de bloqueo (97, 0, 0, 0 )
Cancelar restricción del mouse (0)
Botón Salir. Obtener foco()
De lo contrario
Cuadro de contraseña Obtener foco()
.Si finalizó
Cargar(SettingsWindow, _StartupWindow, True)
.Subrutina_Botón Salir_se hace clic
Fin()
.Subrutina establece la posición del mouse
.Variable local RECT, área del rectángulo
RECT.Left = _Iniciar ventana.Izquierda
RECT.Top = _Iniciar ventana.Borde superior + 30
RECT.Right = _Ventana de inicio .Izquierda + 135
RECT.Bottom = _Ventana de inicio + 128
Restringir el mouse (RECT)
.Versión 2
.Ventana de ensamblaje ensamblaje 2
.Contraseña de variable de ensamblaje 1, tipo de texto
.Contraseña de variable de ensamblaje 2, tipo de texto
.Programa Si la variable ensambladora se ejecuta al inicio, tipo entero, , , 0 significa no, 1 significa sí
La contraseña establecida por la variable ensambladora, tipo texto
. >. Subroutine_setting window_create Complete
Contraseña establecida = Obtener la clave de registro de texto ("SYSTEMSET", "SET", "PMM", "")
Si está iniciado y ejecutar = Obtener la clave de registro numérica ( "SYSTEMSET", "SET", "BEGIN", 0)
Cuadro de edición de contraseña 1. Contenido = establecer contraseña
Cuadro de edición de contraseña 2 Contenido = establecer contraseña
p>.Si (si ocultar la ventana = 1)
Cuadro de selección de escritorio.
= Verdadero
. De lo contrario
Cuadro de selección de escritorio Seleccionado = Falso
Si finaliza
. = 1 )
Ejecute el cuadro de selección Marcado = Verdadero
De lo contrario
Ejecute el cuadro de selección Marcado = Falso
. Si final
p>.Subroutine_Password Edit Box 1_Content se cambia
Contraseña 1 = Contraseña Edit Box 1. Contenido
.Subroutine_Password Edit Box 2_Content Changed
Contraseña 2 = Cuadro de edición de contraseña 2. Contenido
. Se hizo clic en el cuadro de selección Subrutina_Escritorio
Si (si se oculta la ventana = 0)
. Cuadro de selección de escritorio. Marcado = Verdadero
Si se oculta la ventana = 1
De lo contrario
Cuadro de selección de escritorio Seleccionado = Falso. >Si se debe ocultar la ventana=0
.Si finaliza
.Se hace clic en el cuadro de selección de ejecución de subrutina
.Si (si se ejecuta en la computadora = 0)
Ejecutar cuadro de selección. Marcado = Verdadero
Si se debe ejecutar en la computadora = 1
De lo contrario
Ejecutar cuadro de selección marcado. Falso
Si se debe iniciar y ejecutar = 0
Si finaliza
Se hace clic en el botón Subrutina_Guardar
.Si (contraseña 1 = contraseña). 2)
Escribir clave de registro ("SYSTEMSET", "SET", "PMM", contraseña 1)
Escribir clave de registro ( "SYSTEMSET", "SET", "DESK" , si se debe ocultar la ventana)
Escriba claves de registro ("SYSTEMSET", "SET", "BEGIN", si se debe iniciar y ejecutar)
.If (si se debe ejecutar en boot = 1)
Escriba la clave de registro (4, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run\systemkey", obtenga el directorio de ejecución () + "\" + obtenga el nombre del archivo ejecutable() )
. De lo contrario
Elimine la clave de registro (4, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run\systemkey")
.If end
Destruir()
. De lo contrario
Cuadro de información ("¡Confirmar que la contraseña no coincide! ", ICONO #ADVERTENCIA, "¡Contraseña incorrecta! ”)
Cuadro de edición de contraseña 2. Obtener foco ()
Si finaliza
Se hace clic en el botón Subrutina_Cancelar
Destruir()<. /p>
.Versión 2
.Tipo de datos área rectangular
.Miembro Izquierdo, tipo entero
.Miembro Superior, tipo entero
.Miembro Derecha, tipo entero
.Miembro Abajo, tipo entero