Crea fácilmente descargadores de idiomas

.Versión 2

.Soporte biblioteca downlib

.Soporte biblioteca shell

.Ventana de programa programa 1

.Directorio de variables de Assembly, basado en texto

.Texto de variables de Assembly, tipo de texto

.Nombre de archivo de variables de Assembly, tipo de texto

.Parámetros de descarga de variables de Assembly , Parámetros de tarea

Tarea de descarga de variable de ensamblaje, objeto de descarga

Tamaño de archivo de variable de ensamblaje, tipo decimal de doble precisión

Crear subrutina __Iniciar ventana_

. Se hizo clic en la subrutina _Botón 1_

. Si es verdadero (editbox1.content = "")

Cuadro de mensaje ("Ingrese la URL", 0,)

Retorno ()

.Si es verdadero , luego finaliza

. Si es verdadero (directorio = "")

Cuadro de mensaje ("¡Seleccione una ubicación para guardar!" , 0, )

_Se hizo clic en el _Botón 2_ ()

.End if true

Texto = cuadro de edición 1. Contenido

Nombre de archivo = buscar texto hacia la derecha (texto, buscar longitud del texto (texto) - buscar texto al revés (texto, "/", , false))

Texto = directorio "\" nombre de archivo

Tipo de descarga = #Transferir constantes. Descargar

Descargar parámetro. Número predeterminado de subprocesos = 5

Descargar parámetro. Tiempo de espera de hilo = 1000

Parámetros de descarga. Tiempo de espera de conexión = 5000

Parámetros de descarga. Tiempo de espera de envío = 5003

Descargar parámetros. Tiempo de espera de recepción = 10000

Parámetros de descarga. Tamaño de recepción = 10240

Parámetros de descarga. Función de devolución de llamada interactiva = amp; Función de devolución de llamada interactiva

Reloj 1.Período de reloj = 1000

Descargar parámetros. Dirección del archivo = editbox1.content

Parámetros de descarga. Ruta del archivo local = Texto

Tarea de descarga. Agregar nueva tarea (descargar parámetros)

.Subroutine_Button 2_Clicked

Directorio = Examinar carpeta ("Seleccione la carpeta para guardar", falso)

.Si es verdadero ( Catálogo = "")

Cuadro de mensaje ("¡Seleccione una ubicación para guardar!", 0,)

. Finalizar si es verdadero

. Función de devolución de llamada de interacción de subrutina, número entero

. Tipo de mensaje de parámetro, entero

. Parámetro ThreadInfo, número entero

. Parámetro Parámetro 3, entero

. Parámetro 4, número entero

. Información del objeto de parámetro, número entero

. Empiece a juzgar (tipo de información = #constante de transmisión. Existe un archivo con el mismo nombre)

.

if (cuadro de mensaje ("El archivo ya existe, ¿debo continuar descargándolo?") = botón #Sí)

Devolver (#Transferir constante. syslog)

De lo contrario

Devolver (#Transfer constante. Finalizar descarga)

.if final

. Juicio (Tipo de mensaje = #Constante de transmisión. Descarga y carga iniciadas)

Tamaño del archivo = Parámetro 3

Juicio (Tipo de mensaje = #Constante de transmisión. Descarga y carga completadas)

Cuadro de mensaje ("Completo", #MessageIcon,)

Reloj 1. Período de reloj = 0

Barra de progreso 1. Posición = 0

.Valor predeterminado

.Fin del juicio

Devolución (0)

. Subroutine_clock1_cycle_event

Pestaña 3. título = a texto (redondeado (tarea de descarga. Tomar velocidad de descarga () ÷ 1024, 2)) "kb/seg"

Barra de progreso 1 .posición = tarea de descarga. Tome la duración de la descarga () ÷ tamaño del archivo × 100

--------------------------