Escribiendo automáticamente Yi Language, le pedí que se detuviera, pero insistió en hacerlo. ¿Cómo configurarlo? Quiero el código fuente.

.Versión 2

.Biblioteca de soporte shellEx

.¿Biblioteca de soporte? ¿Asamblea? Ensamblaje de Windows 1

.Variables de ensamblaje ?Variables de ensamblaje ?Ocultar Mostrar teclas de acceso rápido, entero

.Variables de programa ?Teclas de acceso rápido Iniciar/Detener,? Entero

. El programa establece variables?Parada,?Tipo lógico

. ¿Subrutina? ___Ventana de inicio_Creada

Ocultar Mostrar teclas de acceso rápido=?¿Registrar teclas de acceso rápido? (_Iniciar ventana. ¿Obtener el identificador de la ventana?(),?Tab1.(),?0,?#F1 key)

¿Tecla de acceso rápido Iniciar y detener?Registre la tecla de acceso rápido (_Iniciar ventana. ¿Obtener el identificador de la ventana?( ) ,?Tab 1. (),?0,?#F2 tecla)

i = ?1

Detener = ?False

.Subrutina _clock1_cycle evento

reloj1.periodo de reloj = 0

. If (i = 1)

Colocar texto del portapapeles (cuadro de edición 1. (cuadro de edición 1. contenido)

. En caso contrario

. If (i? = ?2)

¿Colocar texto en el portapapeles? (cuadro de edición 2. contenido)

De lo contrario

.If (i?=?3)

¿Colocar texto del portapapeles? (cuadro de edición 3. contenido)

De lo contrario

si (i?=?4)

Colocar portapapeles. ¿texto?(editar cuadro 4. contenido)

De lo contrario

if (i?=?5)

¿Colocar texto en el portapapeles?(editar cuadro 5. Contenido )

En caso contrario

.Si final

.Si final

.Si final

.Si final

.If end

i?=?i?1

Si es verdadero? (i?>?5)

i ?=?0

.Si es verdadero, finalice

Si es verdadero, finalice

(Obtener texto del portapapeles(). ? = ?"")

Reloj 1.()

De lo contrario

Simular teclas (tecla #Ctrl, tecla #V, ?)

Simular teclas (# Introduzca clave,?,?)

Retraso (¿para valorar? (cuadro de edición 6. contenido) ?×?1000)

Reloj 1. Período de reloj=?100

.If end

. La subrutina hace clic en _Botón 1_

.If (button1.title = "Iniciar")

Botón 1.Title = "Detener". "

."Stop"

Reloj 1. ¿Período de reloj? = ?100

¿Parar? = ?True

_Iniciar ventana. ¿Visible?Falso

De lo contrario

Botón 1.título =?"Inicio"

Reloj 1.Falso

_Ventana de inicio.Visible ?Falso

.Si finaliza

. Subrutina _label1_feedback_event, ? Entero

. Parámetro uno, entero

.

¿Parámetro dos? ¿Parámetro dos? Entero

. (Parámetro 1 = Ocultar tecla de acceso rápido de visualización)

. ¿Si es cierto? (_Iniciar ventana. ¿Visualizar? = ? Verdadero)

_Iniciar ventana.Visualizar?Visualizar? Falso

. En caso contrario

_Launch Window.Visual?Visual? = ?True

.Si final

. Si es verdadero final

. ¿Si es verdadero? (Parámetro uno? =? Tecla de acceso directo Iniciar y detener)

_Button1_was_clicked ()

Si es verdadero, finalice.