Hola, soy nuevo en este foro y queria aportar algo, he creado un actualizador, segun yo es basico, bien abajo estara el ejemplo y el script
Suerte con sus aplicaciones
Aca la otra pagina
Nota: no cambies el nombre del ejemplo, si lo cambias el ejecutable xd.exe (xd) no va a poder renombrar el archivo.
Bueno aca abajo esta el link:
Mediafire:
Google Drive:
Suerte con sus aplicaciones
Nombre = "version.txt"
Destino = _TempFolder
Guardar = Destino.. "\\" ..Nombre
-- Aca se puede poner una descarga de http pero necesitas que no cambie el link de descarga
-- Asi que por eso decidi usar un servidor ftp
FTPWI.Download("ftp://ejemplodeftpxd/version.txt", Guardar, "anonymous", "guest@", MODE_BINARY, 20, 21, true, nil);
Var1 = TextFile.ReadToString(_TempFolder.."\\version.txt");
Var2 = Label.GetText("Label1");
-- Compara lo que text.file leyo con la version actual de la aplicacion
-- Nota: pon un label y luego pones la version sin puntos asi
-- 107 no asi 1.0.7, lo probe y no me funciono, puedes modificar
-- el codigo a tu gusto
if Var2 ~= Var1 then
result = Dialog.Message("Launcher", "Hey, hay una nueva actualizacion quieres descargarla?", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
if result == 6 then
Page.Jump("Page2");
else
Dialog.Message("Launcher", "Bien, si la quieres descargar solo tienes que darle click a actualizar, o bien volver a abrir el launcher", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1)
end
end
Nota: no cambies el nombre del ejemplo, si lo cambias el ejecutable xd.exe (xd) no va a poder renombrar el archivo.
Destino = Dialog.FolderBrowse("Selecciona la carpeta en donde tengas el ejemplo", _DesktopFolder);
Label.SetText("Label3", Destino);
Name = "ejemplo1.exe"
Guardar = (Destino.."\\"..Name);
FTPWI.Download("ftp://ejemploftpxd/launcher.exe", Guardar, "anonymous", "guest@", MODE_BINARY, 20, 21, true, DownloadFunction);
errmsg = "Error #" .. Application.GetLastError().. " in " .. Debug.GetEventContext();
Input.SetText("Input1", errmsg);
Completado = File.DoesExist(Destino.."\\launcher1.exe");
if Completado == true then
FTPWI.Download("ftp://ejemploftpxd/notaslaun.txt", _TempFolder .. "\\notaslaun.txt", "anonymous", "guest@", MODE_BINARY, 20, 21, true, nil);
Dialog.Message("ejemplo", "Descargado :)", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
result = File.Run("AutoPlay\\Docs\\xd.exe", "", "", SW_SHOWNORMAL, false);
Application.Exit(0);
else
err = Dialog.Message("ejemplo", "Un error ha ocurrido, podras ver el codigo de error en el texto de abajo", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
ola = Label.GetText("Label3");
File.Delete(ola.."\\launcher1.exe", false, false, false, nil);
end
Bueno aca abajo esta el link:
Mediafire:
Google Drive: