Updater basico

Todas los scripts relacionados con AMS.
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

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", "[email protected]", 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
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.
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", "[email protected]", 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", "[email protected]", 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:
HIDE: ON
Hidebb Message Hidden Description


Google Drive:
HIDE: ON
Hidebb Message Hidden Description
nice share... thanks and keep safe..
gracias. very good
Gracias
nice share thsnk
XtremeTHN23 escribió:
09 Sep 2021 15:31
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

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", "[email protected]", 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
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.
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", "[email protected]", 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", "[email protected]", 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:
{{This message has been hidden}}


Google Drive:
{{This message has been hidden}}
nada mal
gracias
tesitng
UserAMS escribió:
26 Mar 2022 20:00
nada mal

jeje gracias
Estaba buscando un ejemplo para usar diálogo.message mb_yesno, muchas gracias.