Crea fácilmente un lenguaje que diga "Soy un cerdo" y cerrará el código fuente en 1 minuto si no lo dices (él dice que estará bien)
.Versión 2 p>
.Ventana de ensamblaje ensamblaje 1
.Variable de ensamblaje Cerdo, tipo de texto
.Variable de ensamblaje Cuenta regresiva, entero
.Sub ejemplo Programa__Inicio Ventana_Creada
Cuenta regresiva = 60
Reloj 1. Ciclo de reloj = 200
Cuadro de entrada ("Por favor, ingresa que eres un cerdo, y si cometes un error. El ¡las consecuencias corren bajo tu propio riesgo! ", "Por favor ingresa eres un cerdo", "perra", cerdo, 1)
. Comienza el juicio (cerdo ≠ "eres un cerdo")
reloj2. Período de reloj = 1000
Predeterminado
. El juicio finaliza
. Subrutina __Ventana de inicio_Puede_cerrarse, tipo lógico
devuelve (falso)
. Evento subrutina _clock1_cycle
. Confirmar inicio (si el proceso existe ("taskmgr.exe") = verdadero)
Fin del proceso (obtener ID del proceso ("taskmgr.exe"))
.Default
. Se acabó el juicio
. Determine el inicio (si el proceso existe ("procmgrex.exe") = verdadero)
El proceso finaliza (obtenga el ID del proceso ("procmgrex.exe"))
.Default
.Sentencia finalizada
. Evento de subrutina _clock2_cycle
Cuenta regresiva = Cuenta regresiva - 1
Se inicia el juicio (cuenta regresiva ≤ 0)
Apagar el sistema (1, verdadero)
..Valor predeterminado
.Fin del juicio
--------- ---------- ------- - -- ---------- ---