Cómo agrupar software en un lenguaje sencillo

¿Puede esto beneficiar a la humanidad? Es solo que escribí el software de respaldo Butler antes y tiene la misma naturaleza, así que lo publicaré directamente para su referencia

'-------------- ---------- ---------------------------------------- ---------- ---- ------------------------------------ -----

. Versión 2

. Biblioteca de shell de soporte

. Subprogram_Button1_Clicked

Variable local Texto temporal, tipo de texto

Texto temporal = Explorar carpeta (. "Seleccione un directorio para Butler 7.2", falso)

. Si es verdadero (texto temporal ≠"")

Cuadro de edición 1.content = texto temporal

. Se inicia el juicio (si el archivo existe (texto temporal + "\GRASPP.DLL") = Falso)

Cuadro de mensaje ("La instalación falló, el directorio actual no es el directorio de Butler 7.2, ¡seleccione nuevamente!" , 0, " ¡Aviso! ")

.

.Default

.If true(MessageBox("¿Quieres instalar herramientas de accesibilidad ahora?", #SíBotón, "¡Pista!") = #es un botón)

.Inicio de juicio (Escribir en archivo (Texto temporal + "\data\M2C.DBF", #Contraseña inicial) = Falso)

Cuadro de mensaje ("Error en la instalación, asegúrese de que el Butler actual no se esté utilizando y vuelva a intentarlo!" , 0, "¡Pista!" = Botón #Sí)

., 0, "Pista!" )

.Sentencia (Escribir en archivo (texto temporal + "\backup.exe", # programa principal) = falso)

Cuadro de mensaje ("Error de instalación, ¡Asegúrese de que el Butler actual no se esté utilizando y vuelva a intentarlo!" , 0, "¡Avisar!")

., 0, "Avisar ")

.

Predeterminado

Cuadro de mensaje ("Instalación exitosa, ¡la contraseña inicial del asistente es 88888888!", 0, "¡Pregunta!")

Fin ()

. Confirmar para finalizar

.Finalizar si es verdadero

.Fin del juicio

.Finalizar si es verdadero

'---- ----- --------------------------------------------- ----- ---

.Versión 2

.Imagen contraseña inicial

.Imagen programa principal