Autoit.ES

En español. Descarga programas libres y Open-Source. Añade tu programa a la librería de Scripts en Autoit.es
http://autoit.es/

Barra de progreso

http://autoit.es/viewtopic.php?t=4058

Página 1 de 2

Barra de progreso

Publicado: 05 Feb 2014, 02:15
por wbueso
Hola, quisiera que alguien me ayude y me enseñe como funciona la barra de progreso, he creado un programa que me sirve para instalar otros programas, es similar a WPI (Windows post Install), todos mis programas los he hecho desatendidos, y este programa me permite seleccionar esos programas para instalarlos, me gustaria agregarle a mi programa una barra de progreso, le agrege uno que encontre en los tutoriales pero a veces se termina la barra de progreso y los programas van a la mitad, o termina la instalacion de todos los programas y la barra de progreso sigue a la mitad, ¿como sumar todos los Bits de los programas que se van a instalar para usarlo con la barra de progreso?, o que la barra de progreso use el tamaño de un archivo como base, tambien me gustaria algo que me diga cuantos programas se van a instalar y por cual programa esta, por ejemplo se instalaran 21 programas y se esta instalando el programa numero 13.
A PDF y a Dany les agradesco el grado de conocimiento que tengo, si pueden ayudarme se los agradecere mucho.

Re: Barra de estado

Publicado: 05 Feb 2014, 14:29
por Dany
En realidad no tienes que sumar todos los bit ni nada de eso. lo que tienes que hacer es por cada programas que instales vas subiendo un porcentaje. si tienes 100 programas al terminar de instalar 1 le sumas uno al progressbar.

si puedo te dejo un ejemplo al rato.


saludos

Re: Barra de estado

Publicado: 05 Feb 2014, 15:03
por PDF
Es así como dice Dany solo debes utilizar una relación de porcentajes, si tienes 21 programas esto equivaldría al 100% del progressbar si se esta ejecutando el programa numero 13 el porcentaje del ProgressBar sería: (13*100) / 21

Puedes utilizar variables que te indiquen cuantos programas ya se están instalando $NroProgramas+= 1 y así modificar el valor del porcentaje de la barra de progreso de acuerdo a esa cantidad..

GuiCtrlSetData ($ProgressBar1, ($NroProgramas * 100) / $TotalProgramas )

Saludos..

Re: Barra de Progreso

Publicado: 06 Feb 2014, 22:14
por wbueso
PDF y Dany, ustedes si que saben, estuve practicando y ya lo entendí, les agradezco mucho por el aporte y por responder a mis preguntas, puedo hacer que me muestre la cantidad de programas que se van a instalar, la cantidad de programas que se han instalado, el porcentaje de la instalación en la barra de progreso, guau es increíble.

Esto es lo llevo hasta el momento sin la barra de progreso.

Este es el programa Instalador.

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
#######################################################################################################################
;Crea la GUI (Ventana)
GUICreate("Agregar Programas", 700, 580, 200, 100)
GUICtrlSetDefBkColor(0x6699FF)
GUICtrlCreatePic(@ScriptDir&"\oemlogo.bmp",2,2,142,98,$WS_DLGFRAME)
#######################################################################################################################
;Crea la Informacion
GUICtrlCreateLabel("Haga Clic en cualquiera de los botones para agregar los programas al menú.",5,102,138,84,$WS_DLGFRAME)
$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

GUICtrlCreateLabel("Info General:"&@CRLF&"Sistema Op:"&@CRLF&$So&@CRLF&$SP&@CRLF&"Arquitectura de: "&$OA,5,188,138,73,$WS_DLGFRAME)
$User = @UserName
$Org = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","RegisteredOrganization")
$NPc = @ComputerName
$IP = @IPAddress1
$Mem = MemGetStats()
$CPU = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0","ProcessorNameString")
GUICtrlCreateLabel("Usuario: "&$User&@CRLF&"Organización:"&@CRLF&$Org&@CRLF&"Nombre en RED:"&@CRLF&$NPc& _
@CRLF&"IP: "&$IP&@CRLF&$CPU&@CRLF&"Memoria Total:"&@CRLF&$Mem[1]&" KB",5,263,138,139,$WS_DLGFRAME)

$Dia = @WDAY
If $Dia = 1 Then
	$Dia = "Domingo"
EndIf
If $Dia = 2 Then
	$Dia = "Lunes"
EndIf
If $Dia = 3 Then
	$Dia = "Martes"
EndIf
If $Dia = 4 Then
	$Dia = "Miercoles"
EndIf
If $Dia = 5 Then
	$Dia = "Jueves"
EndIf
If $Dia = 6 Then
	$Dia = "Viernes"
EndIf
If $Dia = 7 Then
	$Dia = "Sabado"
EndIf

$Fch = @MDAY

$Mes = @MON
If $Mes = 1 Then
	$Mes = "Enero"
EndIf
If $Mes = 2 Then
	$Mes = "Febrero"
EndIf
If $Mes = 3 Then
	$Mes = "Marzo"
EndIf
If $Mes = 4 Then
	$Mes = "Abril"
EndIf
If $Mes = 5 Then
	$Mes = "Mayo"
EndIf
If $Mes = 6 Then
	$Mes = "Junio"
EndIf
If $Mes = 7 Then
	$Mes = "Julio"
EndIf
If $Mes = 8 Then
	$Mes = "Agosto"
EndIf
If $Mes = 9 Then
	$Mes = "Septiembre"
EndIf
If $Mes = 10 Then
	$Mes = "Octubre"
EndIf
If $Mes = 11 Then
	$Mes = "Noviembre"
EndIf
If $Mes = 12 Then
	$Mes = "Diciembre"
EndIf

$Yr = @YEAR

$Hr = @HOUR
$AP = $Hr
If $AP >= 13 Then
	$AP = "PM"
Else
	$AP = "AM"
EndIf

If $Hr = 13 Then
	$Hr = 1
EndIf
If $Hr = 14 Then
	$Hr = 2
EndIf
If $Hr = 15 Then
	$Hr = 3
EndIf
If $Hr = 16 Then
	$Hr = 4
EndIf
If $Hr = 17 Then
	$Hr = 5
EndIf
If $Hr = 18 Then
	$Hr = 6
EndIf
If $Hr = 19 Then
	$Hr = 7
EndIf
If $Hr = 20 Then
	$Hr = 8
EndIf
If $Hr = 21 Then
	$Hr = 9
EndIf
If $Hr = 22 Then
	$Hr = 10
EndIf
If $Hr = 23 Then
	$Hr = 11
EndIf
If $Hr = 24 Then
	$Hr = 12
EndIf

GUICtrlCreateLabel($Dia&" "&$Fch&@CRLF&$Mes&@CRLF&$Yr&@CRLF&$Hr&" : "&@MIN&" "&$AP,5,402,138,60,$WS_DLGFRAME)
#######################################################################################################################
;Crea los Controles (Botones)
$BtnSlr = GUICtrlCreateButton("Salir",5,540,138,35,$WS_DLGFRAME)
$BtnActlzr = GUICtrlCreateButton("Actualizar",5,502.5,138,35,$WS_DLGFRAME)
$BtnVlvr = GUICtrlCreateButton("Volver",5,463,138,35,$WS_DLGFRAME)
#######################################################################################################################
;Lee las Lineas de un Documento
$Read1 = FileReadLine(@ScriptDir&"\Programas.txt",1)
$Read2 = FileReadLine(@ScriptDir&"\Programas.txt",4)
$Read3 = FileReadLine(@ScriptDir&"\Programas.txt",7)
$Read4 = FileReadLine(@ScriptDir&"\Programas.txt",10)
$Read5 = FileReadLine(@ScriptDir&"\Programas.txt",13)
$Read6 = FileReadLine(@ScriptDir&"\Programas.txt",16)
$Read7 = FileReadLine(@ScriptDir&"\Programas.txt",19)
$Read8 = FileReadLine(@ScriptDir&"\Programas.txt",22)
$Read9 = FileReadLine(@ScriptDir&"\Programas.txt",25)
$Read10 = FileReadLine(@ScriptDir&"\Programas.txt",28)
$Read11 = FileReadLine(@ScriptDir&"\Programas.txt",31)
$Read12 = FileReadLine(@ScriptDir&"\Programas.txt",34)
$Read13 = FileReadLine(@ScriptDir&"\Programas.txt",37)
$Read14 = FileReadLine(@ScriptDir&"\Programas.txt",40)
$Read15 = FileReadLine(@ScriptDir&"\Programas.txt",43)
$Read16 = FileReadLine(@ScriptDir&"\Programas.txt",46)
$Read17 = FileReadLine(@ScriptDir&"\Programas.txt",49)
$Read18 = FileReadLine(@ScriptDir&"\Programas.txt",52)
$Read19 = FileReadLine(@ScriptDir&"\Programas.txt",55)
$Read20 = FileReadLine(@ScriptDir&"\Programas.txt",58)
$Read21 = FileReadLine(@ScriptDir&"\Programas.txt",61)
$Read22 = FileReadLine(@ScriptDir&"\Programas.txt",64)
$Read23 = FileReadLine(@ScriptDir&"\Programas.txt",67)
$Read24 = FileReadLine(@ScriptDir&"\Programas.txt",70)
$Read25 = FileReadLine(@ScriptDir&"\Programas.txt",73)
$Read26 = FileReadLine(@ScriptDir&"\Programas.txt",76)
$Read27 = FileReadLine(@ScriptDir&"\Programas.txt",79)
$Read28 = FileReadLine(@ScriptDir&"\Programas.txt",82)
$Read29 = FileReadLine(@ScriptDir&"\Programas.txt",85)
$Read30 = FileReadLine(@ScriptDir&"\Programas.txt",88)
$Read31 = FileReadLine(@ScriptDir&"\Programas.txt",91)
$Read32 = FileReadLine(@ScriptDir&"\Programas.txt",94)
$Read33 = FileReadLine(@ScriptDir&"\Programas.txt",97)
$Read34 = FileReadLine(@ScriptDir&"\Programas.txt",100)
$Read35 = FileReadLine(@ScriptDir&"\Programas.txt",103)
$Read36 = FileReadLine(@ScriptDir&"\Programas.txt",106)
$Read37 = FileReadLine(@ScriptDir&"\Programas.txt",109)
$Read38 = FileReadLine(@ScriptDir&"\Programas.txt",112)
$Read39 = FileReadLine(@ScriptDir&"\Programas.txt",115)
$Read40 = FileReadLine(@ScriptDir&"\Programas.txt",118)
$Read41 = FileReadLine(@ScriptDir&"\Programas.txt",121)
$Read42 = FileReadLine(@ScriptDir&"\Programas.txt",124)
$Read43 = FileReadLine(@ScriptDir&"\Programas.txt",127)
$Read44 = FileReadLine(@ScriptDir&"\Programas.txt",130)
$Read45 = FileReadLine(@ScriptDir&"\Programas.txt",133)
$Read46 = FileReadLine(@ScriptDir&"\Programas.txt",136)
$Read47 = FileReadLine(@ScriptDir&"\Programas.txt",139)
$Read48 = FileReadLine(@ScriptDir&"\Programas.txt",142)
$Read49 = FileReadLine(@ScriptDir&"\Programas.txt",145)
$Read50 = FileReadLine(@ScriptDir&"\Programas.txt",148)
$Read51 = FileReadLine(@ScriptDir&"\Programas.txt",151)
$Read52 = FileReadLine(@ScriptDir&"\Programas.txt",154)
$Read53 = FileReadLine(@ScriptDir&"\Programas.txt",157)
$Read54 = FileReadLine(@ScriptDir&"\Programas.txt",160)
$Read55 = FileReadLine(@ScriptDir&"\Programas.txt",163)
$Read56 = FileReadLine(@ScriptDir&"\Programas.txt",166)
$Read57 = FileReadLine(@ScriptDir&"\Programas.txt",169)
$Read58 = FileReadLine(@ScriptDir&"\Programas.txt",172)
$Read59 = FileReadLine(@ScriptDir&"\Programas.txt",175)
$Read60 = FileReadLine(@ScriptDir&"\Programas.txt",178)
$Read61 = FileReadLine(@ScriptDir&"\Programas.txt",181)
$Read62 = FileReadLine(@ScriptDir&"\Programas.txt",184)
$Read63 = FileReadLine(@ScriptDir&"\Programas.txt",187)
$Read64 = FileReadLine(@ScriptDir&"\Programas.txt",190)
$Read65 = FileReadLine(@ScriptDir&"\Programas.txt",193)
$Read66 = FileReadLine(@ScriptDir&"\Programas.txt",196)
$Read67 = FileReadLine(@ScriptDir&"\Programas.txt",199)
$Read68 = FileReadLine(@ScriptDir&"\Programas.txt",202)
$Read69 = FileReadLine(@ScriptDir&"\Programas.txt",205)
$Read70 = FileReadLine(@ScriptDir&"\Programas.txt",208)
$Read71 = FileReadLine(@ScriptDir&"\Programas.txt",211)
$Read72 = FileReadLine(@ScriptDir&"\Programas.txt",214)
$Read73 = FileReadLine(@ScriptDir&"\Programas.txt",217)
$Read74 = FileReadLine(@ScriptDir&"\Programas.txt",220)
$Read75 = FileReadLine(@ScriptDir&"\Programas.txt",223)
$Read76 = FileReadLine(@ScriptDir&"\Programas.txt",226)
$Read77 = FileReadLine(@ScriptDir&"\Programas.txt",229)
$Read78 = FileReadLine(@ScriptDir&"\Programas.txt",232)
$Read79 = FileReadLine(@ScriptDir&"\Programas.txt",235)
$Read80 = FileReadLine(@ScriptDir&"\Programas.txt",238)
#######################################################################################################################
;Crea los Controles Array (Botones)
GUICtrlSetDefColor(0x990000)

Global $Anch = 120, $Alt = 25, $Sep = 25
Global $Btna1[10]
Global $Readsa1[10] = [$Read1,$Read2,$Read3,$Read4,$Read5,$Read6,$Read7,$Read8,$Read9,$Read10]
Global $BPI1 = 150, $BPA1 = 30
For $a1 = 0 To UBound($Btna1) - 1
   $Btna1[$a1] = GUICtrlCreateButton($Readsa1[$a1], $BPI1,$BPA1,$Anch,$Alt,$WS_DLGFRAME)
      $BPA1 += $Sep
  Next

  Global $Btna2[10]
Global $Readsa2[10] = [$Read11,$Read12,$Read13,$Read14,$Read15,$Read16,$Read17,$Read18,$Read19,$Read20]
Global $BPI2 = 150, $BPA2 = 320
For $a2 = 0 To UBound($Btna2) - 1
   $Btna2[$a2] = GUICtrlCreateButton($Readsa2[$a2], $BPI2,$BPA2,$Anch,$Alt,$WS_DLGFRAME)
      $BPA2 += $Sep
  Next

  Global $Btna3[10]
Global $Readsa3[10] = [$Read21,$Read22,$Read23,$Read24,$Read25,$Read26,$Read27,$Read28,$Read29,$Read30]
Global $BPI3 = 290, $BPA3 = 30
For $a3 = 0 To UBound($Btna3) - 1
   $Btna3[$a3] = GUICtrlCreateButton($Readsa3[$a3], $BPI3,$BPA3,$Anch,$Alt,$WS_DLGFRAME)
      $BPA3 += $Sep
  Next

   Global $Btna4[10]
Global $Readsa4[10] = [$Read31,$Read32,$Read33,$Read34,$Read35,$Read36,$Read37,$Read38,$Read39,$Read40]
Global $BPI4 = 290, $BPA4 = 320
For $a4 = 0 To UBound($Btna4) - 1
   $Btna4[$a4] = GUICtrlCreateButton($Readsa4[$a4], $BPI4,$BPA4,$Anch,$Alt,$WS_DLGFRAME)
      $BPA4 += $Sep
  Next

     Global $Btna5[10]
Global $Readsa5[10] = [$Read41,$Read42,$Read43,$Read44,$Read45,$Read46,$Read47,$Read48,$Read49,$Read50]
Global $BPI5 = 430, $BPA5 = 30
For $a5 = 0 To UBound($Btna5) - 1
   $Btna5[$a5] = GUICtrlCreateButton($Readsa5[$a5], $BPI5,$BPA5,$Anch,$Alt,$WS_DLGFRAME)
      $BPA5 += $Sep
  Next

  Global $Btna6[10]
Global $Readsa6[10] = [$Read51,$Read52,$Read53,$Read54,$Read55,$Read56,$Read57,$Read58,$Read59,$Read60]
Global $BPI6 = 430, $BPA6 = 320
For $a6 = 0 To UBound($Btna6) - 1
   $Btna6[$a6] = GUICtrlCreateButton($Readsa6[$a6], $BPI6,$BPA6,$Anch,$Alt,$WS_DLGFRAME)
      $BPA6 += $Sep
  Next

Global $Btna7[10]
Global $Readsa7[10] = [$Read61,$Read62,$Read63,$Read64,$Read65,$Read66,$Read67,$Read68,$Read69,$Read70]
Global $BPI7 = 570, $BPA7 = 30
For $a7 = 0 To UBound($Btna7) - 1
   $Btna7[$a7] = GUICtrlCreateButton($Readsa7[$a7], $BPI7,$BPA7,$Anch,$Alt,$WS_DLGFRAME)
      $BPA7 += $Sep
  Next

Global $Btna8[10]
Global $Readsa8[10] = [$Read71,$Read72,$Read73,$Read74,$Read75,$Read76,$Read77,$Read78,$Read79,$Read80]
Global $BPI8 = 570, $BPA8 = 320
For $a8 = 0 To UBound($Btna8) - 1
   $Btna8[$a8] = GUICtrlCreateButton($Readsa8[$a8], $BPI8,$BPA8,$Anch,$Alt,$WS_DLGFRAME)
      $BPA8 += $Sep
  Next
#######################################################################################################################
;Crea los Grupos
Global $AncG = 133, $GrsG = 280, $PosI1 = 143, $PosI2 = 283, $PosI3 = 423, $PosI4 = 563, $PosA1 = 5, $PosA2 = 295
Global $ColorG = 0x6699FF, $TamFG = 10, $GrsFG = 600, $AtrbFG = 1, $FontG = "Time New Rodman"

$Conf = GUICtrlCreateGroup("Configuraciónes",$PosI1,$PosA1,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Conf, $TamFG, $GrsFG, $AtrbFG, $FontG)

$Apli = GUICtrlCreateGroup("Aplicaciónes",$PosI1,$PosA2,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Apli, $TamFG, $GrsFG, $AtrbFG,$FontG)

$Ofic = GUICtrlCreateGroup("Oficina",$PosI2,$PosA1,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Ofic, $TamFG, $GrsFG, $AtrbFG,$FontG)

$Repr = GUICtrlCreateGroup("Reproductores",$PosI2,$PosA2,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Repr, $TamFG, $GrsFG, $AtrbFG,$FontG)

$Edit = GUICtrlCreateGroup("Editores",$PosI3,$PosA1,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Edit, $TamFG, $GrsFG, $AtrbFG,$FontG)

$Prog = GUICtrlCreateGroup("Programación",$PosI3,$PosA2,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Prog, $TamFG, $GrsFG, $AtrbFG,$FontG)

$Comp = GUICtrlCreateGroup("Complementos",$PosI4,$PosA1,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Comp, $TamFG, $GrsFG, $AtrbFG,$FontG)

$Herr = GUICtrlCreateGroup("Herramientas",$PosI4,$PosA2,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Herr, $TamFG, $GrsFG, $AtrbFG,$FontG)
#######################################################################################################################

GUISetState(@SW_SHOW)
#######################################################################################################################

Global $FlRut, $FlName, $FlOpn, $Chckd

Func Actlzr()
WinClose("Agregar Programas")
ShellExecute(@ScriptDir&"\Agregar Programas.exe")
EndFunc

Func _ADD()	;Funsion para cuando se hace clic en los botones
		$FlRut = FileOpenDialog("Seleccione un Ejecutable",@DesktopCommonDir,"Ejecutables (*.exe;*.bat;*.com;*.cmd)",1)
If @error or $FlRut = "" Then
		$MsgBoxAnswera = MsgBox(36,"Seleccione un Ejecutable","Desea cancelar la selección del fichero?")
Select
	Case $MsgBoxAnswera = 6 	;Yes y Sale de la función
	Case $MsgBoxAnswera = 7 	;No
		_ADD() 			;Volver a seleccionar
EndSelect
Else
		;$IsSelect = 1
		$FlName = InputBox("Programa Agregado","Usted Selecciono el Siguiente Programa" &$FlRut&@CRLF&@CRLF&"Escriba el Nombre del Programa",""," M") ;Input Mandatory
If @error or $FlName = "" Then
		$MsgBoxAnswerb = MsgBox(36,"Seleccione un Ejecutable","Desea cancelar la selección del fichero?")
Select
	Case $MsgBoxAnswerb = 6 	;Yes y Sale de la función
	Case $MsgBoxAnswerb = 7
		EndSelect
Else
		$Dflt = MsgBox(4, "Listo","Desea que el programa se instale por default")
If $Dflt = 6 Then
		$Chckd = 1
Else
		$Chckd = 0
EndIf
EndIf
EndIf
EndFunc
#######################################################################################################################
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
Case $Btna1[0]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",1,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",2,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",3,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna1[1]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",4,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",5,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",6,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna1[2]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",7,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",8,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",9,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna1[3]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",10,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",11,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",12,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna1[4]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",13,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",14,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",15,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna1[5]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",16,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",17,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",18,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna1[6]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",19,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",20,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",21,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna1[7]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",22,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",23,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",24,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna1[8]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",25,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",26,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",27,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna1[9]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",28,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",29,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",30,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna2[0]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",31,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",32,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",33,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna2[1]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",34,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",35,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",36,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna2[2]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",37,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",38,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",39,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna2[3]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",40,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",41,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",42,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna2[4]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",43,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",44,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",45,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna2[5]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",46,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",47,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",48,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna2[6]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",49,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",50,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",51,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna2[7]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",52,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",53,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",54,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna2[8]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",55,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",56,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",57,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna2[9]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",58,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",59,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",60,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna3[0]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",61,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",62,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",63,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna3[1]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",64,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",65,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",66,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna3[2]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",67,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",68,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",69,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna3[3]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",70,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",71,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",72,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna3[4]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",73,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",74,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",75,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna3[5]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",76,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",77,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",78,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna3[6]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",79,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",80,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",81,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna3[7]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",82,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",83,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",84,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna3[8]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",85,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",86,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",87,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna3[9]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",88,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",89,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",90,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna4[0]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",91,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",92,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",93,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna4[1]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",94,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",95,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",96,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")


Case $Btna4[2]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",97,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",98,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",99,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna4[3]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",100,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",101,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",102,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna4[4]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",103,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",104,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",105,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna4[5]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",106,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",107,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",108,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna4[6]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",109,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",110,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",111,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna4[7]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",112,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",113,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",114,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna4[8]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",115,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",116,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",117,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna4[9]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",118,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",119,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",120,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna5[0]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",121,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",122,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",123,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna5[1]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",124,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",125,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",126,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna5[2]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",127,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",128,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",129,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna5[3]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",130,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",131,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",132,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna5[4]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",133,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",134,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",135,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna5[5]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",136,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",137,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",138,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna5[6]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",139,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",140,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",141,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna5[7]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",142,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",143,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",144,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna5[8]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",145,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",146,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",147,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna5[9]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",148,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",149,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",150,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna6[0]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",151,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",152,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",153,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna6[1]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",154,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",155,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",156,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna6[2]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",157,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",158,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",159,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna6[3]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",160,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",161,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",162,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna6[4]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",163,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",164,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",165,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna6[5]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",166,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",167,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",168,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna6[6]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",169,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",170,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",171,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna6[7]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",172,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",173,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",174,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna6[8]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",175,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",176,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",177,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna6[9]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",178,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",179,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",180,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna7[0]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",181,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",182,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",183,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna7[1]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",184,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",185,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",186,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna7[2]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",187,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",188,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",189,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna7[3]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",190,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",191,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",192,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna7[4]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",193,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",194,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",195,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna7[5]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",196,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",197,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",198,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna7[6]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",199,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",200,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",201,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna7[7]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",202,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",203,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",204,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna7[8]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",205,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",206,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",207,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna7[9]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",208,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",209,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",210,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna8[0]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",211,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",212,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",213,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna8[1]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",214,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",215,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",216,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna8[2]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",217,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",218,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",219,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna8[3]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",220,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",221,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",222,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna8[4]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",223,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",224,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",225,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna8[5]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",226,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",227,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",228,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna8[6]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",229,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",230,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",231,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna8[7]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",232,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",233,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",234,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna8[8]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",235,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",236,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",237,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

Case $Btna8[9]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",238,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",239,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",240,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

	Case $BtnActlzr
		WinClose("Agregar Programas")
		ShellExecute("Agregar Programas.exe")

Case $BtnVlvr
	WinClose("Agregar Programas")
	Sleep(1000)
	ShellExecute(@ScriptDir&"\Instalador WBD")
	Case $BtnSlr
		Exit
	Case $GUI_EVENT_CLOSE
		Exit
EndSwitch
WEnd

Re: Barra de progreso

Publicado: 06 Feb 2014, 22:15
por wbueso
Este es el programa que agrega los programas al instalador.

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
GUICreate("Instalador WBD", 650, 580, 200, 100)
GUICtrlSetDefBkColor(0x6699FF)
GUICtrlCreatePic(@ScriptDir&"\oemlogo.bmp",5,5,85,60)
#################################################################################################################
;Seccion de Botones
$BtnSlr = GUICtrlCreateButton("Salir",5,550,85,25)
$BtnIns = GUICtrlCreateButton("Instalar",5,520,85,25)
$BtnDflt = GUICtrlCreateButton("Por Default",5,490,85,25)
$BtnAgrgr = GUICtrlCreateButton("Agregar Prog",5,460,85,25)
$BtnCln = GUICtrlCreateButton("Limpiar",5,430,85,25)
$Fin = GUICtrlCreateCheckbox("Cerra al Final",5,400,85,25)
#################################################################################################################
;Linea de la información general
GUICtrlCreateLabel("Seleccione el o los programas a instalar.",5,70,85,40)
$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
GUICtrlCreateLabel("Info General:"&@CRLF&"Sistema Op:"&@CRLF&$So&@CRLF&$SP&@CRLF&"Arquitectura de:"&@CRLF&$OA,5,115,85,95)
$User = @UserName
$Org = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","RegisteredOrganization")
$NPc = @ComputerName
$IP = @IPAddress1
GUICtrlCreateLabel("Usuario:"&@CRLF&$User&@CRLF&"Organización:"&@CRLF&$Org&@CRLF&"Nombre en RED:"&@CRLF&$NPc& _
@CRLF&"IP:"&@CRLF&$IP,5,215,85,105)
$Dia = @WDAY
If $Dia = 1 Then
	$Dia = "Domingo"
EndIf
If $Dia = 2 Then
	$Dia = "Lunes"
EndIf
If $Dia = 3 Then
	$Dia = "Martes"
EndIf
If $Dia = 4 Then
	$Dia = "Miercoles"
EndIf
If $Dia = 5 Then
	$Dia = "Jueves"
EndIf
If $Dia = 6 Then
	$Dia = "Viernes"
EndIf
If $Dia = 7 Then
	$Dia = "Sabado"
EndIf
$Fch = @MDAY
$Mes = @MON
If $Mes = 1 Then
	$Mes = "Enero"
EndIf
If $Mes = 2 Then
	$Mes = "Febrero"
EndIf
If $Mes = 3 Then
	$Mes = "Marzo"
EndIf
If $Mes = 4 Then
	$Mes = "Abril"
EndIf
If $Mes = 5 Then
	$Mes = "Mayo"
EndIf
If $Mes = 6 Then
	$Mes = "Junio"
EndIf
If $Mes = 7 Then
	$Mes = "Julio"
EndIf
If $Mes = 8 Then
	$Mes = "Agosto"
EndIf
If $Mes = 9 Then
	$Mes = "Septiembre"
EndIf
If $Mes = 10 Then
	$Mes = "Octubre"
EndIf
If $Mes = 11 Then
	$Mes = "Noviembre"
EndIf
If $Mes = 12 Then
	$Mes = "Diciembre"
EndIf
$Yr = @YEAR
$Hr = @HOUR
$AP = $Hr
If $AP >= 13 Then
	$AP = "PM"
Else
	$AP = "AM"
EndIf
If $Hr = 13 Then
	$Hr = 1
EndIf
If $Hr = 14 Then
	$Hr = 2
EndIf
If $Hr = 15 Then
	$Hr = 3
EndIf
If $Hr = 16 Then
	$Hr = 4
EndIf
If $Hr = 17 Then
	$Hr = 5
EndIf
If $Hr = 18 Then
	$Hr = 6
EndIf
If $Hr = 19 Then
	$Hr = 7
EndIf
If $Hr = 20 Then
	$Hr = 8
EndIf
If $Hr = 21 Then
	$Hr = 9
EndIf
If $Hr = 22 Then
	$Hr = 10
EndIf
If $Hr = 23 Then
	$Hr = 11
EndIf
If $Hr = 24 Then
	$Hr = 12
EndIf

GUICtrlCreateLabel($Dia&" "&$Fch&@CRLF&$Mes&@CRLF&$Yr&@CRLF&@CRLF&$Hr&" : "&@MIN&" "&$AP,5,325,85,67)
#################################################################################################################
;Linea que verifica el el nombre de los programas para los CheckBox
$ReadN1 = FileReadLine(@ScriptDir&"\Programas.txt",1)
$ReadN2 = FileReadLine(@ScriptDir&"\Programas.txt",4)
$ReadN3 = FileReadLine(@ScriptDir&"\Programas.txt",7)
$ReadN4 = FileReadLine(@ScriptDir&"\Programas.txt",10)
$ReadN5 = FileReadLine(@ScriptDir&"\Programas.txt",13)
$ReadN6 = FileReadLine(@ScriptDir&"\Programas.txt",16)
$ReadN7 = FileReadLine(@ScriptDir&"\Programas.txt",19)
$ReadN8 = FileReadLine(@ScriptDir&"\Programas.txt",22)
$ReadN9 = FileReadLine(@ScriptDir&"\Programas.txt",25)
$ReadN10 = FileReadLine(@ScriptDir&"\Programas.txt",28)
$ReadN11 = FileReadLine(@ScriptDir&"\Programas.txt",31)
$ReadN12 = FileReadLine(@ScriptDir&"\Programas.txt",34)
$ReadN13 = FileReadLine(@ScriptDir&"\Programas.txt",37)
$ReadN14 = FileReadLine(@ScriptDir&"\Programas.txt",40)
$ReadN15 = FileReadLine(@ScriptDir&"\Programas.txt",43)
$ReadN16 = FileReadLine(@ScriptDir&"\Programas.txt",46)
$ReadN17 = FileReadLine(@ScriptDir&"\Programas.txt",49)
$ReadN18 = FileReadLine(@ScriptDir&"\Programas.txt",52)
$ReadN19 = FileReadLine(@ScriptDir&"\Programas.txt",55)
$ReadN20 = FileReadLine(@ScriptDir&"\Programas.txt",58)
$ReadN21 = FileReadLine(@ScriptDir&"\Programas.txt",61)
$ReadN22 = FileReadLine(@ScriptDir&"\Programas.txt",64)
$ReadN23 = FileReadLine(@ScriptDir&"\Programas.txt",67)
$ReadN24 = FileReadLine(@ScriptDir&"\Programas.txt",70)
$ReadN25 = FileReadLine(@ScriptDir&"\Programas.txt",73)
$ReadN26 = FileReadLine(@ScriptDir&"\Programas.txt",76)
$ReadN27 = FileReadLine(@ScriptDir&"\Programas.txt",79)
$ReadN28 = FileReadLine(@ScriptDir&"\Programas.txt",82)
$ReadN29 = FileReadLine(@ScriptDir&"\Programas.txt",85)
$ReadN30 = FileReadLine(@ScriptDir&"\Programas.txt",88)
$ReadN31 = FileReadLine(@ScriptDir&"\Programas.txt",91)
$ReadN32 = FileReadLine(@ScriptDir&"\Programas.txt",94)
$ReadN33 = FileReadLine(@ScriptDir&"\Programas.txt",97)
$ReadN34 = FileReadLine(@ScriptDir&"\Programas.txt",100)
$ReadN35 = FileReadLine(@ScriptDir&"\Programas.txt",103)
$ReadN36 = FileReadLine(@ScriptDir&"\Programas.txt",106)
$ReadN37 = FileReadLine(@ScriptDir&"\Programas.txt",109)
$ReadN38 = FileReadLine(@ScriptDir&"\Programas.txt",112)
$ReadN39 = FileReadLine(@ScriptDir&"\Programas.txt",115)
$ReadN40 = FileReadLine(@ScriptDir&"\Programas.txt",118)
$ReadN41 = FileReadLine(@ScriptDir&"\Programas.txt",121)
$ReadN42 = FileReadLine(@ScriptDir&"\Programas.txt",124)
$ReadN43 = FileReadLine(@ScriptDir&"\Programas.txt",127)
$ReadN44 = FileReadLine(@ScriptDir&"\Programas.txt",130)
$ReadN45 = FileReadLine(@ScriptDir&"\Programas.txt",133)
$ReadN46 = FileReadLine(@ScriptDir&"\Programas.txt",136)
$ReadN47 = FileReadLine(@ScriptDir&"\Programas.txt",139)
$ReadN48 = FileReadLine(@ScriptDir&"\Programas.txt",142)
$ReadN49 = FileReadLine(@ScriptDir&"\Programas.txt",145)
$ReadN50 = FileReadLine(@ScriptDir&"\Programas.txt",148)
$ReadN51 = FileReadLine(@ScriptDir&"\Programas.txt",151)
$ReadN52 = FileReadLine(@ScriptDir&"\Programas.txt",154)
$ReadN53 = FileReadLine(@ScriptDir&"\Programas.txt",157)
$ReadN54 = FileReadLine(@ScriptDir&"\Programas.txt",160)
$ReadN55 = FileReadLine(@ScriptDir&"\Programas.txt",163)
$ReadN56 = FileReadLine(@ScriptDir&"\Programas.txt",166)
$ReadN57 = FileReadLine(@ScriptDir&"\Programas.txt",169)
$ReadN58 = FileReadLine(@ScriptDir&"\Programas.txt",172)
$ReadN59 = FileReadLine(@ScriptDir&"\Programas.txt",175)
$ReadN60 = FileReadLine(@ScriptDir&"\Programas.txt",178)
$ReadN61 = FileReadLine(@ScriptDir&"\Programas.txt",181)
$ReadN62 = FileReadLine(@ScriptDir&"\Programas.txt",184)
$ReadN63 = FileReadLine(@ScriptDir&"\Programas.txt",187)
$ReadN64 = FileReadLine(@ScriptDir&"\Programas.txt",190)
$ReadN65 = FileReadLine(@ScriptDir&"\Programas.txt",193)
$ReadN66 = FileReadLine(@ScriptDir&"\Programas.txt",196)
$ReadN67 = FileReadLine(@ScriptDir&"\Programas.txt",199)
$ReadN68 = FileReadLine(@ScriptDir&"\Programas.txt",202)
$ReadN69 = FileReadLine(@ScriptDir&"\Programas.txt",205)
$ReadN70 = FileReadLine(@ScriptDir&"\Programas.txt",208)
$ReadN71 = FileReadLine(@ScriptDir&"\Programas.txt",211)
$ReadN72 = FileReadLine(@ScriptDir&"\Programas.txt",214)
$ReadN73 = FileReadLine(@ScriptDir&"\Programas.txt",217)
$ReadN74 = FileReadLine(@ScriptDir&"\Programas.txt",220)
$ReadN75 = FileReadLine(@ScriptDir&"\Programas.txt",223)
$ReadN76 = FileReadLine(@ScriptDir&"\Programas.txt",226)
$ReadN77 = FileReadLine(@ScriptDir&"\Programas.txt",229)
$ReadN78 = FileReadLine(@ScriptDir&"\Programas.txt",232)
$ReadN79 = FileReadLine(@ScriptDir&"\Programas.txt",235)
$ReadN80 = FileReadLine(@ScriptDir&"\Programas.txt",238)
#################################################################################################################
;Linea que crea el listado de los CheckBox
Global $Anch = 120, $Alt = 25, $Sep = 25
Global $ChcBx1[10]
Global $Readsa1[10] = [$ReadN1,$ReadN2,$ReadN3,$ReadN4,$ReadN5,$ReadN6,$ReadN7,$ReadN8,$ReadN9,$ReadN10]
Global $BPI1 = 100, $BPA1 = 35
For $c1 = 0 To UBound($ChcBx1) - 1
   $ChcBx1[$c1] = GUICtrlCreateCheckbox($Readsa1[$c1],$BPI1,$BPA1,$Anch,$Alt)
      $BPA1 += $Sep
  Next

Global $ChcBx2[10]
Global $Readsa2[10] = [$ReadN11,$ReadN12,$ReadN13,$ReadN14,$ReadN15,$ReadN16,$ReadN17,$ReadN18,$ReadN19,$ReadN20]
Global $BPI2 = 100, $BPA2 = 325
For $c2 = 0 To UBound($ChcBx2) - 1
   $ChcBx2[$c2] = GUICtrlCreateCheckbox($Readsa2[$c2],$BPI2,$BPA2,$Anch,$Alt)
      $BPA2 += $Sep
  Next

Global $ChcBx3[10]
Global $Readsa3[10] = [$ReadN21,$ReadN22,$ReadN23,$ReadN24,$ReadN25,$ReadN26,$ReadN27,$ReadN28,$ReadN29,$ReadN30]
Global $BPI3 = 240, $BPA3 = 35
For $c3 = 0 To UBound($ChcBx3) - 1
   $ChcBx3[$c3] = GUICtrlCreateCheckbox($Readsa3[$c3],$BPI3,$BPA3,$Anch,$Alt)
      $BPA3 += $Sep
  Next

Global $ChcBx4[10]
Global $Readsa4[10] = [$ReadN31,$ReadN32,$ReadN33,$ReadN34,$ReadN35,$ReadN36,$ReadN37,$ReadN38,$ReadN39,$ReadN40]
Global $BPI4 = 240, $BPA4 = 325
For $c4 = 0 To UBound($ChcBx4) - 1
   $ChcBx4[$c4] = GUICtrlCreateCheckbox($Readsa4[$c4],$BPI4,$BPA4,$Anch,$Alt)
      $BPA4 += $Sep
  Next

Global $ChcBx5[10]
Global $Readsa5[10] = [$ReadN41,$ReadN42,$ReadN43,$ReadN44,$ReadN45,$ReadN46,$ReadN47,$ReadN48,$ReadN49,$ReadN50]
Global $BPI5 = 380, $BPA5 = 35
For $c5 = 0 To UBound($ChcBx5) - 1
   $ChcBx5[$c5] = GUICtrlCreateCheckbox($Readsa5[$c5],$BPI5,$BPA5,$Anch,$Alt)
      $BPA5 += $Sep
  Next

Global $Anch = 120, $Alt = 25, $Sep = 25
Global $ChcBx6[10]
Global $Readsa6[10] = [$ReadN51,$ReadN52,$ReadN53,$ReadN54,$ReadN55,$ReadN56,$ReadN57,$ReadN58,$ReadN59,$ReadN60]
Global $BPI6 = 380, $BPA6 = 325
For $c6 = 0 To UBound($ChcBx6) - 1
   $ChcBx6[$c6] = GUICtrlCreateCheckbox($Readsa6[$c6],$BPI6,$BPA6,$Anch,$Alt)
      $BPA6 += $Sep
  Next

Global $ChcBx7[10]
Global $Readsa7[10] = [$ReadN61,$ReadN62,$ReadN63,$ReadN64,$ReadN65,$ReadN66,$ReadN67,$ReadN68,$ReadN69,$ReadN70]
Global $BPI7 = 520, $BPA7 = 35
For $c7 = 0 To UBound($ChcBx7) - 1
   $ChcBx7[$c7] = GUICtrlCreateCheckbox($Readsa7[$c7],$BPI7,$BPA7,$Anch,$Alt)
      $BPA7 += $Sep
  Next

Global $ChcBx8[10]
Global $Readsa8[10] = [$ReadN71,$ReadN72,$ReadN73,$ReadN74,$ReadN75,$ReadN76,$ReadN77,$ReadN78,$ReadN79,$ReadN80]
Global $BPI8 = 520, $BPA8 = 325
For $c8 = 0 To UBound($ChcBx8) - 1
   $ChcBx8[$c8] = GUICtrlCreateCheckbox($Readsa8[$c8],$BPI8,$BPA8,$Anch,$Alt)
      $BPA8 += $Sep
  Next
#################################################################################################################
;Linea que verifica el estado de los CheckBox en el doc
$ReadS1 = FileReadLine(@ScriptDir&"\Programas.txt",3)
$ReadS2 = FileReadLine(@ScriptDir&"\Programas.txt",6)
$ReadS3 = FileReadLine(@ScriptDir&"\Programas.txt",9)
$ReadS4 = FileReadLine(@ScriptDir&"\Programas.txt",12)
$ReadS5 = FileReadLine(@ScriptDir&"\Programas.txt",15)
$ReadS6 = FileReadLine(@ScriptDir&"\Programas.txt",18)
$ReadS7 = FileReadLine(@ScriptDir&"\Programas.txt",21)
$ReadS8 = FileReadLine(@ScriptDir&"\Programas.txt",24)
$ReadS9 = FileReadLine(@ScriptDir&"\Programas.txt",27)
$ReadS10 = FileReadLine(@ScriptDir&"\Programas.txt",30)

$ReadS11 = FileReadLine(@ScriptDir&"\Programas.txt",33)
$ReadS12 = FileReadLine(@ScriptDir&"\Programas.txt",36)
$ReadS13 = FileReadLine(@ScriptDir&"\Programas.txt",39)
$ReadS14 = FileReadLine(@ScriptDir&"\Programas.txt",42)
$ReadS15 = FileReadLine(@ScriptDir&"\Programas.txt",45)
$ReadS16 = FileReadLine(@ScriptDir&"\Programas.txt",48)
$ReadS17 = FileReadLine(@ScriptDir&"\Programas.txt",51)
$ReadS18 = FileReadLine(@ScriptDir&"\Programas.txt",54)
$ReadS19 = FileReadLine(@ScriptDir&"\Programas.txt",57)
$ReadS20 = FileReadLine(@ScriptDir&"\Programas.txt",60)

$ReadS21 = FileReadLine(@ScriptDir&"\Programas.txt",63)
$ReadS22 = FileReadLine(@ScriptDir&"\Programas.txt",66)
$ReadS23 = FileReadLine(@ScriptDir&"\Programas.txt",69)
$ReadS24 = FileReadLine(@ScriptDir&"\Programas.txt",72)
$ReadS25 = FileReadLine(@ScriptDir&"\Programas.txt",75)
$ReadS26 = FileReadLine(@ScriptDir&"\Programas.txt",78)
$ReadS27 = FileReadLine(@ScriptDir&"\Programas.txt",81)
$ReadS28 = FileReadLine(@ScriptDir&"\Programas.txt",84)
$ReadS29 = FileReadLine(@ScriptDir&"\Programas.txt",87)
$ReadS30 = FileReadLine(@ScriptDir&"\Programas.txt",90)

$ReadS31 = FileReadLine(@ScriptDir&"\Programas.txt",93)
$ReadS32 = FileReadLine(@ScriptDir&"\Programas.txt",96)
$ReadS33 = FileReadLine(@ScriptDir&"\Programas.txt",99)
$ReadS34 = FileReadLine(@ScriptDir&"\Programas.txt",102)
$ReadS35 = FileReadLine(@ScriptDir&"\Programas.txt",105)
$ReadS36 = FileReadLine(@ScriptDir&"\Programas.txt",108)
$ReadS37 = FileReadLine(@ScriptDir&"\Programas.txt",111)
$ReadS38 = FileReadLine(@ScriptDir&"\Programas.txt",114)
$ReadS39 = FileReadLine(@ScriptDir&"\Programas.txt",117)
$ReadS40 = FileReadLine(@ScriptDir&"\Programas.txt",120)

$ReadS41 = FileReadLine(@ScriptDir&"\Programas.txt",123)
$ReadS42 = FileReadLine(@ScriptDir&"\Programas.txt",126)
$ReadS43 = FileReadLine(@ScriptDir&"\Programas.txt",129)
$ReadS44 = FileReadLine(@ScriptDir&"\Programas.txt",132)
$ReadS45 = FileReadLine(@ScriptDir&"\Programas.txt",135)
$ReadS46 = FileReadLine(@ScriptDir&"\Programas.txt",138)
$ReadS47 = FileReadLine(@ScriptDir&"\Programas.txt",141)
$ReadS48 = FileReadLine(@ScriptDir&"\Programas.txt",144)
$ReadS49 = FileReadLine(@ScriptDir&"\Programas.txt",147)
$ReadS50 = FileReadLine(@ScriptDir&"\Programas.txt",150)

$ReadS51 = FileReadLine(@ScriptDir&"\Programas.txt",153)
$ReadS52 = FileReadLine(@ScriptDir&"\Programas.txt",156)
$ReadS53 = FileReadLine(@ScriptDir&"\Programas.txt",159)
$ReadS54 = FileReadLine(@ScriptDir&"\Programas.txt",162)
$ReadS55 = FileReadLine(@ScriptDir&"\Programas.txt",165)
$ReadS56 = FileReadLine(@ScriptDir&"\Programas.txt",168)
$ReadS57 = FileReadLine(@ScriptDir&"\Programas.txt",171)
$ReadS58 = FileReadLine(@ScriptDir&"\Programas.txt",174)
$ReadS59 = FileReadLine(@ScriptDir&"\Programas.txt",177)
$ReadS60 = FileReadLine(@ScriptDir&"\Programas.txt",180)

$ReadS61 = FileReadLine(@ScriptDir&"\Programas.txt",183)
$ReadS62 = FileReadLine(@ScriptDir&"\Programas.txt",186)
$ReadS63 = FileReadLine(@ScriptDir&"\Programas.txt",189)
$ReadS64 = FileReadLine(@ScriptDir&"\Programas.txt",192)
$ReadS65 = FileReadLine(@ScriptDir&"\Programas.txt",195)
$ReadS66 = FileReadLine(@ScriptDir&"\Programas.txt",198)
$ReadS67 = FileReadLine(@ScriptDir&"\Programas.txt",201)
$ReadS68 = FileReadLine(@ScriptDir&"\Programas.txt",204)
$ReadS69 = FileReadLine(@ScriptDir&"\Programas.txt",207)
$ReadS70 = FileReadLine(@ScriptDir&"\Programas.txt",210)

$ReadS71 = FileReadLine(@ScriptDir&"\Programas.txt",213)
$ReadS72 = FileReadLine(@ScriptDir&"\Programas.txt",216)
$ReadS73 = FileReadLine(@ScriptDir&"\Programas.txt",219)
$ReadS74 = FileReadLine(@ScriptDir&"\Programas.txt",222)
$ReadS75 = FileReadLine(@ScriptDir&"\Programas.txt",225)
$ReadS76 = FileReadLine(@ScriptDir&"\Programas.txt",228)
$ReadS77 = FileReadLine(@ScriptDir&"\Programas.txt",231)
$ReadS78 = FileReadLine(@ScriptDir&"\Programas.txt",234)
$ReadS79 = FileReadLine(@ScriptDir&"\Programas.txt",237)
$ReadS80 = FileReadLine(@ScriptDir&"\Programas.txt",240)
#################################################################################################################
;Esta linea cheque si los checkbox deben estar activados o desactivados
If $ReadS1 = 1 Then
	GUICtrlSetState($ChcBx1[0],$GUI_CHECKED)
EndIf
If $ReadS1 = 0 Then
	GUICtrlSetState($ChcBx1[0],$GUI_UNCHECKED)
EndIf
If $ReadS2 = 1 Then
	GUICtrlSetState($ChcBx1[1],$GUI_CHECKED)
EndIf
If $ReadS2 = 0 Then
	GUICtrlSetState($ChcBx1[1],$GUI_UNCHECKED)
EndIf
If $ReadS3 = 1 Then
	GUICtrlSetState($ChcBx1[2],$GUI_CHECKED)
EndIf
If $ReadS3 = 0 Then
	GUICtrlSetState($ChcBx1[2],$GUI_UNCHECKED)
EndIf
If $ReadS4 = 1 Then
	GUICtrlSetState($ChcBx1[3],$GUI_CHECKED)
EndIf
If $ReadS4 = 0 Then
	GUICtrlSetState($ChcBx1[3],$GUI_UNCHECKED)
EndIf
If $ReadS5 = 1 Then
	GUICtrlSetState($ChcBx1[4],$GUI_CHECKED)
EndIf
If $ReadS5 = 0 Then
	GUICtrlSetState($ChcBx1[4],$GUI_UNCHECKED)
EndIf
If $ReadS6 = 1 Then
	GUICtrlSetState($ChcBx1[5],$GUI_CHECKED)
EndIf
If $ReadS6 = 0 Then
	GUICtrlSetState($ChcBx1[5],$GUI_UNCHECKED)
EndIf
If $ReadS7 = 1 Then
	GUICtrlSetState($ChcBx1[6],$GUI_CHECKED)
EndIf
If $ReadS7 = 0 Then
	GUICtrlSetState($ChcBx1[6],$GUI_UNCHECKED)
EndIf
If $ReadS8 = 1 Then
	GUICtrlSetState($ChcBx1[7],$GUI_CHECKED)
EndIf
If $ReadS8 = 0 Then
	GUICtrlSetState($ChcBx1[7],$GUI_UNCHECKED)
EndIf
If $ReadS9 = 1 Then
	GUICtrlSetState($ChcBx1[8],$GUI_CHECKED)
EndIf
If $ReadS9 = 0 Then
	GUICtrlSetState($ChcBx1[8],$GUI_UNCHECKED)
EndIf
If $ReadS10 = 1 Then
	GUICtrlSetState($ChcBx1[9],$GUI_CHECKED)
EndIf
If $ReadS10 = 0 Then
	GUICtrlSetState($ChcBx1[9],$GUI_UNCHECKED)
EndIf
If $ReadS11 = 1 Then
	GUICtrlSetState($ChcBx2[0],$GUI_CHECKED)
EndIf
If $ReadS11 = 0 Then
	GUICtrlSetState($ChcBx2[0],$GUI_UNCHECKED)
EndIf
If $ReadS12 = 1 Then
	GUICtrlSetState($ChcBx2[1],$GUI_CHECKED)
EndIf
If $ReadS12 = 0 Then
	GUICtrlSetState($ChcBx2[1],$GUI_UNCHECKED)
EndIf
If $ReadS13 = 1 Then
	GUICtrlSetState($ChcBx2[2],$GUI_CHECKED)
EndIf
If $ReadS13 = 0 Then
	GUICtrlSetState($ChcBx2[2],$GUI_UNCHECKED)
EndIf
If $ReadS14 = 1 Then
	GUICtrlSetState($ChcBx2[3],$GUI_CHECKED)
EndIf
If $ReadS14 = 0 Then
	GUICtrlSetState($ChcBx2[3],$GUI_UNCHECKED)
EndIf
If $ReadS15 = 1 Then
	GUICtrlSetState($ChcBx2[4],$GUI_CHECKED)
EndIf
If $ReadS15 = 0 Then
	GUICtrlSetState($ChcBx2[4],$GUI_UNCHECKED)
EndIf
If $ReadS16 = 1 Then
	GUICtrlSetState($ChcBx2[5],$GUI_CHECKED)
EndIf
If $ReadS16 = 0 Then
	GUICtrlSetState($ChcBx2[5],$GUI_UNCHECKED)
EndIf
If $ReadS17 = 1 Then
	GUICtrlSetState($ChcBx2[6],$GUI_CHECKED)
EndIf
If $ReadS17 = 0 Then
	GUICtrlSetState($ChcBx2[6],$GUI_UNCHECKED)
EndIf
If $ReadS18 = 1 Then
	GUICtrlSetState($ChcBx2[7],$GUI_CHECKED)
EndIf
If $ReadS18 = 0 Then
	GUICtrlSetState($ChcBx2[7],$GUI_UNCHECKED)
EndIf
If $ReadS19 = 1 Then
	GUICtrlSetState($ChcBx2[8],$GUI_CHECKED)
EndIf
If $ReadS19 = 0 Then
	GUICtrlSetState($ChcBx2[8],$GUI_UNCHECKED)
EndIf
If $ReadS20 = 1 Then
	GUICtrlSetState($ChcBx2[9],$GUI_CHECKED)
EndIf
If $ReadS20 = 0 Then
	GUICtrlSetState($ChcBx2[9],$GUI_UNCHECKED)
EndIf
If $ReadS21 = 1 Then
	GUICtrlSetState($ChcBx3[0],$GUI_CHECKED)
EndIf
If $ReadS21 = 0 Then
	GUICtrlSetState($ChcBx3[0],$GUI_UNCHECKED)
EndIf
If $ReadS22 = 1 Then
	GUICtrlSetState($ChcBx3[1],$GUI_CHECKED)
EndIf
If $ReadS22 = 0 Then
	GUICtrlSetState($ChcBx3[1],$GUI_UNCHECKED)
EndIf
If $ReadS23 = 1 Then
	GUICtrlSetState($ChcBx3[2],$GUI_CHECKED)
EndIf
If $ReadS23 = 0 Then
	GUICtrlSetState($ChcBx3[2],$GUI_UNCHECKED)
EndIf
If $ReadS24 = 1 Then
	GUICtrlSetState($ChcBx3[3],$GUI_CHECKED)
EndIf
If $ReadS24 = 0 Then
	GUICtrlSetState($ChcBx3[3],$GUI_UNCHECKED)
EndIf
If $ReadS25 = 1 Then
	GUICtrlSetState($ChcBx3[4],$GUI_CHECKED)
EndIf
If $ReadS25 = 0 Then
	GUICtrlSetState($ChcBx3[4],$GUI_UNCHECKED)
EndIf
If $ReadS26 = 1 Then
	GUICtrlSetState($ChcBx3[5],$GUI_CHECKED)
EndIf
If $ReadS26 = 0 Then
	GUICtrlSetState($ChcBx3[5],$GUI_UNCHECKED)
EndIf
If $ReadS27 = 1 Then
	GUICtrlSetState($ChcBx3[6],$GUI_CHECKED)
EndIf
If $ReadS27 = 0 Then
	GUICtrlSetState($ChcBx3[6],$GUI_UNCHECKED)
EndIf
If $ReadS28 = 1 Then
	GUICtrlSetState($ChcBx3[7],$GUI_CHECKED)
EndIf
If $ReadS28 = 0 Then
	GUICtrlSetState($ChcBx3[7],$GUI_UNCHECKED)
EndIf
If $ReadS29 = 1 Then
	GUICtrlSetState($ChcBx3[8],$GUI_CHECKED)
EndIf
If $ReadS29 = 0 Then
	GUICtrlSetState($ChcBx3[8],$GUI_UNCHECKED)
EndIf
If $ReadS30 = 1 Then
	GUICtrlSetState($ChcBx3[9],$GUI_CHECKED)
EndIf
If $ReadS30 = 0 Then
	GUICtrlSetState($ChcBx3[9],$GUI_UNCHECKED)
EndIf
If $ReadS31 = 1 Then
	GUICtrlSetState($ChcBx4[0],$GUI_CHECKED)
EndIf
If $ReadS31 = 0 Then
	GUICtrlSetState($ChcBx4[0],$GUI_UNCHECKED)
EndIf
If $ReadS32 = 1 Then
	GUICtrlSetState($ChcBx4[1],$GUI_CHECKED)
EndIf
If $ReadS32 = 0 Then
	GUICtrlSetState($ChcBx4[1],$GUI_UNCHECKED)
EndIf
If $ReadS33 = 1 Then
	GUICtrlSetState($ChcBx4[2],$GUI_CHECKED)
EndIf
If $ReadS33 = 0 Then
	GUICtrlSetState($ChcBx4[2],$GUI_UNCHECKED)
EndIf
If $ReadS34 = 1 Then
	GUICtrlSetState($ChcBx4[3],$GUI_CHECKED)
EndIf
If $ReadS34 = 0 Then
	GUICtrlSetState($ChcBx4[3],$GUI_UNCHECKED)
EndIf
If $ReadS35 = 1 Then
	GUICtrlSetState($ChcBx4[4],$GUI_CHECKED)
EndIf
If $ReadS35 = 0 Then
	GUICtrlSetState($ChcBx4[4],$GUI_UNCHECKED)
EndIf
If $ReadS36 = 1 Then
	GUICtrlSetState($ChcBx4[5],$GUI_CHECKED)
EndIf
If $ReadS36 = 0 Then
	GUICtrlSetState($ChcBx4[5],$GUI_UNCHECKED)
EndIf
If $ReadS37 = 1 Then
	GUICtrlSetState($ChcBx4[6],$GUI_CHECKED)
EndIf
If $ReadS37 = 0 Then
	GUICtrlSetState($ChcBx4[6],$GUI_UNCHECKED)
EndIf
If $ReadS38 = 1 Then
	GUICtrlSetState($ChcBx4[7],$GUI_CHECKED)
EndIf
If $ReadS38 = 0 Then
	GUICtrlSetState($ChcBx4[7],$GUI_UNCHECKED)
EndIf
If $ReadS39 = 1 Then
	GUICtrlSetState($ChcBx4[8],$GUI_CHECKED)
EndIf
If $ReadS39 = 0 Then
	GUICtrlSetState($ChcBx4[8],$GUI_UNCHECKED)
EndIf
If $ReadS40 = 1 Then
	GUICtrlSetState($ChcBx4[9],$GUI_CHECKED)
EndIf
If $ReadS40 = 0 Then
	GUICtrlSetState($ChcBx4[9],$GUI_UNCHECKED)
EndIf
If $ReadS41 = 1 Then
	GUICtrlSetState($ChcBx5[0],$GUI_CHECKED)
EndIf
If $ReadS41 = 0 Then
	GUICtrlSetState($ChcBx5[0],$GUI_UNCHECKED)
EndIf
If $ReadS42 = 1 Then
	GUICtrlSetState($ChcBx5[1],$GUI_CHECKED)
EndIf
If $ReadS42 = 0 Then
	GUICtrlSetState($ChcBx5[1],$GUI_UNCHECKED)
EndIf
If $ReadS43 = 1 Then
	GUICtrlSetState($ChcBx5[2],$GUI_CHECKED)
EndIf
If $ReadS43 = 0 Then
	GUICtrlSetState($ChcBx5[2],$GUI_UNCHECKED)
EndIf
If $ReadS44 = 1 Then
	GUICtrlSetState($ChcBx5[3],$GUI_CHECKED)
EndIf
If $ReadS44 = 0 Then
	GUICtrlSetState($ChcBx5[3],$GUI_UNCHECKED)
EndIf
If $ReadS45 = 1 Then
	GUICtrlSetState($ChcBx5[4],$GUI_CHECKED)
EndIf
If $ReadS45 = 0 Then
	GUICtrlSetState($ChcBx5[4],$GUI_UNCHECKED)
EndIf
If $ReadS46 = 1 Then
	GUICtrlSetState($ChcBx5[5],$GUI_CHECKED)
EndIf
If $ReadS46 = 0 Then
	GUICtrlSetState($ChcBx5[5],$GUI_UNCHECKED)
EndIf
If $ReadS47 = 1 Then
	GUICtrlSetState($ChcBx5[6],$GUI_CHECKED)
EndIf
If $ReadS47 = 0 Then
	GUICtrlSetState($ChcBx5[6],$GUI_UNCHECKED)
EndIf
If $ReadS48 = 1 Then
	GUICtrlSetState($ChcBx5[7],$GUI_CHECKED)
EndIf
If $ReadS48 = 0 Then
	GUICtrlSetState($ChcBx5[7],$GUI_UNCHECKED)
EndIf
If $ReadS49 = 1 Then
	GUICtrlSetState($ChcBx5[8],$GUI_CHECKED)
EndIf
If $ReadS49 = 0 Then
	GUICtrlSetState($ChcBx5[8],$GUI_UNCHECKED)
EndIf
If $ReadS50 = 1 Then
	GUICtrlSetState($ChcBx5[9],$GUI_CHECKED)
EndIf
If $ReadS50 = 0 Then
	GUICtrlSetState($ChcBx5[9],$GUI_UNCHECKED)
EndIf
If $ReadS51 = 1 Then
	GUICtrlSetState($ChcBx6[0],$GUI_CHECKED)
EndIf
If $ReadS51 = 0 Then
	GUICtrlSetState($ChcBx6[0],$GUI_UNCHECKED)
EndIf
If $ReadS52 = 1 Then
	GUICtrlSetState($ChcBx6[1],$GUI_CHECKED)
EndIf
If $ReadS52 = 0 Then
	GUICtrlSetState($ChcBx6[1],$GUI_UNCHECKED)
EndIf
If $ReadS53 = 1 Then
	GUICtrlSetState($ChcBx6[2],$GUI_CHECKED)
EndIf
If $ReadS53 = 0 Then
	GUICtrlSetState($ChcBx6[2],$GUI_UNCHECKED)
EndIf
If $ReadS54 = 1 Then
	GUICtrlSetState($ChcBx6[3],$GUI_CHECKED)
EndIf
If $ReadS54 = 0 Then
	GUICtrlSetState($ChcBx6[3],$GUI_UNCHECKED)
EndIf
If $ReadS55 = 1 Then
	GUICtrlSetState($ChcBx6[4],$GUI_CHECKED)
EndIf
If $ReadS55 = 0 Then
	GUICtrlSetState($ChcBx6[4],$GUI_UNCHECKED)
EndIf
If $ReadS56 = 1 Then
	GUICtrlSetState($ChcBx6[5],$GUI_CHECKED)
EndIf
If $ReadS56 = 0 Then
	GUICtrlSetState($ChcBx6[5],$GUI_UNCHECKED)
EndIf
If $ReadS57 = 1 Then
	GUICtrlSetState($ChcBx6[6],$GUI_CHECKED)
EndIf
If $ReadS57 = 0 Then
	GUICtrlSetState($ChcBx6[6],$GUI_UNCHECKED)
EndIf
If $ReadS58 = 1 Then
	GUICtrlSetState($ChcBx6[7],$GUI_CHECKED)
EndIf
If $ReadS58 = 0 Then
	GUICtrlSetState($ChcBx6[7],$GUI_UNCHECKED)
EndIf
If $ReadS59 = 1 Then
	GUICtrlSetState($ChcBx6[8],$GUI_CHECKED)
EndIf
If $ReadS59 = 0 Then
	GUICtrlSetState($ChcBx6[8],$GUI_UNCHECKED)
EndIf
If $ReadS60 = 1 Then
	GUICtrlSetState($ChcBx6[9],$GUI_CHECKED)
EndIf
If $ReadS60 = 0 Then
	GUICtrlSetState($ChcBx6[9],$GUI_UNCHECKED)
EndIf
If $ReadS61 = 1 Then
	GUICtrlSetState($ChcBx7[0],$GUI_CHECKED)
EndIf
If $ReadS61 = 0 Then
	GUICtrlSetState($ChcBx7[0],$GUI_UNCHECKED)
EndIf
If $ReadS62 = 1 Then
	GUICtrlSetState($ChcBx7[1],$GUI_CHECKED)
EndIf
If $ReadS62 = 0 Then
	GUICtrlSetState($ChcBx7[1],$GUI_UNCHECKED)
EndIf
If $ReadS63 = 1 Then
	GUICtrlSetState($ChcBx7[2],$GUI_CHECKED)
EndIf
If $ReadS63 = 0 Then
	GUICtrlSetState($ChcBx7[2],$GUI_UNCHECKED)
EndIf
If $ReadS64 = 1 Then
	GUICtrlSetState($ChcBx7[3],$GUI_CHECKED)
EndIf
If $ReadS64 = 0 Then
	GUICtrlSetState($ChcBx7[3],$GUI_UNCHECKED)
EndIf
If $ReadS65 = 1 Then
	GUICtrlSetState($ChcBx7[4],$GUI_CHECKED)
EndIf
If $ReadS65 = 0 Then
	GUICtrlSetState($ChcBx7[4],$GUI_UNCHECKED)
EndIf
If $ReadS66 = 1 Then
	GUICtrlSetState($ChcBx7[5],$GUI_CHECKED)
EndIf
If $ReadS66 = 0 Then
	GUICtrlSetState($ChcBx7[5],$GUI_UNCHECKED)
EndIf
If $ReadS67 = 1 Then
	GUICtrlSetState($ChcBx7[6],$GUI_CHECKED)
EndIf
If $ReadS67 = 0 Then
	GUICtrlSetState($ChcBx7[6],$GUI_UNCHECKED)
EndIf
If $ReadS68 = 1 Then
	GUICtrlSetState($ChcBx7[7],$GUI_CHECKED)
EndIf
If $ReadS68 = 0 Then
	GUICtrlSetState($ChcBx7[7],$GUI_UNCHECKED)
EndIf
If $ReadS69 = 1 Then
	GUICtrlSetState($ChcBx7[8],$GUI_CHECKED)
EndIf
If $ReadS69 = 0 Then
	GUICtrlSetState($ChcBx7[8],$GUI_UNCHECKED)
EndIf
If $ReadS70 = 1 Then
	GUICtrlSetState($ChcBx7[9],$GUI_CHECKED)
EndIf
If $ReadS70 = 0 Then
	GUICtrlSetState($ChcBx7[9],$GUI_UNCHECKED)
EndIf
If $ReadS71 = 1 Then
	GUICtrlSetState($ChcBx8[0],$GUI_CHECKED)
EndIf
If $ReadS71 = 0 Then
	GUICtrlSetState($ChcBx8[0],$GUI_UNCHECKED)
EndIf
If $ReadS72 = 1 Then
	GUICtrlSetState($ChcBx8[1],$GUI_CHECKED)
EndIf
If $ReadS72 = 0 Then
	GUICtrlSetState($ChcBx8[1],$GUI_UNCHECKED)
EndIf
If $ReadS73 = 1 Then
	GUICtrlSetState($ChcBx8[2],$GUI_CHECKED)
EndIf
If $ReadS73 = 0 Then
	GUICtrlSetState($ChcBx8[2],$GUI_UNCHECKED)
EndIf
If $ReadS74 = 1 Then
	GUICtrlSetState($ChcBx8[3],$GUI_CHECKED)
EndIf
If $ReadS74 = 0 Then
	GUICtrlSetState($ChcBx8[3],$GUI_UNCHECKED)
EndIf
If $ReadS75 = 1 Then
	GUICtrlSetState($ChcBx8[4],$GUI_CHECKED)
EndIf
If $ReadS75 = 0 Then
	GUICtrlSetState($ChcBx8[4],$GUI_UNCHECKED)
EndIf
If $ReadS76 = 1 Then
	GUICtrlSetState($ChcBx8[5],$GUI_CHECKED)
EndIf
If $ReadS76 = 0 Then
	GUICtrlSetState($ChcBx8[5],$GUI_UNCHECKED)
EndIf
If $ReadS77 = 1 Then
	GUICtrlSetState($ChcBx8[6],$GUI_CHECKED)
EndIf
If $ReadS77 = 0 Then
	GUICtrlSetState($ChcBx8[6],$GUI_UNCHECKED)
EndIf
If $ReadS78 = 1 Then
	GUICtrlSetState($ChcBx8[7],$GUI_CHECKED)
EndIf
If $ReadS78 = 0 Then
	GUICtrlSetState($ChcBx8[7],$GUI_UNCHECKED)
EndIf
If $ReadS79 = 1 Then
	GUICtrlSetState($ChcBx8[8],$GUI_CHECKED)
EndIf
If $ReadS79 = 0 Then
	GUICtrlSetState($ChcBx8[8],$GUI_UNCHECKED)
EndIf
If $ReadS80 = 1 Then
	GUICtrlSetState($ChcBx8[9],$GUI_CHECKED)
EndIf
If $ReadS80 = 0 Then
	GUICtrlSetState($ChcBx8[9],$GUI_UNCHECKED)
EndIf
#################################################################################################################
;Esta linea es de los GRUPOS
Global $AncG = 133, $GrsG = 275, $PosI1 = 93, $PosI2 = 233, $PosI3 = 373, $PosI4 = 513, $PosA1 = 10, $PosA2 = 300
Global $ColorG = 0x6699FF, $TamFG = 10, $GrsFG = 600, $AtrbFG = 1, $FontG = "Time New Rodman"

$Conf = GUICtrlCreateGroup("Configuraciónes",$PosI1,$PosA1,$AncG,$GrsG)
GUICtrlSetFont($Conf, $TamFG, $GrsFG, $AtrbFG, $FontG)

$Apli = GUICtrlCreateGroup("Aplicaciónes",$PosI1,$PosA2,$AncG,$GrsG)
GUICtrlSetFont($Apli, $TamFG, $GrsFG, $AtrbFG,$FontG)

$Ofic = GUICtrlCreateGroup("Oficina",$PosI2,$PosA1,$AncG,$GrsG)
GUICtrlSetFont($Ofic, $TamFG, $GrsFG, $AtrbFG,$FontG)

$Repr = GUICtrlCreateGroup("Reproductores",$PosI2,$PosA2,$AncG,$GrsG)
GUICtrlSetFont($Repr, $TamFG, $GrsFG, $AtrbFG,$FontG)

$Edit = GUICtrlCreateGroup("Editores",$PosI3,$PosA1,$AncG,$GrsG)
GUICtrlSetFont($Edit, $TamFG, $GrsFG, $AtrbFG,$FontG)

$Prog = GUICtrlCreateGroup("Programación",$PosI3,$PosA2,$AncG,$GrsG)
GUICtrlSetFont($Prog, $TamFG, $GrsFG, $AtrbFG,$FontG)

$Comp = GUICtrlCreateGroup("Complementos",$PosI4,$PosA1,$AncG,$GrsG)
GUICtrlSetFont($Comp, $TamFG, $GrsFG, $AtrbFG,$FontG)

$Herr = GUICtrlCreateGroup("Herramientas",$PosI4,$PosA2,$AncG,$GrsG)
GUICtrlSetFont($Herr, $TamFG, $GrsFG, $AtrbFG,$FontG)
#################################################################################################################
GUISetState(@SW_Show)
#################################################################################################################
While 1
   $msg = GUIGetMsg()
   Switch 1

	Case $msg = $BtnIns
			;Esta linea hace las instalaciones
			If GUICtrlRead($ChcBx1[0]) = 1 Then
			$FlRd1 = FileReadLine(@ScriptDir&"\Programas.txt",2)
			ShellExecuteWait($FlRd1)
			EndIf
			If GUICtrlRead($ChcBx1[1]) = 1 Then
			$FlRd2 = FileReadLine(@ScriptDir&"\Programas.txt",5)
			ShellExecuteWait($FlRd2)
			EndIf
			If GUICtrlRead($ChcBx1[2]) = 1 Then
			$FlRd3 = FileReadLine(@ScriptDir&"\Programas.txt",8)
			ShellExecuteWait($FlRd3)
			EndIf
			If GUICtrlRead($ChcBx1[3]) = 1 Then
			$FlRd4 = FileReadLine(@ScriptDir&"\Programas.txt",11)
			ShellExecuteWait($FlRd4)
			EndIf
			If GUICtrlRead($ChcBx1[4]) = 1 Then
			$FlRd5 = FileReadLine(@ScriptDir&"\Programas.txt",14)
			ShellExecuteWait($FlRd5)
			EndIf
			If GUICtrlRead($ChcBx1[5]) = 1 Then
			$FlRd6 = FileReadLine(@ScriptDir&"\Programas.txt",17)
			ShellExecuteWait($FlRd6)
			EndIf
			If GUICtrlRead($ChcBx1[6]) = 1 Then
			$FlRd7 = FileReadLine(@ScriptDir&"\Programas.txt",20)
			ShellExecuteWait($FlRd7)
			EndIf
			If GUICtrlRead($ChcBx1[7]) = 1 Then
			$FlRd8 = FileReadLine(@ScriptDir&"\Programas.txt",23)
			ShellExecuteWait($FlRd8)
			EndIf
			If GUICtrlRead($ChcBx1[8]) = 1 Then
			$FlRd9 = FileReadLine(@ScriptDir&"\Programas.txt",26)
			ShellExecuteWait($FlRd9)
			EndIf
			If GUICtrlRead($ChcBx1[9]) = 1 Then
			$FlRd10 = FileReadLine(@ScriptDir&"\Programas.txt",29)
			ShellExecuteWait($FlRd10)
			EndIf
			If GUICtrlRead($ChcBx2[0]) = 1 Then
			$FlRd11 = FileReadLine(@ScriptDir&"\Programas.txt",32)
			ShellExecuteWait($FlRd11)
			EndIf
			If GUICtrlRead($ChcBx2[1]) = 1 Then
			$FlRd12 = FileReadLine(@ScriptDir&"\Programas.txt",35)
			ShellExecuteWait($FlRd12)
			EndIf
			If GUICtrlRead($ChcBx2[2]) = 1 Then
			$FlRd13 = FileReadLine(@ScriptDir&"\Programas.txt",38)
			ShellExecuteWait($FlRd13)
			EndIf
			If GUICtrlRead($ChcBx2[3]) = 1 Then
			$FlRd14 = FileReadLine(@ScriptDir&"\Programas.txt",41)
			ShellExecuteWait($FlRd14)
			EndIf
			If GUICtrlRead($ChcBx2[4]) = 1 Then
			$FlRd15 = FileReadLine(@ScriptDir&"\Programas.txt",44)
			ShellExecuteWait($FlRd15)
			EndIf
			If GUICtrlRead($ChcBx2[5]) = 1 Then
			$FlRd16 = FileReadLine(@ScriptDir&"\Programas.txt",47)
			ShellExecuteWait($FlRd16)
			EndIf
			If GUICtrlRead($ChcBx2[6]) = 1 Then
			$FlRd17 = FileReadLine(@ScriptDir&"\Programas.txt",50)
			ShellExecuteWait($FlRd17)
			EndIf
			If GUICtrlRead($ChcBx2[7]) = 1 Then
			$FlRd18 = FileReadLine(@ScriptDir&"\Programas.txt",53)
			ShellExecuteWait($FlRd18)
			EndIf
			If GUICtrlRead($ChcBx2[8]) = 1 Then
			$FlRd19 = FileReadLine(@ScriptDir&"\Programas.txt",56)
			ShellExecuteWait($FlRd19)
			EndIf
			If GUICtrlRead($ChcBx2[9]) = 1 Then
			$FlRd20 = FileReadLine(@ScriptDir&"\Programas.txt",59)
			ShellExecuteWait($FlRd20)
			EndIf
			If GUICtrlRead($ChcBx3[0]) = 1 Then
			$FlRd21 = FileReadLine(@ScriptDir&"\Programas.txt",62)
			ShellExecuteWait($FlRd21)
			EndIf
			If GUICtrlRead($ChcBx3[1]) = 1 Then
			$FlRd22 = FileReadLine(@ScriptDir&"\Programas.txt",65)
			ShellExecuteWait($FlRd22)
			EndIf
			If GUICtrlRead($ChcBx3[2]) = 1 Then
			$FlRd23 = FileReadLine(@ScriptDir&"\Programas.txt",68)
			ShellExecuteWait($FlRd23)
			EndIf
			If GUICtrlRead($ChcBx3[3]) = 1 Then
			$FlRd24 = FileReadLine(@ScriptDir&"\Programas.txt",71)
			ShellExecuteWait($FlRd24)
			EndIf
			If GUICtrlRead($ChcBx3[4]) = 1 Then
			$FlRd25 = FileReadLine(@ScriptDir&"\Programas.txt",74)
			ShellExecuteWait($FlRd25)
			EndIf
			If GUICtrlRead($ChcBx3[5]) = 1 Then
			$FlRd26 = FileReadLine(@ScriptDir&"\Programas.txt",77)
			ShellExecuteWait($FlRd26)
			EndIf
			If GUICtrlRead($ChcBx3[6]) = 1 Then
			$FlRd27 = FileReadLine(@ScriptDir&"\Programas.txt",80)
			ShellExecuteWait($FlRd27)
			EndIf
			If GUICtrlRead($ChcBx3[7]) = 1 Then
			$FlRd8 = FileReadLine(@ScriptDir&"\Programas.txt",83)
			ShellExecuteWait($FlRd8)
			EndIf
			If GUICtrlRead($ChcBx3[8]) = 1 Then
			$FlRd9 = FileReadLine(@ScriptDir&"\Programas.txt",86)
			ShellExecuteWait($FlRd9)
			EndIf
			If GUICtrlRead($ChcBx3[9]) = 1 Then
			$FlRd30 = FileReadLine(@ScriptDir&"\Programas.txt",89)
			ShellExecuteWait($FlRd30)
			EndIf
			If GUICtrlRead($ChcBx4[0]) = 1 Then
			$FlRd31 = FileReadLine(@ScriptDir&"\Programas.txt",92)
			ShellExecuteWait($FlRd31)
			EndIf
			If GUICtrlRead($ChcBx4[1]) = 1 Then
			$FlRd32 = FileReadLine(@ScriptDir&"\Programas.txt",95)
			ShellExecuteWait($FlRd32)
			EndIf
			If GUICtrlRead($ChcBx4[2]) = 1 Then
			$FlRd33 = FileReadLine(@ScriptDir&"\Programas.txt",98)
			ShellExecuteWait($FlRd33)
			EndIf
			If GUICtrlRead($ChcBx4[3]) = 1 Then
			$FlRd34 = FileReadLine(@ScriptDir&"\Programas.txt",101)
			ShellExecuteWait($FlRd34)
			EndIf
			If GUICtrlRead($ChcBx4[4]) = 1 Then
			$FlRd35 = FileReadLine(@ScriptDir&"\Programas.txt",104)
			ShellExecuteWait($FlRd35)
			EndIf
			If GUICtrlRead($ChcBx4[5]) = 1 Then
			$FlRd36 = FileReadLine(@ScriptDir&"\Programas.txt",107)
			ShellExecuteWait($FlRd36)
			EndIf
			If GUICtrlRead($ChcBx4[6]) = 1 Then
			$FlRd37 = FileReadLine(@ScriptDir&"\Programas.txt",110)
			ShellExecuteWait($FlRd37)
			EndIf
			If GUICtrlRead($ChcBx4[7]) = 1 Then
			$FlRd38 = FileReadLine(@ScriptDir&"\Programas.txt",113)
			ShellExecuteWait($FlRd38)
			EndIf
			If GUICtrlRead($ChcBx4[8]) = 1 Then
			$FlRd39 = FileReadLine(@ScriptDir&"\Programas.txt",116)
			ShellExecuteWait($FlRd39)
			EndIf
			If GUICtrlRead($ChcBx4[9]) = 1 Then
			$FlRd40 = FileReadLine(@ScriptDir&"\Programas.txt",119)
			ShellExecuteWait($FlRd40)
			EndIf
			If GUICtrlRead($ChcBx5[0]) = 1 Then
			$FlRd41 = FileReadLine(@ScriptDir&"\Programas.txt",122)
			ShellExecuteWait($FlRd41)
			EndIf
			If GUICtrlRead($ChcBx5[1]) = 1 Then
			$FlRd42 = FileReadLine(@ScriptDir&"\Programas.txt",125)
			ShellExecuteWait($FlRd42)
			EndIf
			If GUICtrlRead($ChcBx5[2]) = 1 Then
			$FlRd43 = FileReadLine(@ScriptDir&"\Programas.txt",128)
			ShellExecuteWait($FlRd43)
			EndIf
			If GUICtrlRead($ChcBx5[3]) = 1 Then
			$FlRd44 = FileReadLine(@ScriptDir&"\Programas.txt",131)
			ShellExecuteWait($FlRd44)
			EndIf
			If GUICtrlRead($ChcBx5[4]) = 1 Then
			$FlRd45 = FileReadLine(@ScriptDir&"\Programas.txt",134)
			ShellExecuteWait($FlRd45)
			EndIf
			If GUICtrlRead($ChcBx5[5]) = 1 Then
			$FlRd46 = FileReadLine(@ScriptDir&"\Programas.txt",137)
			ShellExecuteWait($FlRd46)
			EndIf
			If GUICtrlRead($ChcBx5[6]) = 1 Then
			$FlRd47 = FileReadLine(@ScriptDir&"\Programas.txt",140)
			ShellExecuteWait($FlRd47)
			EndIf
			If GUICtrlRead($ChcBx5[7]) = 1 Then
			$FlRd48 = FileReadLine(@ScriptDir&"\Programas.txt",143)
			ShellExecuteWait($FlRd48)
			EndIf
			If GUICtrlRead($ChcBx5[8]) = 1 Then
			$FlRd49 = FileReadLine(@ScriptDir&"\Programas.txt",146)
			ShellExecuteWait($FlRd49)
			EndIf
			If GUICtrlRead($ChcBx5[9]) = 1 Then
			$FlRd50 = FileReadLine(@ScriptDir&"\Programas.txt",149)
			ShellExecuteWait($FlRd50)
			EndIf
			If GUICtrlRead($ChcBx6[0]) = 1 Then
			$FlRd51 = FileReadLine(@ScriptDir&"\Programas.txt",152)
			ShellExecuteWait($FlRd51)
			EndIf
			If GUICtrlRead($ChcBx6[1]) = 1 Then
			$FlRd52 = FileReadLine(@ScriptDir&"\Programas.txt",155)
			ShellExecuteWait($FlRd52)
			EndIf
			If GUICtrlRead($ChcBx6[2]) = 1 Then
			$FlRd53 = FileReadLine(@ScriptDir&"\Programas.txt",158)
			ShellExecuteWait($FlRd53)
			EndIf
			If GUICtrlRead($ChcBx6[3]) = 1 Then
			$FlRd54 = FileReadLine(@ScriptDir&"\Programas.txt",161)
			ShellExecuteWait($FlRd54)
			EndIf
			If GUICtrlRead($ChcBx6[4]) = 1 Then
			$FlRd55 = FileReadLine(@ScriptDir&"\Programas.txt",164)
			ShellExecuteWait($FlRd55)
			EndIf
			If GUICtrlRead($ChcBx6[5]) = 1 Then
			$FlRd56 = FileReadLine(@ScriptDir&"\Programas.txt",167)
			ShellExecuteWait($FlRd56)
			EndIf
			If GUICtrlRead($ChcBx6[6]) = 1 Then
			$FlRd57 = FileReadLine(@ScriptDir&"\Programas.txt",170)
			ShellExecuteWait($FlRd57)
			EndIf
			If GUICtrlRead($ChcBx6[7]) = 1 Then
			$FlRd58 = FileReadLine(@ScriptDir&"\Programas.txt",173)
			ShellExecuteWait($FlRd58)
			EndIf
			If GUICtrlRead($ChcBx6[8]) = 1 Then
			$FlRd59 = FileReadLine(@ScriptDir&"\Programas.txt",176)
			ShellExecuteWait($FlRd59)
			EndIf
			If GUICtrlRead($ChcBx6[9]) = 1 Then
			$FlRd60 = FileReadLine(@ScriptDir&"\Programas.txt",179)
			ShellExecuteWait($FlRd60)
			EndIf
			If GUICtrlRead($ChcBx7[0]) = 1 Then
			$FlRd61 = FileReadLine(@ScriptDir&"\Programas.txt",182)
			ShellExecuteWait($FlRd61)
			EndIf
			If GUICtrlRead($ChcBx7[1]) = 1 Then
			$FlRd62 = FileReadLine(@ScriptDir&"\Programas.txt",185)
			ShellExecuteWait($FlRd62)
			EndIf
			If GUICtrlRead($ChcBx7[2]) = 1 Then
			$FlRd63 = FileReadLine(@ScriptDir&"\Programas.txt",188)
			ShellExecuteWait($FlRd63)
			EndIf
			If GUICtrlRead($ChcBx7[3]) = 1 Then
			$FlRd64 = FileReadLine(@ScriptDir&"\Programas.txt",191)
			ShellExecuteWait($FlRd64)
			EndIf
			If GUICtrlRead($ChcBx7[4]) = 1 Then
			$FlRd65 = FileReadLine(@ScriptDir&"\Programas.txt",194)
			ShellExecuteWait($FlRd65)
			EndIf
			If GUICtrlRead($ChcBx7[5]) = 1 Then
			$FlRd66 = FileReadLine(@ScriptDir&"\Programas.txt",197)
			ShellExecuteWait($FlRd66)
			EndIf
			If GUICtrlRead($ChcBx7[6]) = 1 Then
			$FlRd67 = FileReadLine(@ScriptDir&"\Programas.txt",200)
			ShellExecuteWait($FlRd67)
			EndIf
			If GUICtrlRead($ChcBx7[7]) = 1 Then
			$FlRd68 = FileReadLine(@ScriptDir&"\Programas.txt",203)
			ShellExecuteWait($FlRd68)
			EndIf
			If GUICtrlRead($ChcBx7[8]) = 1 Then
			$FlRd69 = FileReadLine(@ScriptDir&"\Programas.txt",206)
			ShellExecuteWait($FlRd69)
			EndIf
			If GUICtrlRead($ChcBx7[9]) = 1 Then
			$FlRd70 = FileReadLine(@ScriptDir&"\Programas.txt",209)
			ShellExecuteWait($FlRd70)
			EndIf
			If GUICtrlRead($ChcBx8[0]) = 1 Then
			$FlRd71 = FileReadLine(@ScriptDir&"\Programas.txt",212)
			ShellExecuteWait($FlRd71)
			EndIf
			If GUICtrlRead($ChcBx8[1]) = 1 Then
			$FlRd72 = FileReadLine(@ScriptDir&"\Programas.txt",215)
			ShellExecuteWait($FlRd72)
			EndIf
			If GUICtrlRead($ChcBx8[2]) = 1 Then
			$FlRd73 = FileReadLine(@ScriptDir&"\Programas.txt",218)
			ShellExecuteWait($FlRd73)
			EndIf
			If GUICtrlRead($ChcBx8[3]) = 1 Then
			$FlRd74 = FileReadLine(@ScriptDir&"\Programas.txt",221)
			ShellExecuteWait($FlRd74)
			EndIf
			If GUICtrlRead($ChcBx8[4]) = 1 Then
			$FlRd75 = FileReadLine(@ScriptDir&"\Programas.txt",224)
			ShellExecuteWait($FlRd75)
			EndIf
			If GUICtrlRead($ChcBx8[5]) = 1 Then
			$FlRd76 = FileReadLine(@ScriptDir&"\Programas.txt",227)
			ShellExecuteWait($FlRd76)
			EndIf
			If GUICtrlRead($ChcBx8[6]) = 1 Then
			$FlRd77 = FileReadLine(@ScriptDir&"\Programas.txt",230)
			ShellExecuteWait($FlRd77)
			EndIf
			If GUICtrlRead($ChcBx8[7]) = 1 Then
			$FlRd78 = FileReadLine(@ScriptDir&"\Programas.txt",233)
			ShellExecuteWait($FlRd78)
			EndIf
			If GUICtrlRead($ChcBx8[8]) = 1 Then
			$FlRd79 = FileReadLine(@ScriptDir&"\Programas.txt",236)
			ShellExecuteWait($FlRd79)
			EndIf
			If GUICtrlRead($ChcBx8[9]) = 1 Then
			$FlRd80 = FileReadLine(@ScriptDir&"\Programas.txt",239)
			ShellExecuteWait($FlRd80)
			EndIf
			If GUICtrlRead($Fin) = 1 Then
				MsgBox(0,"Instalador WBD","Se ha terminado de instalar los programas, ahora se cerrara el [email protected]",5)
				Winclose("Instalador WBD")
			Else
				MsgBox(0,"Instalador WBD","Se ha terminado de instalar los programas, puede seleccionar otros programas para [email protected]",5)
			EndIf
#################################################################################################################
;Esta linea selecciona los programas que se instalan por Default
	Case $msg = $BtnDflt

	If $ReadS1 = 1 Then
		GUICtrlSetState($ChcBx1[0],$GUI_CHECKED)
	EndIf
	If $ReadS2 = 1 Then
		GUICtrlSetState($ChcBx1[1],$GUI_CHECKED)
	EndIf
	If $ReadS3 = 1 Then
		GUICtrlSetState($ChcBx1[2],$GUI_CHECKED)
	EndIf
	If $ReadS4 = 1 Then
		GUICtrlSetState($ChcBx1[3],$GUI_CHECKED)
	EndIf
	If $ReadS5 = 1 Then
		GUICtrlSetState($ChcBx1[4],$GUI_CHECKED)
	EndIf
	If $ReadS6 = 1 Then
		GUICtrlSetState($ChcBx1[5],$GUI_CHECKED)
	EndIf
	If $ReadS7 = 1 Then
		GUICtrlSetState($ChcBx1[6],$GUI_CHECKED)
	EndIf
	If $ReadS8 = 1 Then
		GUICtrlSetState($ChcBx1[7],$GUI_CHECKED)
	EndIf
	If $ReadS9 = 1 Then
		GUICtrlSetState($ChcBx1[8],$GUI_CHECKED)
	EndIf
	If $ReadS10 = 1 Then
		GUICtrlSetState($ChcBx1[9],$GUI_CHECKED)
	EndIf

	If $ReadS11 = 1 Then
		GUICtrlSetState($ChcBx2[0],$GUI_CHECKED)
	EndIf
	If $ReadS12 = 1 Then
		GUICtrlSetState($ChcBx2[1],$GUI_CHECKED)
	EndIf
	If $ReadS13 = 1 Then
		GUICtrlSetState($ChcBx2[2],$GUI_CHECKED)
	EndIf
	If $ReadS14 = 1 Then
		GUICtrlSetState($ChcBx2[3],$GUI_CHECKED)
	EndIf
	If $ReadS15 = 1 Then
		GUICtrlSetState($ChcBx2[4],$GUI_CHECKED)
	EndIf
	If $ReadS16 = 1 Then
		GUICtrlSetState($ChcBx2[5],$GUI_CHECKED)
	EndIf
	If $ReadS17 = 1 Then
		GUICtrlSetState($ChcBx2[6],$GUI_CHECKED)
	EndIf
	If $ReadS18 = 1 Then
		GUICtrlSetState($ChcBx2[7],$GUI_CHECKED)
	EndIf
	If $ReadS19 = 1 Then
		GUICtrlSetState($ChcBx2[8],$GUI_CHECKED)
	EndIf
	If $ReadS20 = 1 Then
		GUICtrlSetState($ChcBx2[9],$GUI_CHECKED)
	EndIf

	If $ReadS21 = 1 Then
		GUICtrlSetState($ChcBx3[0],$GUI_CHECKED)
	EndIf
	If $ReadS22 = 1 Then
		GUICtrlSetState($ChcBx3[1],$GUI_CHECKED)
	EndIf
	If $ReadS23 = 1 Then
		GUICtrlSetState($ChcBx3[2],$GUI_CHECKED)
	EndIf
	If $ReadS24 = 1 Then
		GUICtrlSetState($ChcBx3[3],$GUI_CHECKED)
	EndIf
	If $ReadS25 = 1 Then
		GUICtrlSetState($ChcBx3[4],$GUI_CHECKED)
	EndIf
	If $ReadS26 = 1 Then
		GUICtrlSetState($ChcBx3[5],$GUI_CHECKED)
	EndIf
	If $ReadS27 = 1 Then
		GUICtrlSetState($ChcBx3[6],$GUI_CHECKED)
	EndIf
	If $ReadS28 = 1 Then
		GUICtrlSetState($ChcBx3[7],$GUI_CHECKED)
	EndIf
	If $ReadS29 = 1 Then
		GUICtrlSetState($ChcBx3[8],$GUI_CHECKED)
	EndIf
	If $ReadS30 = 1 Then
		GUICtrlSetState($ChcBx3[9],$GUI_CHECKED)
	EndIf

	If $ReadS31 = 1 Then
		GUICtrlSetState($ChcBx4[0],$GUI_CHECKED)
	EndIf
	If $ReadS32 = 1 Then
		GUICtrlSetState($ChcBx4[1],$GUI_CHECKED)
	EndIf
	If $ReadS33 = 1 Then
		GUICtrlSetState($ChcBx4[2],$GUI_CHECKED)
	EndIf
	If $ReadS34 = 1 Then
		GUICtrlSetState($ChcBx4[3],$GUI_CHECKED)
	EndIf
	If $ReadS35 = 1 Then
		GUICtrlSetState($ChcBx4[4],$GUI_CHECKED)
	EndIf
	If $ReadS36 = 1 Then
		GUICtrlSetState($ChcBx4[5],$GUI_CHECKED)
	EndIf
	If $ReadS37 = 1 Then
		GUICtrlSetState($ChcBx4[6],$GUI_CHECKED)
	EndIf
	If $ReadS38 = 1 Then
		GUICtrlSetState($ChcBx4[7],$GUI_CHECKED)
	EndIf
	If $ReadS39 = 1 Then
		GUICtrlSetState($ChcBx4[8],$GUI_CHECKED)
	EndIf
	If $ReadS40 = 1 Then
		GUICtrlSetState($ChcBx4[9],$GUI_CHECKED)
	EndIf

	If $ReadS41 = 1 Then
		GUICtrlSetState($ChcBx5[0],$GUI_CHECKED)
	EndIf
	If $ReadS42 = 1 Then
		GUICtrlSetState($ChcBx5[1],$GUI_CHECKED)
	EndIf
	If $ReadS43 = 1 Then
		GUICtrlSetState($ChcBx5[2],$GUI_CHECKED)
	EndIf
	If $ReadS44 = 1 Then
		GUICtrlSetState($ChcBx5[3],$GUI_CHECKED)
	EndIf
	If $ReadS45 = 1 Then
		GUICtrlSetState($ChcBx5[4],$GUI_CHECKED)
	EndIf
	If $ReadS46 = 1 Then
		GUICtrlSetState($ChcBx5[5],$GUI_CHECKED)
	EndIf
	If $ReadS47 = 1 Then
		GUICtrlSetState($ChcBx5[6],$GUI_CHECKED)
	EndIf
	If $ReadS48 = 1 Then
		GUICtrlSetState($ChcBx5[7],$GUI_CHECKED)
	EndIf
	If $ReadS49 = 1 Then
		GUICtrlSetState($ChcBx5[8],$GUI_CHECKED)
	EndIf
	If $ReadS50 = 1 Then
		GUICtrlSetState($ChcBx5[9],$GUI_CHECKED)
	EndIf

	If $ReadS51 = 1 Then
		GUICtrlSetState($ChcBx6[0],$GUI_CHECKED)
	EndIf
	If $ReadS52 = 1 Then
		GUICtrlSetState($ChcBx6[1],$GUI_CHECKED)
	EndIf
	If $ReadS53 = 1 Then
		GUICtrlSetState($ChcBx6[2],$GUI_CHECKED)
	EndIf
	If $ReadS54 = 1 Then
		GUICtrlSetState($ChcBx6[3],$GUI_CHECKED)
	EndIf
	If $ReadS55 = 1 Then
		GUICtrlSetState($ChcBx6[4],$GUI_CHECKED)
	EndIf
	If $ReadS56 = 1 Then
		GUICtrlSetState($ChcBx6[5],$GUI_CHECKED)
	EndIf
	If $ReadS57 = 1 Then
		GUICtrlSetState($ChcBx6[6],$GUI_CHECKED)
	EndIf
	If $ReadS58 = 1 Then
		GUICtrlSetState($ChcBx6[7],$GUI_CHECKED)
	EndIf
	If $ReadS59 = 1 Then
		GUICtrlSetState($ChcBx6[8],$GUI_CHECKED)
	EndIf
	If $ReadS60 = 1 Then
		GUICtrlSetState($ChcBx6[9],$GUI_CHECKED)
	EndIf

	If $ReadS61 = 1 Then
		GUICtrlSetState($ChcBx7[0],$GUI_CHECKED)
	EndIf
	If $ReadS62 = 1 Then
		GUICtrlSetState($ChcBx7[1],$GUI_CHECKED)
	EndIf
	If $ReadS63 = 1 Then
		GUICtrlSetState($ChcBx7[2],$GUI_CHECKED)
	EndIf
	If $ReadS64 = 1 Then
		GUICtrlSetState($ChcBx7[3],$GUI_CHECKED)
	EndIf
	If $ReadS65 = 1 Then
		GUICtrlSetState($ChcBx7[4],$GUI_CHECKED)
	EndIf
	If $ReadS66 = 1 Then
		GUICtrlSetState($ChcBx7[5],$GUI_CHECKED)
	EndIf
	If $ReadS67 = 1 Then
		GUICtrlSetState($ChcBx7[6],$GUI_CHECKED)
	EndIf
	If $ReadS68 = 1 Then
		GUICtrlSetState($ChcBx7[7],$GUI_CHECKED)
	EndIf
	If $ReadS69 = 1 Then
		GUICtrlSetState($ChcBx7[8],$GUI_CHECKED)
	EndIf
	If $ReadS70 = 1 Then
		GUICtrlSetState($ChcBx7[9],$GUI_CHECKED)
	EndIf

	If $ReadS71 = 1 Then
		GUICtrlSetState($ChcBx8[0],$GUI_CHECKED)
	EndIf
	If $ReadS72 = 1 Then
		GUICtrlSetState($ChcBx8[1],$GUI_CHECKED)
	EndIf
	If $ReadS73 = 1 Then
		GUICtrlSetState($ChcBx8[2],$GUI_CHECKED)
	EndIf
	If $ReadS74 = 1 Then
		GUICtrlSetState($ChcBx8[3],$GUI_CHECKED)
	EndIf
	If $ReadS75 = 1 Then
		GUICtrlSetState($ChcBx8[4],$GUI_CHECKED)
	EndIf
	If $ReadS76 = 1 Then
		GUICtrlSetState($ChcBx8[5],$GUI_CHECKED)
	EndIf
	If $ReadS77 = 1 Then
		GUICtrlSetState($ChcBx8[6],$GUI_CHECKED)
	EndIf
	If $ReadS78 = 1 Then
		GUICtrlSetState($ChcBx8[7],$GUI_CHECKED)
	EndIf
	If $ReadS79 = 1 Then
		GUICtrlSetState($ChcBx8[8],$GUI_CHECKED)
	EndIf
	If $ReadS80 = 1 Then
		GUICtrlSetState($ChcBx8[9],$GUI_CHECKED)
	EndIf
#################################################################################################################
;Esta linea desactiva todos los checkbox
	Case $msg = $BtnCln
		GUICtrlSetState($ChcBx1[0],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx1[1],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx1[2],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx1[3],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx1[4],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx1[5],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx1[6],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx1[7],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx1[8],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx1[9],$GUI_UNCHECKED)

		GUICtrlSetState($ChcBx2[0],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx2[1],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx2[2],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx2[3],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx2[4],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx2[5],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx2[6],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx2[7],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx2[8],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx2[9],$GUI_UNCHECKED)

		GUICtrlSetState($ChcBx3[0],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx3[1],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx3[2],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx3[3],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx3[4],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx3[5],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx3[6],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx3[7],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx3[8],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx3[9],$GUI_UNCHECKED)

		GUICtrlSetState($ChcBx4[0],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx4[1],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx4[2],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx4[3],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx4[4],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx4[5],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx4[6],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx4[7],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx4[8],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx4[9],$GUI_UNCHECKED)

		GUICtrlSetState($ChcBx5[0],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx5[1],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx5[2],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx5[3],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx5[4],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx5[5],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx5[6],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx5[7],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx5[8],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx5[9],$GUI_UNCHECKED)

		GUICtrlSetState($ChcBx6[0],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx6[1],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx6[2],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx6[3],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx6[4],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx6[5],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx6[6],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx6[7],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx6[8],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx6[9],$GUI_UNCHECKED)

		GUICtrlSetState($ChcBx7[0],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx7[1],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx7[2],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx7[3],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx7[4],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx7[5],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx7[6],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx7[7],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx7[8],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx7[9],$GUI_UNCHECKED)

		GUICtrlSetState($ChcBx8[0],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx8[1],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx8[2],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx8[3],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx8[4],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx8[5],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx8[6],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx8[7],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx8[8],$GUI_UNCHECKED)
		GUICtrlSetState($ChcBx8[9],$GUI_UNCHECKED)
#################################################################################################################
;Esta linea habre la GUI para agregar los programas al instalador para luego instalarlos
	Case $msg = $BtnAgrgr
		WinClose("Instalador WBD","")
		ShellExecute(@ScriptDir&"\Agregar Programas.exe")
#################################################################################################################
;Esta linea cierra el programa con el boton salir
	Case $msg = $BtnSlr
			Exit
#################################################################################################################
;Esta linea cierra el programa con el boton X de la Esquina
	Case $msg = $GUI_EVENT_CLOSE
			Exit
#################################################################################################################
EndSwitch

WEnd

Re: Barra de progreso

Publicado: 07 Feb 2014, 15:51
por Dany
Hola. el codigo esta bein solo que repites muchas cosas pudiendo hacer cosas mas fáciles. aquí te dejo unas modificaciones para que veas a lo que me refiero.


Cuando consigas esto es porque edite algo
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||Aqui Edité Algo|||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
y esto cuando termine de editar
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||Aqui Terminé de Editar |||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||


Adjunto el código completo.



Saludos

Re: Barra de progreso

Publicado: 07 Feb 2014, 19:38
por wbueso
Gracias Dany, sabes el problema conmigo es que hasta el momento no entiendo el For to Next, pero con el codigo que enviaste podre entenderlo un poco mas, lei el codigo qe enviaste y ahora tengo los ejemplos, pero con solo verlo guau eres un master, gracias de corazón, seguire leendo sobre For to Next hata comprenderlo bien.

Adelante AutoIt, Bendiciones.

Re: Barra de progreso

Publicado: 07 Feb 2014, 20:23
por Dany
Eso es lo primordial en la programacion los loops y esas cosas. por ejemplo en for next no tiene nada de especial.

for $i=1 to 10
Next


para $i=1 hasta 10
;repito lo que este dentro de for hasta next 10 veces, en cada ciclo $i va subiendo su valor hasta llegar a 10.
next

mira los ejemplo de la ayuda con eso basta y sobra.

saludos

Re: Barra de progreso

Publicado: 07 Feb 2014, 21:51
por wbueso
Otro impase que encuentro es que copie todos mis programas a una USB dentro de una carpeta llamada Install, luego agrego los programas al instalador, el instalador ejecuta el programa bien en la pc en donde seleccione el programa porque reconoce el dispositivo por la letra (Disco Extraible (E))que windows le asigna a la USB, pero al poner la USB en otra PC no los puedo instalar porque la PC le asigna otra letra (Disco Extraible (D)), esto sucede porque al agregar el programa al instalador se registar el Path o ubicacion del programa en un archivo, en donde esta la letra de la unidad extraible, por eso si cambia la letra ya no funciona, la verdad es que voy a llevar el instalador en una USB y los programas dentro de la carpeta Install, seguire copiando mas programas a la carpeta install y luego los agregar al instalador, hay alguna forma de que esto no suceda, y de que aunque la letra de unidad cambie siempre me instale los programas desde mi USB.

Re: Barra de progreso

Publicado: 08 Feb 2014, 17:07
por Dany
el la ruta en vez de estar la ruta asi:

Código: Seleccionar todo

"E:\Pograma\Install\aquilodemas"

pones asi:

".\install\aquilodemas" entonces no importaria la letra.
o asi:

"\istall" solo que en el código interno cuando leas lo lees así:
@ScriptDir & "\istall"

o como quieras hay varias formas.


saludos

Re: Barra de progreso

Publicado: 08 Feb 2014, 17:57
por wbueso
Dany escribió:el la ruta en vez de estar la ruta asi:

Código: Seleccionar todo

"E:\Pograma\Install\aquilodemas"

pones asi:

".\install\aquilodemas" entonces no importaria la letra.
o asi:

"\istall" solo que en el código interno cuando leas lo lees así:
@ScriptDir & "\istall"

o como quieras hay varias formas.

saludos
solo recuerda que el programa escribe la ruta (Path) completa cuando hacemos clic en el control Agregar y se ejecuta "FileOpenDialog("Seleccione un Ejecutable",@DesktopCommonDir,"Ejecutables (*.exe;*.bat;*.com;*.cmd)",1)", lo que hace que se escriba la ruta (Path) completa en el documento "Programas.txt", como evitar que escriba la ruta completa (Path) y solo escriba en el documento partiendo desde Install con el "FileOpenDialog("Seleccione un Ejecutable",@DesktopCommonDir,"Ejecutables (*.exe;*.bat;*.com;*.cmd)",1)", esto es con el programa para agregar los programas.
Al ejecutar el instalador de programas, este lee el documento "Programas.txt" de donde optiene el nombre del programa, la ruta (path) donde esta hubicado y si es seleccionado por default.

Código: Seleccionar todo

Func _ADD()	;Funsion para cuando se hace clic en los botones
		$FlRut = FileOpenDialog("Seleccione un Ejecutable",@DesktopCommonDir,"Ejecutables (*.exe;*.bat;*.com;*.cmd)",1)
If @error or $FlRut = "" Then
		$MsgBoxAnswera = MsgBox(36,"Seleccione un Ejecutable","Desea cancelar la selección del fichero?")
Select
	Case $MsgBoxAnswera = 6 	;Yes y Sale de la función
	Case $MsgBoxAnswera = 7 	;No
		_ADD() 			;Volver a seleccionar
EndSelect
Else
		;$IsSelect = 1
		$FlName = InputBox("Programa Agregado","Usted Selecciono el Siguiente Programa" &$FlRut&@CRLF&@CRLF&"Escriba el Nombre del Programa",""," M") ;Input Mandatory
If @error or $FlName = "" Then
		$MsgBoxAnswerb = MsgBox(36,"Seleccione un Ejecutable","Desea cancelar la selección del fichero?")
Select
	Case $MsgBoxAnswerb = 6 	;Yes y Sale de la función
	Case $MsgBoxAnswerb = 7
		EndSelect
Else
		$Dflt = MsgBox(4, "Listo","Desea que el programa se instale por default")
If $Dflt = 6 Then
		$Chckd = 1
Else
		$Chckd = 0
EndIf
EndIf
EndIf
EndFunc
Esta es la parte en donde escribe en el documento "Programas.txt".

Código: Seleccionar todo

Case $Btna1[0]
		Call("_ADD")
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",1,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",2,$FlRut,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",3,$Chckd,1)
		FileClose($FlOpn)
		Call("Actlzr")

perdoname que te moleste tanto pero aun estoy aprendiendo y todavia soy muy pero muy novato, no se talves son cosas sencillas pero a veces como que me estanco y no puedo dar con la solucion facilmente, y creo que me estoy ateniendo a ustedes. Gracias

Re: Barra de progreso

Publicado: 08 Feb 2014, 18:01
por Dany
Pasa el código de cuando agregas el programa para verlo.

y modificarlo.

Re: Barra de progreso

Publicado: 08 Feb 2014, 19:29
por PDF
Puedes utilizar stringTrimLeft para cortar los 3 primeros caracteres de la izquierda de la ruta de acceso al programa en el momento de escribir.. Así:

$Ruta = "E:\Pograma\Install\aquilodemas"

Filewriteline("programas.txt", StringTrimLeft ($Ruta, 3)) ; esto lo quitara la "E:\" y quedara "Pograma\Install\aquilodemas"

Saludos!

Re: Barra de progreso

Publicado: 09 Feb 2014, 19:40
por wbueso
Gracias PDF, solo le agrege una linea mas y funciono bien.

Código: Seleccionar todo

$Arreg = StringTrimLeft($FlRut,14) <<========================================== Esta es la linea que agrege
		$FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",1,$FlName,1)
		_FileWritetoLine(@ScriptDir&"\Programas.txt",2,$Arreg,1) <<============ y esto tambien
		_FileWritetoLine(@ScriptDir&"\Programas.txt",3,$Chckd,1)
		FileClose($FlOpn)
Quisiera que me enseñaran bien y con ejemplos lo de For to Next en especial con el codigo que les doy, pues estoy confundido y quiero leer el arreglo que ustedes le hagan para entender, aqui esta el codigo

Código: Seleccionar todo

$Read1 = FileReadLine(@ScriptDir&"\Programas.txt",1)
$Read2 = FileReadLine(@ScriptDir&"\Programas.txt",4)
$Read3 = FileReadLine(@ScriptDir&"\Programas.txt",7)
$Read4 = FileReadLine(@ScriptDir&"\Programas.txt",10)
$Read5 = FileReadLine(@ScriptDir&"\Programas.txt",13)
$Read6 = FileReadLine(@ScriptDir&"\Programas.txt",16)
$Read7 = FileReadLine(@ScriptDir&"\Programas.txt",19)
$Read8 = FileReadLine(@ScriptDir&"\Programas.txt",22)
$Read9 = FileReadLine(@ScriptDir&"\Programas.txt",25)
$Read10 = FileReadLine(@ScriptDir&"\Programas.txt",28)
$Read11 = FileReadLine(@ScriptDir&"\Programas.txt",31)
$Read12 = FileReadLine(@ScriptDir&"\Programas.txt",34)
$Read13 = FileReadLine(@ScriptDir&"\Programas.txt",37)
$Read14 = FileReadLine(@ScriptDir&"\Programas.txt",40)
$Read15 = FileReadLine(@ScriptDir&"\Programas.txt",43)
$Read16 = FileReadLine(@ScriptDir&"\Programas.txt",46)
$Read17 = FileReadLine(@ScriptDir&"\Programas.txt",49)
$Read18 = FileReadLine(@ScriptDir&"\Programas.txt",52)
$Read19 = FileReadLine(@ScriptDir&"\Programas.txt",55)
$Read20 = FileReadLine(@ScriptDir&"\Programas.txt",58)
$Read21 = FileReadLine(@ScriptDir&"\Programas.txt",61)
$Read22 = FileReadLine(@ScriptDir&"\Programas.txt",64)
$Read23 = FileReadLine(@ScriptDir&"\Programas.txt",67)
$Read24 = FileReadLine(@ScriptDir&"\Programas.txt",70)
$Read25 = FileReadLine(@ScriptDir&"\Programas.txt",73)
$Read26 = FileReadLine(@ScriptDir&"\Programas.txt",76)
$Read27 = FileReadLine(@ScriptDir&"\Programas.txt",79)
$Read28 = FileReadLine(@ScriptDir&"\Programas.txt",82)
$Read29 = FileReadLine(@ScriptDir&"\Programas.txt",85)
$Read30 = FileReadLine(@ScriptDir&"\Programas.txt",88)
$Read31 = FileReadLine(@ScriptDir&"\Programas.txt",91)
$Read32 = FileReadLine(@ScriptDir&"\Programas.txt",94)
$Read33 = FileReadLine(@ScriptDir&"\Programas.txt",97)
$Read34 = FileReadLine(@ScriptDir&"\Programas.txt",100)
$Read35 = FileReadLine(@ScriptDir&"\Programas.txt",103)
$Read36 = FileReadLine(@ScriptDir&"\Programas.txt",106)
$Read37 = FileReadLine(@ScriptDir&"\Programas.txt",109)
$Read38 = FileReadLine(@ScriptDir&"\Programas.txt",112)
$Read39 = FileReadLine(@ScriptDir&"\Programas.txt",115)
$Read40 = FileReadLine(@ScriptDir&"\Programas.txt",118)
$Read41 = FileReadLine(@ScriptDir&"\Programas.txt",121)
$Read42 = FileReadLine(@ScriptDir&"\Programas.txt",124)
$Read43 = FileReadLine(@ScriptDir&"\Programas.txt",127)
$Read44 = FileReadLine(@ScriptDir&"\Programas.txt",130)
$Read45 = FileReadLine(@ScriptDir&"\Programas.txt",133)
$Read46 = FileReadLine(@ScriptDir&"\Programas.txt",136)
$Read47 = FileReadLine(@ScriptDir&"\Programas.txt",139)
$Read48 = FileReadLine(@ScriptDir&"\Programas.txt",142)
$Read49 = FileReadLine(@ScriptDir&"\Programas.txt",145)
$Read50 = FileReadLine(@ScriptDir&"\Programas.txt",148)
$Read51 = FileReadLine(@ScriptDir&"\Programas.txt",151)
$Read52 = FileReadLine(@ScriptDir&"\Programas.txt",154)
$Read53 = FileReadLine(@ScriptDir&"\Programas.txt",157)
$Read54 = FileReadLine(@ScriptDir&"\Programas.txt",160)
$Read55 = FileReadLine(@ScriptDir&"\Programas.txt",163)
$Read56 = FileReadLine(@ScriptDir&"\Programas.txt",166)
$Read57 = FileReadLine(@ScriptDir&"\Programas.txt",169)
$Read58 = FileReadLine(@ScriptDir&"\Programas.txt",172)
$Read59 = FileReadLine(@ScriptDir&"\Programas.txt",175)
$Read60 = FileReadLine(@ScriptDir&"\Programas.txt",178)
$Read61 = FileReadLine(@ScriptDir&"\Programas.txt",181)
$Read62 = FileReadLine(@ScriptDir&"\Programas.txt",184)
$Read63 = FileReadLine(@ScriptDir&"\Programas.txt",187)
$Read64 = FileReadLine(@ScriptDir&"\Programas.txt",190)
$Read65 = FileReadLine(@ScriptDir&"\Programas.txt",193)
$Read66 = FileReadLine(@ScriptDir&"\Programas.txt",196)
$Read67 = FileReadLine(@ScriptDir&"\Programas.txt",199)
$Read68 = FileReadLine(@ScriptDir&"\Programas.txt",202)
$Read69 = FileReadLine(@ScriptDir&"\Programas.txt",205)
$Read70 = FileReadLine(@ScriptDir&"\Programas.txt",208)
$Read71 = FileReadLine(@ScriptDir&"\Programas.txt",211)
$Read72 = FileReadLine(@ScriptDir&"\Programas.txt",214)
$Read73 = FileReadLine(@ScriptDir&"\Programas.txt",217)
$Read74 = FileReadLine(@ScriptDir&"\Programas.txt",220)
$Read75 = FileReadLine(@ScriptDir&"\Programas.txt",223)
$Read76 = FileReadLine(@ScriptDir&"\Programas.txt",226)
$Read77 = FileReadLine(@ScriptDir&"\Programas.txt",229)
$Read78 = FileReadLine(@ScriptDir&"\Programas.txt",232)
$Read79 = FileReadLine(@ScriptDir&"\Programas.txt",235)
$Read80 = FileReadLine(@ScriptDir&"\Programas.txt",238)
Gracias amigos.

Re: Barra de progreso

Publicado: 09 Feb 2014, 21:00
por PDF
Bien en el codigo que presentas se puede utilizar facilmente el bucle For ...Next para ahorrarse unas cuantas lineas de script, para ello sera necesario declarar una matriz $Read[79] que va desde $Read[0] hasta $Read[79], mira este ejemplo que creo esta bien cometado:

Código: Seleccionar todo

Global $Read[79] ; Declaramos la variable $Read
$Nro = 1 ; Esta variable la utilizaremos para indicar la linea que se va a leer ya que la lectura se realiza cada 3 lineas

; Empezamos a leer las lineas desde la linea 1 hasta la linea 238
For $i=0 to 79 ; Indica que irá desde 0 hasta 79. 
	; Se utiliza la variable "$i" para indicar el indice para el array $read que ira desde 0 hasta 79
	$Read1[$i] = FileReadLine(@ScriptDir&"\Programas.txt",$Nro) ; Leemos la linea 
	$Nro+=3 ; Aumentamos en tres la variable $Nro para indicar a FileReadLine que lea 3 lineas despues
Next ; Indica que se continuara al siguiente nivel, osea de 0 pasara a 1 hasta 79 donde saldrá del bucle.
Y asi reducimos las ochenta lineas de codigo a 6..
Si necesitas otra explicación con gusto respondere. Saludos

Re: Barra de progreso

Publicado: 09 Feb 2014, 21:05
por Chefito
Pues ese código se podría reducir así con un for....next.

Código: Seleccionar todo

Local $array[80]
Local $cont=1
For $n=0 to 79	;va del 0 al 79, en total son 80.
	$array[$n] = FileReadLine(@ScriptDir&"\Programas.txt",$cont)
	$cont+=3	;voy sumando 3 a la variable cont.
Next
Para ver el funcionamiento del bucle for...to....next puedes hacerlo en google. En los foros de autoit hay muchos códigos de ejemplo, aunque como te han comentado, con la ayuda te debe bastar. Pero vamos, busca esta estructura en cualquier otro lenguaje (por ejemplo, en visual basic), ya que esto es básico en cualquier lenguaje de programación. Te recomiendo que primero te mires y comprendas las estructuras básicas de todo lenguaje de programación y luego te metas más a fondo. Sabiendo estas estructuras podrás empezar a programar en cualquier lenguaje facilmente.

Saludos.

Edito: Parece que PDF y yo escribimos la respuesta al mismo tiempo :smt005 . Bueno, te la dejo para que leas las recomendaciones que te comento :smt002 .

Re: Barra de progreso

Publicado: 10 Feb 2014, 01:31
por PDF
@Wbueso he estado probando tu programa (Agregar Programas), me di cuenta de que si presionas un boton al azar (en el grupo oficina por ejemplo), sigues los pasos para seleccionar el instalador no se escribe nada en el fichero programas.txt. Esto lo podrias solucionar utilizando un fichero ini (como ya te habia comentado) que capturara el id del boton en una seccion con sus respectivos datos.

He utilizado parte de tu codigo (los grupos configuraciones y oficina y sus botones) en un ejemplo con ficheros ini. En el script te pongo algunas sugerencias para mejorar y ahorra lineas de código (ademas de la que ya te sugirio dany)
Es una sugerencia mia para que vayas mejorando tu programa, ya has avanzado bastante, hechale un vistazo... :smt023
Saludos

Nota: Si le haces la modificacion tambien sera necesario modificar el Instalador...

Re: Barra de progreso

Publicado: 10 Feb 2014, 05:42
por wbueso
Amigos, el dia de hoy me puse a practicar un poco en una idea que siempre pense que me serviria, siempre he actualizado mi antivirus Nod32 copiando los archivos *.dat que se encuentran en la carpeta de instalación de Nod32.
A mi me ha funcionado y solo hago una copia de esos archivos que estan en la PC que esta conectada a internet y por lo tanto actualizados, luego los pego en mi PC sin conexion a internet, sobreescribiendo los que hay en la carpeta de instalación de Nod32, seguidamente reinicio mi PC y buala antivirus actualizado.
Por eso escribi este codigo que funciona bien en Windows XP y creo que tambien en Windows 7, pues aun no lo he provado en Windows 7, me gustaria que evaluaran mi idea y me digan lo bueno y lo malo, recuerden que solo tengo un poco mas de un mes aprendiendo programación, gracias.

Código: Seleccionar todo

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Eset Nodd 32.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
############################################################################################################################
;Seccion Include
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
;#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
;#include <Word.au3>
;#include <WinAPI.au3>
############################################################################################################################
;Seccion de creacion de la Ventana (GUI) y los botones (Controles)
GUICreate("Actualizador de Eset Nodd32",445,135,300,250)
GUISetBkColor(0xFFFFFF)
GUICtrlCreateIcon(@ScriptDir&"\Eset Nodd 32.ico", 5, 25, 7,40,40)
GUICtrlCreatePic("androidrun.jpg",348,2,98,135)
$BtnRcplr = GUICtrlCreateButton("Recopilar",5,49,80,25,$WS_DLGFRAME)
$BtnActlzr = GUICtrlCreateButton("Actualizar",5,77,80,25,$WS_DLGFRAME)
$BtnSlr = GUICtrlCreateButton("Salir",5,105,80,25,$WS_DLGFRAME)
############################################################################################################################
;Seccion Info
Global $OperVer = @OSVersion
Global $OperArch = @OSArch
If $OperVer = "WIN_XP" Then
$VrsnPc = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Info","ScannerVersion")
$Read = FileReadLine("32Bits\Version32.txt",1)
EndIf

If $OperVer = "WIN_7" Then
$VrsnPc = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Eset\Nod\CurrentVersion\Info","CurrentVersion")
$Read = FileReadLine("64Bits\Version64.txt",1)
EndIf

If $OperArch = "X86" Then
	$Txt = "32 Bits"
EndIf

If $OperArch = "X64" Then
	$Txt = "64 Bits"
EndIf

GUICtrlSetState($BtnActlzr,$GUI_HIDE)
GUICtrlSetState($BtnRcplr,$GUI_HIDE)

If $VrsnPc > $Read Then
	$TxtAdv = "Se recomienda la Recopilación"
	GUICtrlSetState($BtnRcplr,$GUI_SHOW)
EndIf

If $VrsnPc < $Read Then
	$TxtAdv = "Se recomienda la actualización"
	GUICtrlSetState($BtnActlzr,$GUI_SHOW)
EndIf

If $VrsnPc = $Read Then
	$TxtAdv = "La actualización es igual a la recopilación"
	EndIf

Global $IzqGroup = 90
GUICtrlCreateGroup("",$IzqGroup,0,260,60,$WS_DLGFRAME)
GUICtrlCreateGroup("",$IzqGroup,60,260,40,$WS_DLGFRAME)
GUICtrlCreateGroup("",$IzqGroup,100,260,30,$WS_DLGFRAME)

Global $IzqLabel = 100
GUICtrlCreateLabel("Sistema Operativo de: "&$Txt,$IzqLabel,10,240,20)
GUICtrlCreateLabel("Version de actualizacion de Eset en esta PC"&@CRLF&$VrsnPc,$IzqLabel,30,240,25)
GUICtrlCreateLabel("Version Recopilada de actualizacion de Eset."&@CRLF&$Read,$IzqLabel,70,240,25)
GUICtrlCreateLabel($TxtAdv,$IzqLabel,110,240,15)

GUISetState(@SW_SHOW)

Func _Rcplr()

			If $OperVer = "WIN_XP" Then
				FileDelete(@Scriptdir&"\32Bits\*.dat")
				FileOpen(@ScriptDir&"\32Bits\Version32.txt",10)
				WinSetState("Version32.txt","",@SW_HIDE)
				FileWriteLine(@ScriptDir&"\32Bits\Version32.txt",$VrsnPc)
				FileClose("Version32.txt")

				FileCopy(@ProgramFilesDir&"\ESET\ESET NOD32 Antivirus\*.dat",@ScriptDir&"\32Bits\")
				MsgBox(0,"ESET Nod32","Se han compilado los archivos de actualización para ESET Nod32 a la version: "&$VrsnPc,5)
			EndIf

			If $OperVer = "WIN_7" Then
				FileDelete(@Scriptdir&"\64Bits\*.dat")
				FileOpen(@ScriptDir&"\64Bits\Version64.txt",10)
				WinSetState("Version64.txt","",@SW_HIDE)
				FileWriteLine(@ScriptDir&"\64Bits\Version64.txt",$VrsnPc)
				FileClose("Version64.txt")

				FileCopy("C:\Program Files (x86)\ESET\*.dat",@ScriptDir&"\64Bits\")
				MsgBox(0,"ESET Nod32","Se han compilado los archivos de actualización para ESET Nod32 a la version: "&$VrsnPc,5)
			EndIf
EndFunc

Func _Actlzr()

			If $OperVer = "WIN_XP" Then
				$Files = FileExists(@ScriptDir&"\32Bits\*.dat")
				If $Files = 0 Then
				MsgBox(0,"Error","Aun no se han compilado archivos",5)
				Else
				FileCopy(@ScriptDir&"\32Bits\*.dat",@ProgramFilesDir&"\ESET\ESET NOD32 Antivirus\",1)
				MsgBox(0,"ESET Nod32","Se a actualizado ESET Nod32 a la version: "&$Read,5)
			EndIf
			EndIf

			If $OperVer = "WIN_7" Then
			   $Files = FileExists(@ScriptDir&"\64Bits\*.dat")
			   If $Files = 0 Then
			   MsgBox(0,"Error","Aun no se han compilado archivos")
			   Else
			   FileCopy(@ScriptDir&"\64Bits\*.dat","C:\Program Files (x86)\ESET\",1)
			   MsgBox(0,"ESET Nod32","Se a actualizado ESET Nod32 a la version: "&$Read,5)
		   EndIf
		   EndIf

EndFunc

While 1

	$msg = GUIGetMsg()

	Switch $msg

		Case $BtnRcplr
				Call("_Rcplr")

		Case $BtnActlzr
				Call("_Actlzr")

		Case $BtnSlr
			Exit

		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd
Estudiare lo que me diste PDF y gracias a Dany que su aporte a sido valoso para mi, Dios los bendiga.

Re: Barra de progreso

Publicado: 10 Feb 2014, 14:30
por Dany
Otra forma de hacer lo del Loop de mas arriba usando step.

Código: Seleccionar todo

;otra forma de hacerlo con Step
Local $aRead[80]
Local $iIndex = 0 ;para el indice del Array
For $i = 1 To 238 Step 3 ;Así se le sumara de 3 3n 3 a $i
	$Read[$iIndex] = FileReadLine(@ScriptDir & "\Programas.txt", $iIndex)
	ConsoleWrite($i & @CRLF)
	$iIndex += 1
Next

En cuanto a tu ultima pregunta. yo lo veo bien. solo que trata de usar mejores nombres para las variables y funciones. asi haces mas cómodo leer tu código.

el la parte de Case $GUI_EVENT_CLOSE en ves de Exit. es buena practica terminar el loop. asi:

Case $GUI_EVENT_CLOSE
ExitLoop




Saludos

Re: Barra de progreso

Publicado: 13 Feb 2014, 23:44
por wbueso
:smt038 Amigos, no les he escrito porque he estado muy ocupado en el dia y de noche sigo practicando hasta muy noche con toda la informacion que me han dado, por eso no habia tenido tiempo de escribir, pero quiero agradecerles por toda su ayuda, estoy practicando con los array y con For to Next y les aseguro que les he encontrado una cantidad incrible de usos, cada dia se me ocurren mas ideas para utilizarlos, gracias de verdad.
En el momento en que nesecite de ustedes les escribire, se los aseguro, en este momento me dedico mas a darle vistosidad a las GUI, como ser colores, fuentes, Imagenes y otros.
.. ha quiero saber si hay un programa para crear GUI donde uno solo tenga que insertar controles, texto y lo demas asi como se hace en Visual Basic, donde luego solo se le asignan los codigos a cada control, pero con AutoIt.
Que DIOS los bendiga grandemente.
Todos los horarios son UTC+02:00
Página 1 de 2

Desarrollado por phpBB® Forum Software © phpBB Limited

Traducción al español por phpBB España