#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=..\oemlogo.ico #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include #include #include #include #include #include GUICreate("Instalador Universal CCG Plus",587,530,5,5) GUISetIcon("oemlogo.ico") ####################################################################################################################### ;Botones DEFAULT, NINGUNO, COMENZAR y SALIR Global $PosArB = 33, $AncB = 75, $AltB = 25 Global $Color1 = 0x6699FF, $Form1 = $WS_DLGFRAME $BtnDfct = GUICtrlCreateButton("Por Defecto",260,$PosArB,$AncB,$AltB,$Form1) GUICtrlSetBkColor($BtnDfct,$Color1) $BtnNngn = GUICtrlCreateButton("Ninguno",340,$PosArB,$AncB,$AltB,$Form1) GUICtrlSetBkColor($BtnNngn,$Color1) $BtnCmnzr = GUICtrlCreateButton("Comenzar",420,$PosArB,$AncB,$AltB,$Form1) GUICtrlSetBkColor($BtnCmnzr,$Color1) $BtnSlr = GUICtrlCreateButton("Salir",500,$PosArB,$AncB,$AltB,$Form1) GUICtrlSetBkColor($BtnSlr,$Color1) $Fin = GUICtrlCreateCheckbox("Cerrar el instalador al Finalizar la instalación", 15, 468, 238, 20,$Form1) ####################################################################################################################### ;Información de la instalación $CantidadProgramas = GUICtrlCreateLabel("0 de 0", 5, 500, 70, 25,$Form1) GUICtrlSetFont(-1, 12, 400, 0, "Arial") GUICtrlSetColor(-1, 0x0000FF) $Porcentaje = GUICtrlCreateLabel("0 %", 523, 500, 60, 25,$Form1) GUICtrlSetFont(-1, 12, 400, 0, "Arial") GUICtrlSetColor(-1, 0x0000FF) $BarraProgreso = GUICtrlCreateProgress(80, 500, 498-60, 25) ####################################################################################################################### ;Linea de la información general Global $PoIzInf = 260, $LarInf = 315, $ClrInf = 0x99CCFF, $Form2 = $WS_DLGFRAME&$SS_CENTER $Info1 = GUICtrlCreateLabel("Seleccione el o los programas que desea instalar, o haga CLIC en el Boton < ADD > para agregar un programa al instalador", $PoIzInf, 65, $LarInf, 33,$Form2) $So = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName") $SP = @OSServicePack $OA = @OSArch If $OA = "X86" Then $OA = "32 Bits" Else $OA = "64 Bits" EndIf $Info2 = GUICtrlCreateLabel("Info General:" & @CRLF & "Sistema Operativo: "& $So &"....."& $SP & @CRLF & "Arquitectura de: " &$OA, $PoIzInf, 100, $LarInf, 48,$Form2) $User = @UserName $Org = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization") $NPc = @ComputerName $IP = @IPAddress1 $Info3 = GUICtrlCreateLabel("Usuario: "& $User &"....."& "Organización: " & $Org & @CRLF & "Nombre en RED: " & $NPc & _ "....." & "IP: " & $IP, $PoIzInf, 150, $LarInf, 33,$Form2) Global Const $aDias[7] = ["Domingo", "Lunes", "Martes", "Miercoles", "Jueves", "Viernes", "Sabado"] ;array para los dias Global Const $aMes[12] = ["Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"] $Dia = @WDAY $Dia = $aDias[$Dia - 1] $Fch = @MDAY $Mes = $aMes[@MON - 1] $Yr = @YEAR $Hr = @HOUR $AP = $Hr If $AP >= 13 Then $AP = "PM" Else $AP = "AM" EndIf If $Hr >= 13 And $Hr <= 24 Then $Hr -= 12 $Time = $Hr & " : " & @MIN $Info4 = GUICtrlCreateLabel($Dia & " " & $Fch &" de "& $Mes & " " & $Yr & "....... Hora de inicio..." &$Time& _ " "& $AP, $PoIzInf, 185, $LarInf, 17,$Form2) ####################################################################################################################### ;Lee la info de la PC $Read1 = IniRead(@SystemDir&"\OEMINFO.INI","Support Information","line1","Instalador Universal CCG Plus") $Read2 = IniRead(@SystemDir&"\OEMINFO.INI","Support Information","line2","") $Read3 = IniRead(@SystemDir&"\OEMINFO.INI","Support Information","line3","Este Software fue creado por W.B.D."& _ " para la instalacion desatendida de programas, Seleccione los programas que desea instalar y haga clic en el boton [[COMENZAR]]") $Read4 = IniRead(@SystemDir&"\OEMINFO.INI","Support Information","line4","") $Read5 = IniRead(@SystemDir&"\OEMINFO.INI","Support Information","line5","Para agregar programas al instalador haga clic en "& _ "el boton [[ADD]] y seleccione el programa que desea agregar") $Read6 = IniRead(@SystemDir&"\OEMINFO.INI","Support Information","line6","") $Read7 = IniRead(@SystemDir&"\OEMINFO.INI","Support Information","line7","Para mas Información E-Mail wbueso@hotmail.com") $Read8 = IniRead(@SystemDir&"\OEMINFO.INI","Support Information","line8","") $Read9 = IniRead(@SystemDir&"\OEMINFO.INI","Support Information","line9","Copyright ® Enero 2014") $Read10 = IniRead(@SystemDir&"\OEMINFO.INI","Support Information","line10","") $Read11 = IniRead(@SystemDir&"\OEMINFO.INI","Support Information","line11","") $Read12 = IniRead(@SystemDir&"\OEMINFO.INI","Support Information","line12","") $Info5 = GUICtrlCreateLabel($Read1& @CRLF &$Read2& @CRLF &$Read3& @CRLF &$Read4& @CRLF & _ $Read5& @CRLF &$Read6& @CRLF &$Read7& @CRLF &$Read8& @CRLF &$Read9& @CRLF &$Read10& @CRLF & _ $Read11& @CRLF &$Read12,$PoIzInf,204,$LarInf,160,$Form2) GUICtrlSetBkColor($Info1,$ClrInf) GUICtrlSetBkColor($Info2,$ClrInf) GUICtrlSetBkColor($Info3,$ClrInf) GUICtrlSetBkColor($Info4,$ClrInf) GUICtrlSetBkColor($Info5,$ClrInf) ####################################################################################################################### ;Imagenes GUICtrlCreatePic(@SystemDir&"\oemlogo.bmp",$PoIzInf,368,150,120,$Form1) GUICtrlCreatePic(@ScriptDir&"\oemlogo.bmp",$PoIzInf+165,368,150,120,$Form1) ####################################################################################################################### GUICtrlCreateTab(5,5,580,490) ####################################################################################################################### ;Botones y CheckBox Global $AnchBx = 200, $AltBx = 20, $AnchBtn = 35, $AltBtn = 18, $PosIzBx = 15, $PosIzBtn = 217, $ArrTds = 440 Global $Txt = "ADD", $Read1 = "Programa", $nMsg, $AltBx1 = 25, $ClrTd = 0x6699FF, $Todo1, $Txt2 = "" ####################################################################################################################### ;Tab Configuraciónes GUICtrlCreateTabItem("Configuraciones") Global $Btns1[20] Global $Ini1 = 33 For $i = 0 to UBound($Btns1) -1 $Btns1[$i] = GUICtrlCreateButton($Txt,$PosIzBtn,$Ini1,$AnchBtn,$AltBtn,$WS_BORDER) $Ini1 += 20 GUICtrlSetBkColor($Btns1[$i],0x6699FF) Next Global $ChckBx1[20] Global $Ini1 = 32 For $i = 0 to UBound($ChckBx1) -1 $ChckBx1[$i] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Programas.ini",$Btns1[$i],"Nombre Archivo",$Txt2),$PosIzBx,$Ini1,$AnchBx,$AltBx,$Form1) $Ini1 += 20 GUICtrlSetBkColor($ChckBx1[$i],0x99CCFF) Next $Todo1 = GUICtrlCreateButton("Seleccionar todas las Configuraciones",$PosIzBx,$ArrTds,238,$AltBx1,$Form1) GUICtrlSetBkColor($Todo1,$ClrTd) ####################################################################################################################### ;Tab Aplicaciónes GUICtrlCreateTabItem("Aplicaciones") Global $Btns2[20] Global $Ini2 = 33 For $i = 0 to UBound($Btns2) -1 $Btns2[$i] = GUICtrlCreateButton($Txt,$PosIzBtn,$Ini2,$AnchBtn,$AltBtn,$WS_BORDER) $Ini2 += 20 GUICtrlSetBkColor($Btns2[$i],0x6699FF) Next Global $ChckBx2[20] Global $Ini2 = 32 For $i = 0 to UBound($ChckBx2) -1 $ChckBx2[$i] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Programas.ini",$Btns2[$i],"Nombre Archivo",$Txt2),$PosIzBx,$Ini2,$AnchBx,$AltBx,$Form1) $Ini2 += 20 GUICtrlSetBkColor($ChckBx2[$i],0x99CCFF) Next $Todo2 = GUICtrlCreateButton("Seleccionar todas las Aplicaciones",$PosIzBx,$ArrTds,238,$AltBx1,$Form1) GUICtrlSetBkColor($Todo2,$ClrTd) ####################################################################################################################### ;Tab Oficina GUICtrlCreateTabItem("Oficina") Global $Btns3[20] Global $Ini3 = 33 For $i = 0 to UBound($Btns3) -1 $Btns3[$i] = GUICtrlCreateButton($Txt,$PosIzBtn,$Ini3,$AnchBtn,$AltBtn,$WS_BORDER) $Ini3 += 20 GUICtrlSetBkColor($Btns3[$i],0x6699FF) Next Global $ChckBx3[20] Global $Ini3 = 32 For $i = 0 to UBound($ChckBx3) -1 $ChckBx3[$i] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Programas.ini",$Btns3[$i],"Nombre Archivo",$Txt2),$PosIzBx,$Ini3,$AnchBx,$AltBx,$Form1) $Ini3 += 20 GUICtrlSetBkColor($ChckBx3[$i],0x99CCFF) Next $Todo3 = GUICtrlCreateButton("Seleccionar todos los programas de Oficina",$PosIzBx,$ArrTds,238,$AltBx1,$Form1) GUICtrlSetBkColor($Todo3,$ClrTd) ####################################################################################################################### ;Tab Reproductores GUICtrlCreateTabItem("Reproductores") Global $Btns4[20] Global $Ini4 = 33 For $i = 0 to UBound($Btns4) -1 $Btns4[$i] = GUICtrlCreateButton($Txt,$PosIzBtn,$Ini4,$AnchBtn,$AltBtn,$WS_BORDER) $Ini4 += 20 GUICtrlSetBkColor($Btns4[$i],0x6699FF) Next Global $ChckBx4[20] Global $Ini4 = 32 For $i = 0 to UBound($ChckBx4) -1 $ChckBx4[$i] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Programas.ini",$Btns4[$i],"Nombre Archivo",$Txt2),$PosIzBx,$Ini4,$AnchBx,$AltBx,$Form1) $Ini4 += 20 GUICtrlSetBkColor($ChckBx4[$i],0x99CCFF) Next $Todo4 = GUICtrlCreateButton("Seleccionar todos los Reproductores",$PosIzBx,$ArrTds,238,$AltBx1,$Form1) GUICtrlSetBkColor($Todo4,$ClrTd) ####################################################################################################################### ;Tab Editores GUICtrlCreateTabItem("Editores") Global $Btns5[20] Global $Ini5 = 33 For $i = 0 to UBound($Btns5) -1 $Btns5[$i] = GUICtrlCreateButton($Txt,$PosIzBtn,$Ini5,$AnchBtn,$AltBtn,$WS_BORDER) $Ini5 += 20 GUICtrlSetBkColor($Btns5[$i],0x6699FF) Next Global $ChckBx5[20] Global $Ini5 = 32 For $i = 0 to UBound($ChckBx5) -1 $ChckBx5[$i] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Programas.ini",$Btns5[$i],"Nombre Archivo",$Txt2),$PosIzBx,$Ini5,$AnchBx,$AltBx,$Form1) $Ini5 += 20 GUICtrlSetBkColor($ChckBx5[$i],0x99CCFF) Next $Todo5 = GUICtrlCreateButton("Seleccionar todos los Editores",$PosIzBx,$ArrTds,238,$AltBx1,$Form1) GUICtrlSetBkColor($Todo5,$ClrTd) ####################################################################################################################### ;Tab Programación GUICtrlCreateTabItem("Programacion") Global $Btns6[20] Global $Ini6 = 33 For $i = 0 to UBound($Btns6) -1 $Btns6[$i] = GUICtrlCreateButton($Txt,$PosIzBtn,$Ini6,$AnchBtn,$AltBtn,$WS_BORDER) $Ini6 += 20 GUICtrlSetBkColor($Btns6[$i],0x6699FF) Next Global $ChckBx6[20] Global $Ini6 = 32 For $i = 0 to UBound($ChckBx6) -1 $ChckBx6[$i] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Programas.ini",$Btns6[$i],"Nombre Archivo",$Txt2),$PosIzBx,$Ini6,$AnchBx,$AltBx,$Form1) $Ini6 += 20 GUICtrlSetBkColor($ChckBx6[$i],0x99CCFF) Next $Todo6 = GUICtrlCreateButton("Selecionar todos los de Programacion",$PosIzBx,$ArrTds,238,$AltBx1,$Form1) GUICtrlSetBkColor($Todo6,$ClrTd) ####################################################################################################################### ;Tab Complementos GUICtrlCreateTabItem("Complementos") Global $Btns7[20] Global $Ini7 = 33 For $i = 0 to UBound($Btns7) -1 $Btns7[$i] = GUICtrlCreateButton($Txt,$PosIzBtn,$Ini7,$AnchBtn,$AltBtn,$WS_BORDER) $Ini7 += 20 GUICtrlSetBkColor($Btns7[$i],0x6699FF) Next Global $ChckBx7[20] Global $Ini7 = 32 For $i = 0 to UBound($ChckBx7) -1 $ChckBx7[$i] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Programas.ini",$Btns7[$i],"Nombre Archivo",$Txt2),$PosIzBx,$Ini7,$AnchBx,$AltBx,$Form1) $Ini7 += 20 GUICtrlSetBkColor($ChckBx7[$i],0x99CCFF) Next $Todo7 = GUICtrlCreateButton("Seleccionar todos los Complementos",$PosIzBx,$ArrTds,238,$AltBx1,$Form1) GUICtrlSetBkColor($Todo7,$ClrTd) ####################################################################################################################### ;Tab Herramientas GUICtrlCreateTabItem("Herramientas") Global $Btns8[20] Global $Ini8 = 33 For $i = 0 to UBound($Btns8) -1 $Btns8[$i] = GUICtrlCreateButton($Txt,$PosIzBtn,$Ini8,$AnchBtn,$AltBtn,$WS_BORDER) $Ini8 += 20 GUICtrlSetBkColor($Btns8[$i],0x6699FF) Next Global $ChckBx8[20] Global $Ini8 = 32 For $i = 0 to UBound($ChckBx8) -1 $ChckBx8[$i] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Programas.ini",$Btns8[$i],"Nombre Archivo",$Txt2),$PosIzBx,$Ini8,$AnchBx,$AltBx,$Form1) $Ini8 += 20 GUICtrlSetBkColor($ChckBx8[$i],0x99CCFF) Next $Todo8 = GUICtrlCreateButton("Seleccionar todas las Herramientas",$PosIzBx,$ArrTds,238,$AltBx1,$Form1) GUICtrlSetBkColor($Todo8,$ClrTd) ####################################################################################################################### GUISetState(@sw_show) ####################################################################################################################### While 1 $nMsg = GUIGetMsg() For $o = 0 To UBound($Btns1) - 1 If $nMsg = $Btns1[$o] Then _Agregar() GUICtrlSetData($ChckBx1[$o],IniRead(@ScriptDir & "\Programas.ini", $nMsg,"Nombre Archivo", "")) If IniRead(@ScriptDir & "\Programas.ini", $nMsg, "Estado", "") = 1 Then GUICtrlSetState($ChckBx1[$o],$GUI_CHECKED) EndIf EndIf Next For $o = 0 To UBound($Btns2) - 1 If $nMsg = $Btns2[$o] Then _Agregar() GUICtrlSetData($ChckBx2[$o],IniRead(@ScriptDir & "\Programas.ini", $nMsg, "Nombre Archivo", "")) If IniRead(@ScriptDir & "\Programas.ini", $nMsg, "Estado", "") = 1 Then GUICtrlSetState($ChckBx2[$o],$GUI_CHECKED) EndIf EndIf Next For $o = 0 To UBound($Btns3) - 1 If $nMsg = $Btns3[$o] Then _Agregar() GUICtrlSetData($ChckBx3[$o],IniRead(@ScriptDir & "\Programas.ini", $nMsg, "Nombre Archivo", "")) If IniRead(@ScriptDir & "\Programas.ini", $nMsg, "Estado", "") = 1 Then GUICtrlSetState($ChckBx3[$o],$GUI_CHECKED) EndIf EndIf Next For $o = 0 To UBound($Btns4) - 1 If $nMsg = $Btns4[$o] Then _Agregar() GUICtrlSetData($ChckBx4[$o],IniRead(@ScriptDir & "\Programas.ini", $nMsg, "Nombre Archivo", "")) If IniRead(@ScriptDir & "\Programas.ini", $nMsg, "Estado", "") = 1 Then GUICtrlSetState($ChckBx4[$o],$GUI_CHECKED) EndIf EndIf Next For $o = 0 To UBound($Btns5) - 1 If $nMsg = $Btns5[$o] Then _Agregar() GUICtrlSetData($ChckBx5[$o],IniRead(@ScriptDir & "\Programas.ini", $nMsg, "Nombre Archivo", "")) If IniRead(@ScriptDir & "\Programas.ini", $nMsg, "Estado", "") = 1 Then GUICtrlSetState($ChckBx5[$o],$GUI_CHECKED) EndIf EndIf Next For $o = 0 To UBound($Btns6) - 1 If $nMsg = $Btns6[$o] Then _Agregar() GUICtrlSetData($ChckBx6[$o],IniRead(@ScriptDir & "\Programas.ini", $nMsg, "Nombre Archivo", "")) If IniRead(@ScriptDir & "\Programas.ini", $nMsg, "Estado", "") = 1 Then GUICtrlSetState($ChckBx6[$o],$GUI_CHECKED) EndIf EndIf Next For $o = 0 To UBound($Btns7) - 1 If $nMsg = $Btns7[$o] Then _Agregar() GUICtrlSetData($ChckBx7[$o],IniRead(@ScriptDir & "\Programas.ini", $nMsg, "Nombre Archivo", "")) If IniRead(@ScriptDir & "\Programas.ini", $nMsg, "Estado", "") = 1 Then GUICtrlSetState($ChckBx7[$o],$GUI_CHECKED) EndIf EndIf Next For $o = 0 To UBound($Btns8) - 1 If $nMsg = $Btns8[$o] Then _Agregar() GUICtrlSetData($ChckBx8[$o],IniRead(@ScriptDir & "\Programas.ini", $nMsg, "Nombre Archivo", "")) If IniRead(@ScriptDir & "\Programas.ini", $nMsg, "Estado", "") = 1 Then GUICtrlSetState($ChckBx8[$o],$GUI_CHECKED) EndIf EndIf Next Switch $nMsg Case $Todo1 Call("_Config") Case $Todo2 Call("_Aplic") Case $Todo3 Call("_Office") Case $Todo4 Call("_Repro") Case $Todo5 Call("_Edit") Case $Todo6 Call("_Prog") Case $Todo7 Call("_Comp") Case $Todo8 Call("_Herr") Case $BtnDfct Call("_Defecto") Case $BtnNngn Call("_Ninguno") Case $BtnCmnzr Call("_Instalar") Case $BtnSlr Exit Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func _Agregar() Local $Ruta $Ruta = FileOpenDialog("Seleccione un Ejecutable", @ScriptDir&"\WPI\Install\", "Ejecutables (*.exe;*.bat;*.com;*.cmd)", 1) If @error or $Ruta = "" Then $iMsgBoxAnswer = MsgBox(36, "Seleccione un Ejecutable", "Desea cancelar la selección del fichero?") Select Case $iMsgBoxAnswer = 6 ;Yes Case $iMsgBoxAnswer = 7 ;No EndSelect Else ;$IsSelect = 1 $sFile = FileFindFirstFile($Ruta) ; Busqueda para saber el nombre del ejecutable $nFile = FileFindNextFile($sFile) ; Esto es nada mas para que te muestre un nombre por default en el input $Arreglo1 = StringTrimRight($nFile,4) $Nombre = InputBox("Programa Agregado", "Usted Selecciono el Siguiente Programa" & $Ruta & @CRLF & @CRLF & "Escriba el Nombre del Programa", $Arreglo1, " M") ;Input Mandatory If $Nombre = "" Then MsgBox(0, "Error", "Ha cancelado la operación") Else $iMsgBoxAnswer = MsgBox(4, "Listo", "Desea que el programa se instale por default") Select Case $iMsgBoxAnswer = 6 ;Yes $Estado = 1 Case $iMsgBoxAnswer = 7 ;No $Estado = 0 EndSelect $Arreglo2 = StringTrimLeft($Ruta,2) IniWrite(@ScriptDir & "\Programas.ini",$nMsg, "Nombre Archivo", $Nombre) IniWrite(@ScriptDir & "\Programas.ini",$nMsg, "Ubicacion", $Arreglo2) IniWrite(@ScriptDir & "\Programas.ini",$nMsg, "Estado", $Estado) EndIf EndIf EndFunc Func _Ninguno() For $i = $ChckBx1[0] To $ChckBx8[19] GUICtrlSetState($i, $GUI_UNCHECKED) Next EndFunc Func _Defecto() For $n = 0 to UBound($Btns1) - 1 If IniRead(@ScriptDir & "\Programas.ini", $Btns1[$n], "Estado", "") = 1 Then GUICtrlSetState($ChckBx1[$n],$GUI_CHECKED) EndIf Next For $n = 0 to UBound($Btns2) - 1 If IniRead(@ScriptDir & "\Programas.ini", $Btns2[$n], "Estado", "") = 1 Then GUICtrlSetState($ChckBx2[$n],$GUI_CHECKED) EndIf Next For $n = 0 to UBound($Btns3) - 1 If IniRead(@ScriptDir & "\Programas.ini", $Btns3[$n], "Estado", "") = 1 Then GUICtrlSetState($ChckBx3[$n],$GUI_CHECKED) EndIf Next For $n = 0 to UBound($Btns4) - 1 If IniRead(@ScriptDir & "\Programas.ini", $Btns4[$n], "Estado", "") = 1 Then GUICtrlSetState($ChckBx4[$n],$GUI_CHECKED) EndIf Next For $n = 0 to UBound($Btns5) - 1 If IniRead(@ScriptDir & "\Programas.ini", $Btns5[$n], "Estado", "") = 1 Then GUICtrlSetState($ChckBx5[$n],$GUI_CHECKED) EndIf Next For $n = 0 to UBound($Btns6) - 1 If IniRead(@ScriptDir & "\Programas.ini", $Btns6[$n], "Estado", "") = 1 Then GUICtrlSetState($ChckBx6[$n],$GUI_CHECKED) EndIf Next For $n = 0 to UBound($Btns7) - 1 If IniRead(@ScriptDir & "\Programas.ini", $Btns7[$n], "Estado", "") = 1 Then GUICtrlSetState($ChckBx7[$n],$GUI_CHECKED) EndIf Next For $n = 0 to UBound($Btns8) - 1 If IniRead(@ScriptDir & "\Programas.ini", $Btns8[$n], "Estado", "") = 1 Then GUICtrlSetState($ChckBx8[$n],$GUI_CHECKED) EndIf Next EndFunc Func _Instalar() Global $TotalProgramas = 0 Call("_Disable") $Contar = 0 Call("_TotalProgramas") GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) ####################################################################################################################### ;Instalacion 1 If GUICtrlRead($ChckBx1[0]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns1[0], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx1[1]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns1[1], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx1[2]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns1[2], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx1[3]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns1[3], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx1[4]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns1[4], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx1[5]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns1[5], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx1[6]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns1[6], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx1[7]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns1[7], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx1[8]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns1[8], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx1[9]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns1[9], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx1[0]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns1[10], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx1[11]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns1[11], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx1[12]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns1[12], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx1[13]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns1[13], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx1[14]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns1[14], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx1[15]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns1[15], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx1[16]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns1[16], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx1[17]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns1[17], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx1[18]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns1[18], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx1[19]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns1[19], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf ####################################################################################################################### ;Instalacion 2 If GUICtrlRead($ChckBx2[0]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns2[0], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx2[1]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns2[1], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx2[2]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns2[2], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx2[3]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns2[3], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx2[4]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns2[4], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx2[5]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns2[5], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx2[6]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns2[6], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx2[7]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns2[7], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx2[8]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns2[8], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx2[9]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns2[9], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx2[10]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns2[10], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx2[11]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns2[11], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx2[12]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns2[12], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx2[13]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns2[13], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx2[14]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns2[14], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx2[15]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns2[15], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx2[16]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns2[16], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx2[17]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns2[17], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx2[18]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns2[18], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx2[19]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns2[19], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf ####################################################################################################################### ;Instalacion 3 If GUICtrlRead($ChckBx3[0]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns3[0], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx3[1]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns3[1], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx3[2]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns3[2], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx3[3]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns3[3], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx3[4]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns3[4], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx3[5]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns3[5], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx3[6]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns3[6], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx3[7]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns3[7], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx3[8]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns3[8], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx3[9]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns3[9], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx3[10]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns3[10], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx3[11]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns3[11], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx3[12]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns3[12], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx3[13]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns3[13], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx3[14]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns3[14], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx3[15]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns3[15], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx3[16]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns3[16], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx3[17]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns3[17], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx3[18]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns3[18], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx3[19]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns3[19], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf ####################################################################################################################### ;Instalacion 4 If GUICtrlRead($ChckBx4[0]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns4[0], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx4[1]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns4[1], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx4[2]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns4[2], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx4[3]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns4[3], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx4[4]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns4[4], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx4[5]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns4[5], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx4[6]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns4[6], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx4[7]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns4[7], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx4[8]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns4[8], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx4[9]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns4[9], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx4[10]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns4[10], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx4[11]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns4[11], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx4[12]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns4[12], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx4[13]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns4[13], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx4[14]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns4[14], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx4[15]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns4[15], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx4[16]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns4[16], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx4[17]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns4[17], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx4[18]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns4[18], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx4[19]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns4[19], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf ####################################################################################################################### ;Instalacion 5 If GUICtrlRead($ChckBx5[0]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns5[0], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx5[1]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns5[1], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx5[2]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns5[2], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx5[3]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns5[3], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx5[4]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns5[4], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx5[5]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns5[5], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx5[6]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns5[6], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx5[7]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns5[7], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx5[8]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns5[8], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx5[9]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns5[9], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx5[10]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns5[10], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx5[11]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns5[11], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx5[12]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns5[12], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx5[13]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns5[13], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx5[14]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns5[14], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx5[15]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns5[15], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx5[16]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns5[16], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx5[17]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns5[17], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx5[18]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns5[18], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx5[19]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns5[19], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf ####################################################################################################################### ;Instalacion 6 If GUICtrlRead($ChckBx6[0]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns6[0], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx6[1]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns6[1], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx6[2]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns6[2], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx6[3]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns6[3], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx6[4]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns6[4], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx6[5]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns6[5], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx6[6]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns6[6], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx6[7]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns6[7], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx6[8]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns6[8], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx6[9]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns6[9], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx6[10]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns6[10], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx6[11]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns6[11], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx6[12]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns6[12], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx6[13]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns6[13], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx6[14]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns6[14], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx6[15]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns6[15], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx6[16]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns6[16], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx6[17]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns6[17], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx6[18]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns6[18], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx6[19]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns6[19], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf ####################################################################################################################### ;Instalacion 7 If GUICtrlRead($ChckBx7[0]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns7[0], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx7[1]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns7[1], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx7[2]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns7[2], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx7[3]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns7[3], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx7[4]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns7[4], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx7[5]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns7[5], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx7[6]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns7[6], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx7[7]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns7[7], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx7[8]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns7[8], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx7[9]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns7[9], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx7[10]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns7[10], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx7[11]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns7[11], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx7[12]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns7[12], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx7[13]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns7[13], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx7[14]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns7[14], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx7[15]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns7[15], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx7[16]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns7[16], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx7[17]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns7[17], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx7[18]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns7[18], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx7[19]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns7[19], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf ####################################################################################################################### ;Instalacion 8 If GUICtrlRead($ChckBx8[0]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns8[0], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx8[1]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns8[1], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx8[2]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns8[2], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx8[3]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns8[3], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx8[4]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns8[4], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx8[5]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns8[5], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx8[6]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns8[6], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx8[7]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns8[7], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx8[8]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns8[8], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx8[9]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns8[9], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx8[10]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns8[10], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx8[11]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns8[11], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx8[12]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns8[12], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx8[13]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns8[13], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx8[14]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns8[14], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx8[15]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns8[15], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx8[16]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns8[16], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx8[17]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns8[17], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx8[18]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns8[18], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($ChckBx8[19]) = $GUI_CHECKED Then $Contar = $Contar + 1 ShellExecuteWait(IniRead(@ScriptDir & "\Programas.ini", $Btns8[19], "Ubicacion", "")) GUICtrlSetData($CantidadProgramas, $Contar&" de "&$TotalProgramas) GUICtrlSetData($Porcentaje, Round($Contar*100/$TotalProgramas, 0)&"%") GUICtrlSetData($BarraProgreso, $Contar*100/$TotalProgramas) EndIf If GUICtrlRead($Fin) = 1 Then MsgBox(0, "Instalador Universal CCG Plus", "Se han terminado de instalar los programas"&@CRLF&"Ahora se cerrara el instalador"&@CRLF&"Grasias"&@CRLF&"wbueso@hotmail.com", 5) WinClose("Instalador Universal CCG Plus") Else MsgBox(0, "Instalador WBD", "Se han terminado de instalar los programas"&@CRLF&"Puede seleccionar otros programas para instalar"&@CRLF&"Grasias"&@CRLF&"wbueso@hotmail.com", 5) EndIf Call("_Ninguno") Call("_Enable") FileCopy(@ScriptDir&"\WPI\Datos y otros\oemlogo.bmp",@SystemDir,1) FileCopy(@ScriptDir&"\WPI\Datos y otros\OEMINFO.INI",@SystemDir,1) FileCopy(@ScriptDir&"\WPI\Datos y otros\oemlogo.bmp",@WindowsDir&"\system",1) FileCopy(@ScriptDir&"\WPI\Datos y otros\OEMINFO.INI",@WindowsDir&"\system",1) Sleep(5000) GUICtrlSetData($CantidadProgramas, "0 de 0") GUICtrlSetData($Porcentaje, "0%") GUICtrlSetData($BarraProgreso, 0) EndFunc Func _Disable() GUICtrlSetState($BtnDfct,$GUI_DISABLE) GUICtrlSetState($BtnNngn,$GUI_DISABLE) GUICtrlSetState($BtnCmnzr,$GUI_DISABLE) GUICtrlSetState($BtnSlr,$GUI_DISABLE) GUICtrlSetState($Todo1,$GUI_DISABLE) GUICtrlSetState($Todo2,$GUI_DISABLE) GUICtrlSetState($Todo3,$GUI_DISABLE) GUICtrlSetState($Todo4,$GUI_DISABLE) GUICtrlSetState($Todo5,$GUI_DISABLE) GUICtrlSetState($Todo6,$GUI_DISABLE) GUICtrlSetState($Todo7,$GUI_DISABLE) GUICtrlSetState($Todo8,$GUI_DISABLE) GUICtrlSetState($Fin,$GUI_DISABLE) For $i = $ChckBx1[0] To $ChckBx8[19] GUICtrlSetState($i, $GUI_DISABLE) Next EndFunc Func _Enable() GUICtrlSetState($BtnDfct,$GUI_ENABLE) GUICtrlSetState($BtnNngn,$GUI_ENABLE) GUICtrlSetState($BtnCmnzr,$GUI_ENABLE) GUICtrlSetState($BtnSlr,$GUI_ENABLE) GUICtrlSetState($Todo1,$GUI_ENABLE) GUICtrlSetState($Todo2,$GUI_ENABLE) GUICtrlSetState($Todo3,$GUI_ENABLE) GUICtrlSetState($Todo4,$GUI_ENABLE) GUICtrlSetState($Todo5,$GUI_ENABLE) GUICtrlSetState($Todo6,$GUI_ENABLE) GUICtrlSetState($Todo7,$GUI_ENABLE) GUICtrlSetState($Todo8,$GUI_ENABLE) GUICtrlSetState($Fin,$GUI_ENABLE) For $i = $ChckBx1[0] To $ChckBx8[19] GUICtrlSetState($i, $GUI_ENABLE) Next EndFunc Func _Config() $TxtCnfg1 = "Desactivar todas las Configuraciónes" $TxtCnfg2 = "Seleccionar todas las Configuraciónes" For $s = 0 To UBound($ChckBx1) - 1 If GUICtrlRead($ChckBx1[$s]) = $GUI_UNCHECKED Then GUICtrlSetState($ChckBx1[$s],$GUI_CHECKED) GUICtrlSetData($Todo1,$TxtCnfg1) ElseIf GUICtrlRead($ChckBx1[$s]) = $GUI_CHECKED Then GUICtrlSetState($ChckBx1[$s],$GUI_UNCHECKED) GUICtrlSetData($Todo1,$TxtCnfg2) EndIf Next For $n = 0 to UBound($Btns1) - 1 If IniRead(@ScriptDir & "\Programas.ini", $Btns1[$n], "Estado", "") = 1 Then GUICtrlSetState($ChckBx1[$n],$GUI_CHECKED) EndIf Next EndFunc Func _Aplic() $TxtCnfg1 = "Desactivar todas las Aplicaciones" $TxtCnfg2 = "Seleccionar todas las Aplicaciones" For $s = 0 To UBound($ChckBx2) - 1 If GUICtrlRead($ChckBx2[$s]) = $GUI_UNCHECKED Then GUICtrlSetState($ChckBx2[$s],$GUI_CHECKED) GUICtrlSetData($Todo2,$TxtCnfg1) ElseIf GUICtrlRead($ChckBx2[$s]) = $GUI_CHECKED Then GUICtrlSetState($ChckBx2[$s],$GUI_UNCHECKED) GUICtrlSetData($Todo2,$TxtCnfg2) EndIf Next For $n = 0 to UBound($Btns2) - 1 If IniRead(@ScriptDir & "\Programas.ini", $Btns2[$n], "Estado", "") = 1 Then GUICtrlSetState($ChckBx2[$n],$GUI_CHECKED) EndIf Next EndFunc Func _Office() $TxtCnfg1 = "Desactivar todos los programas de Oficina" $TxtCnfg2 = "Seleccionar todos los programas de Oficina" For $s = 0 To UBound($ChckBx3) - 1 If GUICtrlRead($ChckBx3[$s]) = $GUI_UNCHECKED Then GUICtrlSetState($ChckBx3[$s],$GUI_CHECKED) GUICtrlSetData($Todo3,$TxtCnfg1) ElseIf GUICtrlRead($ChckBx3[$s]) = $GUI_CHECKED Then GUICtrlSetState($ChckBx3[$s],$GUI_UNCHECKED) GUICtrlSetData($Todo3,$TxtCnfg2) EndIf Next For $n = 0 to UBound($Btns3) - 1 If IniRead(@ScriptDir & "\Programas.ini", $Btns3[$n], "Estado", "") = 1 Then GUICtrlSetState($ChckBx3[$n],$GUI_CHECKED) EndIf Next EndFunc Func _Repro() $TxtCnfg1 = "Desactivar todos los Reproductores" $TxtCnfg2 = "Seleccionar todos los Reproductores" For $s = 0 To UBound($ChckBx4) - 1 If GUICtrlRead($ChckBx4[$s]) = $GUI_UNCHECKED Then GUICtrlSetState($ChckBx4[$s],$GUI_CHECKED) GUICtrlSetData($Todo4,$TxtCnfg1) ElseIf GUICtrlRead($ChckBx4[$s]) = $GUI_CHECKED Then GUICtrlSetState($ChckBx4[$s],$GUI_UNCHECKED) GUICtrlSetData($Todo4,$TxtCnfg2) EndIf Next For $n = 0 to UBound($Btns4) - 1 If IniRead(@ScriptDir & "\Programas.ini", $Btns4[$n], "Estado", "") = 1 Then GUICtrlSetState($ChckBx4[$n],$GUI_CHECKED) EndIf Next EndFunc Func _Edit() $TxtCnfg1 = "Desactivar todos los Editores" $TxtCnfg2 = "Seleccionar todos los Editores" For $s = 0 To UBound($ChckBx5) - 1 If GUICtrlRead($ChckBx5[$s]) = $GUI_UNCHECKED Then GUICtrlSetState($ChckBx5[$s],$GUI_CHECKED) GUICtrlSetData($Todo5,$TxtCnfg1) ElseIf GUICtrlRead($ChckBx5[$s]) = $GUI_CHECKED Then GUICtrlSetState($ChckBx5[$s],$GUI_UNCHECKED) GUICtrlSetData($Todo5,$TxtCnfg2) EndIf Next For $n = 0 to UBound($Btns5) - 1 If IniRead(@ScriptDir & "\Programas.ini", $Btns5[$n], "Estado", "") = 1 Then GUICtrlSetState($ChckBx5[$n],$GUI_CHECKED) EndIf Next EndFunc Func _Prog() $TxtCnfg1 = "Desactivar todos los de Programación" $TxtCnfg2 = "Seleccionar todos los de Programación" For $s = 0 To UBound($ChckBx6) - 1 If GUICtrlRead($ChckBx6[$s]) = $GUI_UNCHECKED Then GUICtrlSetState($ChckBx6[$s],$GUI_CHECKED) GUICtrlSetData($Todo6,$TxtCnfg1) ElseIf GUICtrlRead($ChckBx6[$s]) = $GUI_CHECKED Then GUICtrlSetState($ChckBx6[$s],$GUI_UNCHECKED) GUICtrlSetData($Todo6,$TxtCnfg2) EndIf Next For $n = 0 to UBound($Btns6) - 1 If IniRead(@ScriptDir & "\Programas.ini", $Btns6[$n], "Estado", "") = 1 Then GUICtrlSetState($ChckBx6[$n],$GUI_CHECKED) EndIf Next EndFunc Func _Comp() $TxtCnfg1 = "Desactivar todos los Complementos" $TxtCnfg2 = "Seleccionar todos los Complementos" For $s = 0 To UBound($ChckBx7) - 1 If GUICtrlRead($ChckBx7[$s]) = $GUI_UNCHECKED Then GUICtrlSetState($ChckBx7[$s],$GUI_CHECKED) GUICtrlSetData($Todo7,$TxtCnfg1) ElseIf GUICtrlRead($ChckBx7[$s]) = $GUI_CHECKED Then GUICtrlSetState($ChckBx7[$s],$GUI_UNCHECKED) GUICtrlSetData($Todo7,$TxtCnfg2) EndIf Next For $n = 0 to UBound($Btns7) - 1 If IniRead(@ScriptDir & "\Programas.ini", $Btns7[$n], "Estado", "") = 1 Then GUICtrlSetState($ChckBx7[$n],$GUI_CHECKED) EndIf Next EndFunc Func _Herr() $TxtCnfg1 = "Desactivar todas las Herramientas" $TxtCnfg2 = "Seleccionar todas las Herramientas" For $s = 0 To UBound($ChckBx8) - 1 If GUICtrlRead($ChckBx8[$s]) = $GUI_UNCHECKED Then GUICtrlSetState($ChckBx8[$s],$GUI_CHECKED) GUICtrlSetData($Todo8,$TxtCnfg1) ElseIf GUICtrlRead($ChckBx8[$s]) = $GUI_CHECKED Then GUICtrlSetState($ChckBx8[$s],$GUI_UNCHECKED) GUICtrlSetData($Todo8,$TxtCnfg2) EndIf Next For $n = 0 to UBound($Btns8) - 1 If IniRead(@ScriptDir & "\Programas.ini", $Btns8[$n], "Estado", "") = 1 Then GUICtrlSetState($ChckBx8[$n],$GUI_CHECKED) EndIf Next EndFunc Func _TotalProgramas() $TotalProgramas = 0 ####################################################################################################################### ;Instalacion 1 If GUICtrlRead($ChckBx1[0]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx1[1]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx1[2]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx1[3]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx1[4]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx1[5]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx1[6]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx1[7]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx1[8]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx1[9]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx1[10]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx1[11]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx1[12]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx1[13]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx1[14]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx1[15]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx1[16]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx1[17]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx1[18]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx1[19]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf ####################################################################################################################### ;Instalacion 2 If GUICtrlRead($ChckBx2[0]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx2[1]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx2[2]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx2[3]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx2[4]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx2[5]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx2[6]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx2[7]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx2[8]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx2[9]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx2[10]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx2[11]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx2[12]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx2[13]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx2[14]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx2[15]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx2[16]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx2[17]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx2[18]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx2[19]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf ####################################################################################################################### ;Instalacion 3 If GUICtrlRead($ChckBx3[0]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx3[1]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx3[2]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx3[3]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx3[4]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx3[5]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx3[6]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx3[7]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx3[8]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx3[9]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx3[10]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx3[11]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx3[12]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx3[13]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx3[14]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx3[15]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx3[16]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx3[17]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx3[18]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx3[19]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf ####################################################################################################################### ;Instalacion 4 If GUICtrlRead($ChckBx4[0]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx4[1]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx4[2]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx4[3]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx4[4]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx4[5]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx4[6]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx4[7]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx4[8]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx4[9]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx4[10]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx4[11]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx4[12]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx4[13]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx4[14]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx4[15]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx4[16]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx4[17]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx4[18]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx4[19]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf ####################################################################################################################### ;Instalacion 5 If GUICtrlRead($ChckBx5[0]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx5[1]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx5[2]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx5[3]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx5[4]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx5[5]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx5[6]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx5[7]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx5[8]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx5[9]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx5[10]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx5[11]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx5[12]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx5[13]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx5[14]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx5[15]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx5[16]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx5[17]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx5[18]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx5[19]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf ####################################################################################################################### ;Instalacion 6 If GUICtrlRead($ChckBx6[0]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx6[1]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx6[2]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx6[3]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx6[4]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx6[5]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx6[6]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx6[7]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx6[8]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx6[9]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx6[10]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx6[11]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx6[12]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx6[13]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx6[14]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx6[15]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx6[16]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx6[17]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx6[18]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx6[19]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf ####################################################################################################################### ;Instalacion 7 If GUICtrlRead($ChckBx7[0]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx7[1]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx7[2]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx7[3]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx7[4]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx7[5]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx7[6]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx7[7]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx7[8]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx7[9]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx7[10]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx7[11]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx7[12]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx7[13]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx7[14]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx7[15]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx7[16]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx7[17]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx7[18]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx7[19]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf ####################################################################################################################### ;Instalacion 8 If GUICtrlRead($ChckBx8[0]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx8[1]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx8[2]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx8[3]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx8[4]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx8[5]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx8[6]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx8[7]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx8[8]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx8[9]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx8[10]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx8[11]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx8[12]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx8[13]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx8[14]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx8[15]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx8[16]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx8[17]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx8[18]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf If GUICtrlRead($ChckBx8[19]) = $GUI_CHECKED Then $TotalProgramas = $TotalProgramas + 1 EndIf EndFunc