Foro Especializado en Autoplay Media Studio y más...
http://www.amsspecialist.com/
Cacá escribió: Hola a todos, pido disculpas de antemano por el español, ya que estoy usando traductor. Quiero crear un menú para instaladores, donde primero selecciono cada instalador que quiero y luego hago clic en un solo botón y todos esos instaladores seleccionados se instalarán más o menos como en la imagen a continuación. ¿Alguien puede darme algo de ayuda?
En esta línea está claro dónde debes añadir tu ejecutador. Te la dejo comentada.Cacá escribió: ↑22 Nov 2023 21:50Muchas gracias, eso es exactamente lo que quiero, muchas gracias chicos. R Landaeta intenté editar tu proyecto para que fuera más como quería, más simple y logré hacerlo, pero no pude agregar ni vincular los instaladores que quiero, así que te pregunto, ¿cómo hago eso? No entiendo mucho sobre Lua
Text = ListBoxEx.Find("ListBoxEx", "Dropbox 40.4.46", LBXFIND_TEXT);
if Text ~= nil then
Label.SetText("Label_App_Install", "Instalando Dropbox, por favor espere...");
--En esta línea desdes añadir tu ejecutador.
Shell.Execute("AutoPlay\\Docs\\Almacenamiento en Línea\\Dropbox 40.4.46\\Dropbox 40.4.46 Offline Installer.exe", "open", "/S", "", SW_SHOWNORMAL, true);
x = x + 1
Label.SetText("Label_0/0", x.."/"..TotalItems);
Progress.SetCurrentPos("ProgressBar", x);
end
Hola, en Propiedades de la ListBoxEx puedes cambiar los colores: Doble clic > Ajustes > PropiedadesCacá escribió: ↑24 Nov 2023 14:28Buen día. Ya estoy muy avanzado con mi menú de instalación, he tenido algunas dudas, lo cual es normal, pero hasta ahora he logrado resolverlas todas, excepto una, no puedo cambiar el color de fuente donde están las aplicaciones. m que voy a instalar están seleccionados (ListBoxEx). ¿Alguien puede explicarme cómo hago esto?
Código: Seleccionar todo
-------------------------------------------Google Chrome-----------------------------------------------------------------
Text = ListBoxEx.Find("ListBoxEx", "Google Chrome", LBXFIND_TEXT);
if Text ~= nil then
if Arq == true then
Label.SetText("Label_App_Install", "Instalando Google Chrome x64, por favor espere...");
Shell.Execute("AutoPlay\\Docs\\Navegadores\\ChromeStandaloneSetup64.exe", "open", "/quiet /norestart", "", SW_SHOWNORMAL, true);
x = x + 1
Label.SetText("Label_0/0", x.."/"..TotalItems);
Progress.SetCurrentPos("ProgressBar", x);
else
Label.SetText("Label_App_Install", "Instalando Google Chrome x32, por favor espere...");
Shell.Execute("AutoPlay\\Docs\\Navegadores\\ChromeStandaloneSetup.exe", "open", "/quiet /norestart", "", SW_SHOWNORMAL, true);
x = x + 1
Label.SetText("Label_0/0", x.."/"..TotalItems);
Progress.SetCurrentPos("ProgressBar", x);
end
endCódigo: Seleccionar todo
Shell.Execute("AutoPlay\\Docs\\Navegadores y Buscadores\\Google Chrome\\googlechromestandaloneenterprise64.msi", "open", "/qb /norestart", "", SW_SHOWNORMAL, true);
Shell.Execute("AutoPlay\\Docs\\Taskkill\\CloseSearch.exe", "open", "", "", SW_SHOWNORMAL, true);El código lo debes colocar en los botones que pinchas para añadirl los programas a la lista.
Cacá escribió: ↑25 Nov 2023 21:40Gracias, lo corregí aquí, ya no causaba el error de sintaxis, pero aún así no funcionó, mi intención es cambiar el color de fuente de negro a azul o verdadero. Hice un video de como lo hice aquí, creo que todavía estoy haciendo algo mal, a ver si puedes verlo.
https://pixeldrain.com/u/xUe7xwTq
Código: Seleccionar todo
------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------
ListBoxEx.AddItem("Plugin1", "<font color=#1ef28c face=Calibri size=4>Mozilla Firefox</font>", "", "", "", 1, LBXITEM_HTML, 0, nil, nil, nil);
Text = xButton.GetText("xButton1");
if Text ~= 'Sin aplicación' then
if Text == 'Messenger 2.0.9' then
Buscar = ListBoxEx.Find("ListBoxEx", xButton.GetText("xButton1"), LBXFIND_TEXT);
if Buscar == nil then
Dialog.Message("AIO-LACD Community", "Messenger requiere del Complemento NET Framework 4.6.2 para su instalación. Si ya cuenta con este complemento en su equipo, omita este mensaje.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON3);
ListBoxEx.AddItem("ListBoxEx", "<font color=##1ef28c face=Calibri size=4>"..xButton.GetText(this).."</font>", "", "", "", 0, LBXITEM_HTML, 0, nil, nil, nil);
else
ListBoxEx.DeleteItem("ListBoxEx", Buscar[1]);
end
ListBoxEx.Sort("ListBoxEx", LBXSORT_ASC);
else
Buscar = ListBoxEx.Find("ListBoxEx", xButton.GetText("xButton1"), LBXFIND_TEXT);
if Buscar == nil then
ListBoxEx.AddItem("ListBoxEx", xButton.GetText("xButton1"), "", "", "", 0, LBXITEM_HTML, 0);
else
ListBoxEx.DeleteItem("ListBoxEx", Buscar[1]);
end
ListBoxEx.Sort("ListBoxEx", LBXSORT_ASC);
end
endCódigo: Seleccionar todo
Text = xButton.GetText("xButton2");
if Text ~= 'Sin aplicación' then
Buscar = ListBoxEx.Find("ListBoxEx", xButton.GetText("xButton2"), LBXFIND_TEXT);
if Buscar == nil then
ListBoxEx.AddItem("ListBoxEx", "<font color=#1ef28c face=Calibri size=4>"..xButton.GetText(this).."</font>", "", "", "", 0, LBXITEM_HTML, 0, nil, nil, nil);
else
ListBoxEx.DeleteItem("ListBoxEx", Buscar[1]);
end
ListBoxEx.Sort("ListBoxEx", LBXSORT_ASC);
endCódigo: Seleccionar todo
------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------
OS = System.GetOSName();
Text = xButton.GetText("xButton3");
if Text ~= 'Sin aplicación' then
if Text == 'PaintNET 4.0.19' then
Buscar = ListBoxEx.Find("ListBoxEx", xButton.GetText("xButton3"), LBXFIND_TEXT);
if Buscar == nil then
Dialog.Message("AIO-LACD Community", "PaintNET requiere del Complemento NET Framework 4.6.2 para su instalación. Si ya cuenta con este complemento en su equipo, omita este mensaje.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON3);
ListBoxEx.AddItem("ListBoxEx", xButton.GetText("xButton3"), "", "", "", 0, LBXITEM_HTML, 0);
else
ListBoxEx.DeleteItem("ListBoxEx", Buscar[1]);
end
ListBoxEx.Sort("ListBoxEx", LBXSORT_ASC);
else
if Text == 'Microsoft Essential Security' then
if OS == 'Windows 8' or OS == 'Windows 8.1' or OS == 'Windows Server 2012' or OS == 'Windows Server 2012 R2' or OS == 'Windows 10' or OS == 'Windows Server 10' then
Dialog.Message("AIO-LACD Community", "!Lo sentimos! Microsoft Essential Security no es compatible con esta versión de Windows. Lo invitamos a que seleccione otra aplicación de protección contra amaenazas.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON3);
else
Buscar = ListBoxEx.Find("ListBoxEx", xButton.GetText("xButton3"), LBXFIND_TEXT);
if Buscar == nil then
ListBoxEx.AddItem("ListBoxEx", xButton.GetText("xButton3"), "", "", "", 0, LBXITEM_HTML, 0);
else
ListBoxEx.DeleteItem("ListBoxEx", Buscar[1]);
end
ListBoxEx.Sort("ListBoxEx", LBXSORT_ASC);
end
else
Buscar = ListBoxEx.Find("ListBoxEx", xButton.GetText("xButton3"), LBXFIND_TEXT);
if Buscar == nil then
ListBoxEx.AddItem("ListBoxEx", "<font color=#1ef28c face=Calibri size=4>"..xButton.GetText(this).."</font>", "", "", "", 0, LBXITEM_HTML, 0, nil, nil, nil);
else
ListBoxEx.DeleteItem("ListBoxEx", Buscar[1]);
end
ListBoxEx.Sort("ListBoxEx", LBXSORT_ASC);
end
end
end
Si, los códigos son distintos porque tienen distintas condiciones, en el Botón 1 se busca el texto "Messenger 2.0.9", ya que necesita una aplicación extra para que funcione bien y te avisa con un "Dialog.Message".