Ayuda con mi codigo

wbueso · Mensaje por **wbueso** » 29 Ene 2014, 00:55

Estoy escribiendo este programa y al ejecutar ...$FlRut0 = FileOpenDialog("Seleccione un Ejecutable", @DesktopCommonDir, "Ejecutables (*.exe;*.bat;*.com;*.cmd)", 1 + 4 )...Se abre una caja de busqueda y si no se selecciona nungun archivo se ejecuta un msgbox con "Debe seleccionar un Archivo".
lo que quiero saber es como hago para que al cerrar el msgbox vuela a ejecutar FlRut0 = FileOpenDialog("Seleccione un Ejecutable", @DesktopCommonDir, "Ejecutables (*.exe;*.bat;*.com;*.cmd)", 1 + 4 ), o que no se cierre la caja de búsqueda después de cerrar el msgbox, o que al hacer clic en abrir de la caja de búsqueda sin haber seleccionado un archivo aparezca la advertencia de "Debe seleccionar un Archivo".
Les doy el código que quiero mejorar, y agradezco la ayuda que me puedan brindar.
El texto en azul es el codigo que quiero mejorar o aprender a escribir.

Código: Seleccionar todo

Func Add0()
		$FlRut0 = FileOpenDialog("Seleccione un Ejecutable", @DesktopCommonDir, "Ejecutables (*.exe;*.bat;*.com;*.cmd)", 1 + 4 )
		 If $FlRut0 = "" Then
		 MsgBox(0,"Error","Debe seleccionar un Archivo",5)
		 Else
		 $FlName0 = InputBox("Programa Agregado","Usted Selecciono el Siguiente Programa"&$FlRut0&@CRLF&@CRLF&"Escriba el Nombre del Programa")
	  If $FlName0 = "" Then
		 MsgBox(0,"Error","Debe Escribir un Nombre para el Archivo")[/color]
		 else
	  	 $Dflt0 = MsgBox(4,"Listo","Desea que el programa se instale por default")
	  If $Dflt0 = 6 Then
		 $Chckd0 = 1
	  Else
		 $Chckd0 = 0
	  EndIf
		 $FlOpn0 = FileOpen("Programas.txt")
		 _FileWriteToLine(@ScriptDir&"\Programas.txt",1,$FlName0,1)
		 _FileWriteToLine(@ScriptDir&"\Programas.txt",2,$FlRut0,1)
		 _FileWriteToLine(@ScriptDir&"\Programas.txt",3,$Chckd0,1)
		 FileClose($FlOpn0)
		  EndIf
	  EndIf
   EndFunc

Me gusta AutoIt y tengo un montón de Ideas, leo todos los códigos a mi disposición y trato de entenderlos, al comienzo no entendía nada, pero ahora comprendo un poquito mas, pero sigo aprendiendo y estoy emocionado.

PDF · Mensaje por **PDF** » 29 Ene 2014, 05:37

Buenas !

Según tengo entendido lo que quieres es hacer que la ventana de selección de archivos vuelva a mostrarse en caso de que no se haya seleccionado ningun archivo. Lo primero que puedes hacer es organizar tu código, por ejemplo utilizar otra función para hacer esto, me tome la molestia de modificar tu codigo

de la siguiente manera:

Código: Seleccionar todo

#include <file.au3>
_Add0()
Func _SelectFile()
Local $FlRut0
Local $FlName0
$FlRut0 = FileOpenDialog("Seleccione un Ejecutable", @DesktopCommonDir, "Ejecutables (*.exe;*.bat;*.com;*.cmd)", 1 + 4)
If @error Or $FlRut0 = "" Then
MsgBox(0, "Error", "Debe seleccionar un Archivo", 5)
_SelectFile() ; Vuelve a ejecutar la funcón hasta que se seleccione un fichero válido
Else
Return $FlRut0 ; Devuelve el directorio de la aplicación
EndIf
EndFunc   ;==>_SelectFile

Func _Add0()
Local $FlRut0 = _SelectFile()
Local $FlName0 = InputBox("Programa Agregado", "Usted Selecciono el Siguiente Programa" & $FlRut0 & @CRLF & @CRLF & "Escriba el Nombre del Programa")
If $FlName0 = "" Then
MsgBox(0, "Error", "Debe Escribir un Nombre para el Archivo")
; _Add() ; Volver a buscar
Else
$Dflt0 = MsgBox(4, "Listo", "Desea que el programa se instale por default")
If $Dflt0 = 6 Then
$Chckd0 = 1
Else
$Chckd0 = 0
EndIf
$FlOpn0 = FileOpen(@ScriptDir&"\Programas.txt",10) ; Borra contenido previo
FileWriteLine($FlOpn0,$FlName0)
FileWriteLine($FlOpn0,$FlRut0)
FileWriteLine($FlOpn0,$Chckd0)
FileClose($FlOpn0)
EndIf
EndFunc   ;==>_Add0

Espero te sirva y bienvenido al mundo de Autoit. Cualquier duda para eso estamos. Saludos!

wbueso · Mensaje por **wbueso** » 29 Ene 2014, 22:36

Grasias PDF voy a provarlo ahorita mismo, no lo puedo separar porque son 80 ADD y sus ID son ADD0 hasta ADD79 y no se como aria para usarlo por separado, gracias.
QUiero saber si puedo crear una funcion dentro de otra funcion.

PDF · Mensaje por **PDF** » 30 Ene 2014, 00:40

Hola.

Quieres decir que tienes 79 funciones ADD?.. Lo que deberías hacer es explicar lo quieres hacer para poder ayudarte mejor, y poder simplificar el código. Con respecto a lo de crear funciones dentro de otra no se puede.

Saludos!

wbueso · Mensaje por **wbueso** » 30 Ene 2014, 01:26

Escribí el código para el programa y funciona, lo que no me gusta es que tengo que escribir en el script el nombre del programa que se instalara, la dirección o donde esta ubicado el programa y si se instalara por default, al compilarlo ya no puedo cambiar los programas ni los nombres, pero estoy intentando mejorarlo según voy aprendiendo, no se como funcionan los array aun, lo que quiero hacer es poner un botón en la GUI principal para agregar los programas el cual ejecute una segunda GUI donde tengo 80 botones desde BUTTONCERO (BUTTON0) hasta BUTTON79, al hacer clic en uno de los botones lo que quiero que haga es que me permita buscar y seleccionar un programa, después que me permita ponerle un nombre y después que pueda elegir si se instalara por default o no, todo esto lo guarda en un documento de texto en donde escribe en la primera línea el nombre del programa, en la segunda línea el path o dirección del programa y en la tercera línea el numero 1 si se instalara por defaul o sino escribirá el numero 0, mi problema a sido que se ejecuta FileOpenDialog para buscar y seleccionar el programa, pero al no seleccionar ningún archivo y cerrar la caja de búsqueda me muestra el msgbox de que no seleccione ningún programa y el programa continua ejecutándose solicitándome que le escriba un nombre al programa (Pero si no seleccione ningún programa) y al no escribirle el nombre del programa me da msgbox que tengo que escribir el nombre del programa, pero se sigue ejecutando el script y me dice que si quiero que se instale por default.
Quiero que al no seleccionar ningún archivo me avise que no seleccione ningún archivo y que vuelva a la ejecución anterior, y que al no escribirle un nombre al programa me avise de que no he escrito nada y se ejecute de nuevo el inputbox para escribirle el nombre, creo que por lo demás ya casi lo he resuelto todo, pero yo confió en su conocimiento y se que me pueden enseñar mucho, le agradezco a PDF por responder a mis inquietudes, trato de explicarles lo mejor que puedo, pero no conozco mucho aun el lenguaje que ustedes usan para referirse a los temas de programación.
Gracias nuevamente y DIOS los bendiga, adelante con AUTOIT.

PD. como hacen para que los codigos que envian salgan en esas ventanas con barra de desplazamiento, perdon por mi ignorancia.

PDF · Mensaje por **PDF** » 30 Ene 2014, 03:46

A ver lo que puedes hacer en ese caso es mostrar una Caja de Mensaje con la pregunta "Desea cancelar la selección?" ya que al darle cancelar es cuando FileOpenDialog envia "" y establece @error =1 el usuario cancelo la operación. En cuanto al inputbox puedes establecerlo en modo mandatory para que al darle aceptar no haga nada si no se ha escrito el nombre. Quería de esta forma:

Código: Seleccionar todo

Func _ADD0()
	Local $FlRut0
	$FlRut0 = FileOpenDialog("Seleccione un Ejecutable", @DesktopCommonDir, "Ejecutables (*.exe;*.bat;*.com;*.cmd)", 1)
	If @error Then
		$iMsgBoxAnswer = MsgBox(36, "Seleccione un Ejecutable", "Desea cancelar la selección del fichero?")
		Select
			Case $iMsgBoxAnswer = 6 ;Yes
				; Sale de la función
			Case $iMsgBoxAnswer = 7 ;No
				_ADD0() ; Volver a seleccionar
		EndSelect
	Else
		$IsSelect = 1
		$FlName0 = InputBox("Programa Agregado", "Usted Selecciono el Siguiente Programa" & $FlRut0 & @CRLF & @CRLF & "Escriba el Nombre del Programa", "", " M") ;Input Mandatory
		If $FlName0 = "" Then
			MsgBox(0, "Error", "Ha cancelado la operación")
		Else
			$Dflt0 = MsgBox(4, "Listo", "Desea que el programa se instale por default")
			If $Dflt0 = 6 Then
				$Chckd0 = 1
			Else
				$Chckd0 = 0
			EndIf
			$FlOpn0 = FileOpen(@ScriptDir & "\Programas.txt", 10) ; Borra contenido previo
			FileWriteLine($FlOpn0, $FlName0)
			FileWriteLine($FlOpn0, $FlRut0)
			FileWriteLine($FlOpn0, $Chckd0)
			FileClose($FlOpn0)
		EndIf
	EndIf
EndFunc   ;==>_ADD0

No es necesario que crees una función para cada botón puedes probar con agruparlos si tienen la misma finalidad, basta con utilizar variables pra ello, consulta la ayuda y ve ejemplos.

wbueso escribió:PD. como hacen para que los codigos que envian salgan en esas ventanas con barra de desplazamiento, perdon por mi ignorancia.

Debe seleccionar tu codigo y darle clic al botón Code..

Suerte!

wbueso · Mensaje por **wbueso** » 31 Ene 2014, 00:10

Eres un Genio PDF, en realidad me estas ayudando una barbaridad, con lo que me enseñaste hoy se que daré un gran paso en mi aprendizaje, te agradezco que respondas a mis preguntas, luego quiero saber como es que funcionan los array y si puede funcionar en este programa, gracias amigo.

PDF · Mensaje por **PDF** » 31 Ene 2014, 03:32

No hay de que para eso estamos, me da gusto saber que puedo ayudarte, en este foro encontraras mucha información que necesitas, solo tienes que investigar un poco, por ejemplo sobre como funciona un array puedes ver los siguientes temas:

En ingles http://www.autoitscript.com/wiki/Arrays
http://www.emesn.com/autoitforum/viewto ... ays#p15780

Te recomiendo la documentación de autoit, alli hay muchos scripts de ejemplos que te pueden servir o buscalos en la carpeta examples en el directorio de AutoIt.
En este enlace puedes descargar el archivo de ayuda en español.

Efectivamente como dices, puedes utilizar arrays en el programa que estas desarrollando, debes mirar ejemplos como lo hacen otras pesonas y a partir de alli tomar lo que tu necesitas. Para ello también necesitas aprender sobre los bucles (For..to..next) que te serviran para utilizar los valores de un array.

Tengo entendido que tenias una GUI con varios botones, para simplificar la tarea de crear botones es posible utilizar arrays, mira el siguiente ejemplo:

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $Button[10]
Global $programas[10] = ["autoit-v3-setup.exe","SciTE4AutoIt3.exe","ChromeSetup.exe","GoogleEarthSetup.exe", "" & _
"aTubeCatcher.exe","avast_free_antivirus_setup.exe","Seleccione Fichero...","Seleccione Fichero...","Seleccione Fichero...","Seleccione Fichero..."]

$Form1 = GUICreate("AutoIt Gui", 615, 437, 192, 124)
$iTop = 31
For $i = 0 To UBound($Button) - 1
	$Button1 = GUICtrlCreateButton($programas[$i], 232, $iTop, 170, 25)
	$iTop += 40
Next
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd

Ten en cuenta que debes modificarlo segun lo que necesitas. Cualquier duda puedes preguntar que con gusto te ayudaremos.
Saludos..

wbueso · Mensaje por **wbueso** » 01 Feb 2014, 17:26

PDF Este es el codigo que llevo.
Lo de los array ya entendi como funcionan, pero ahora mi problema es que como se hace para saber en cual de los botones el usuario hace clic para determinada accion, por ejemplo cuando creo un boton para salir "$BtnSlr" uso case $BtnSlr Exit , lo que me saca del programa, pero con los array no se como averiguar en cual de los botones se hizo clic, prove con Case $Btna = [0], Case $Btna[0], eso no fuciona y ya no tengo ni idea de como hacer, podrias ayudarme, te lo agradesco mucho.

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>

$Form1 = GUICreate("Agregar Programas", 650, 490, 200, 150)
$BtnSlr = GUICtrlCreateButton("Salir",5,460,80,20)

##################################################################################################

;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)
##################################################################################################

;Crea los botones
Global $Btna[10]
Global $programas1[10] = [$Read1,$Read2,$Read3,$Read4,$Read5,$Read6,$Read7,$Read8,$Read9,$Read10]
Global $BPA1 = 35, $BPI1 = 100 ;$BPA (Boton Posicion Arriba), $BPD (Boton Posicion Izquierda)

For $a = 0 To UBound($Btna) - 1
   $Btna = GUICtrlCreateButton($programas1[$a], $BPI1,$BPA1, 120, 20)
      $BPA1 += 20
   Next

##################################################################################################

GUISetState(@SW_SHOW)

##################################################################################################

;Funsion para cuando se hace clic en los botones
Func _ADD0()
   Local $FlRut0
   $FlRut0 = FileOpenDialog("Seleccione un Ejecutable", @DesktopCommonDir, "Ejecutables (*.exe;*.bat;*.com;*.cmd)", 1)
   If @error Then
      $iMsgBoxAnswer = MsgBox(36, "Seleccione un Ejecutable", "Desea cancelar la selección del fichero?")
      Select
         Case $iMsgBoxAnswer = 6 ;Yes
            ; Sale de la función
         Case $iMsgBoxAnswer = 7 ;No
            _ADD0() ; Volver a seleccionar
      EndSelect
   Else
      $IsSelect = 1
      $FlName0 = InputBox("Programa Agregado", "Usted Selecciono el Siguiente Programa" & $FlRut0 & @CRLF & @CRLF & "Escriba el Nombre del Programa", "", " M") ;Input Mandatory
      If $FlName0 = "" Then
         MsgBox(0, "Error", "Ha cancelado la operación")
      Else
         $Dflt0 = MsgBox(4, "Listo", "Desea que el programa se instale por default")
         If $Dflt0 = 6 Then
            $Chckd0 = 1
         Else
            $Chckd0 = 0
        	$FlOpn0 = FileOpen(@ScriptDir&"\Programas.txt",1)
			_FileWritetoLine(@ScriptDir&"\Programas.txt",1,$FlName0);Estas 3 lineas escriben en un documento el nombre del archivo
			_FileWritetoLine(@ScriptDir&"\Programas.txt",2,$FlRut0);La ruta del archivo
			_FileWritetoLine(@ScriptDir&"\Programas.txt",3,$Chckd0);1 si se instalara por defaul o cero si no
			FileClose($FlOpn0)
			EndIf
			EndIf
			EndIf
		EndFunc   ;==>_Add0
##################################################################################################

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg

  [color=#0000FF] Case $Btna[0]		                ;Aqui es mi problema, no se como hacer para que reconosca en que boton
	  MsgBox(0,"Gooood","God Job Willo")  	;se hace clic[/color]

   Case $BtnSlr
	  Exit
      Case $GUI_EVENT_CLOSE
         Exit

   EndSwitch
WEnd

Dany · Mensaje por **Dany** » 01 Feb 2014, 20:25

en la parte que creas los controles(botones) no estas asignando al arreglo con su indice. debes hacerlo asi:

Código: Seleccionar todo

For $a = 0 To UBound($Btna) - 1
   $Btna[$a] = GUICtrlCreateButton($programas1[$a], $BPI1,$BPA1, 120, 20)
      $BPA1 += 20
   Next

saludos

PDF · Mensaje por **PDF** » 01 Feb 2014, 21:16

Hola de nuevo wbueso

Con relacion al problema que tienes, Allí Dany te acaba de dar la respuesta.. Falto el indice para $Btna

Por mi parte puedo sugerirte utilizar un fichero ".ini" para el proyecto en el que estas trabajando. Los ficheros ini se manejan mejor en autoit, y tiene la siguiente estructura:
[Sección]
Clave=valor
Tu por ejemplo tendrías el "programas.ini" de la siguiente forma:

[numero o indice del botón]
Nombre=nombre del programa
Path=directorio del programa
Default=1 ó 0

De esta manera podrías modificar facilmente los datos para los botones con IniWrite o leerlos con IniRead.

Entonces la función Add la puedes modificar de esta forma:

Código: Seleccionar todo

Func _ADD($btnIndex) ; en donde btnindex seria el numero del botón..
   Local $FlRut0
   Local $Chckd0
   $FlRut0 = FileOpenDialog("Seleccione un Ejecutable", @DesktopCommonDir, "Ejecutables (*.exe;*.bat;*.com;*.cmd)", 1)
   If @error Then
      $iMsgBoxAnswer = MsgBox(36, "Seleccione un Ejecutable", "Desea cancelar la selección del fichero?")
      Select
         Case $iMsgBoxAnswer = 6 ;Yes
            ; Sale de la función
         Case $iMsgBoxAnswer = 7 ;No
            _ADD0() ; Volver a seleccionar
      EndSelect
   Else
      $FlName0 = InputBox("Programa Agregado", "Usted Selecciono el Siguiente Programa" & $FlRut0 & @CRLF & @CRLF & "Escriba el Nombre del Programa", "", " M") ;Input Mandatory
      If $FlName0 = "" Then
         MsgBox(0, "Error", "Ha cancelado la operación")
      Else
         $Dflt0 = MsgBox(4, "Listo", "Desea que el programa se instale por default")
         If $Dflt0 = 6 Then
            $Chckd0 = 1
         Else
            $Chckd0 = 0
         EndIf
          IniWrite(@ScriptDir&"\Programas.ini",$btnIndex,"Name",$FlName0)
          IniWrite(@ScriptDir&"\Programas.ini",$btnIndex,"Path",$FlRut0)
          IniWrite(@ScriptDir&"\Programas.ini",$btnIndex,"Default",$Chckd0)
       EndIf
     EndIf
   EndIf
EndFunc   ;==>_Add0

Para llamar a esta función debes hacer lo siguiente( claro luego de hacer lo que te propuso dany)

Código: Seleccionar todo

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
   Case $BtnSlr
     Exit
      Case $GUI_EVENT_CLOSE
         Exit
   EndSwitch
   For $i=0 to UBound($Btna) -1
        If $nMsg = $Btna[$i] then
               _ADD[$i]
        Endif
    Next
WEnd

Me cuentas como te fue..
Saludos.

Pd. Le corriges algun error que hubiere o pregunta cualquier duda por que estoy en el móvil y no lo puedo ejecutar..

wbueso · Mensaje por **wbueso** » 03 Feb 2014, 07:24

Con lo que he aprendido hasta este momento, esto es lo que he podido hacer, para mi funciona bien, segun vaya aprendiendo lo ire mejorando, les agradesco por la ayuda, espero me sigan ayudando, acepto cualquier observacion o consejo, tengo muchas dudas como que al agregar una imagen de fondo los controles no se pueden usar aunque esten a la vista.

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
GUICreate("Agregar Programas", 650, 580, 200, 100)
GUICtrlSetDefBkColor(0x6699FF)
GUICtrlCreatePic(@ScriptDir&"\oemlogo.bmp",5,5,85,60)
GUICtrlCreateLabel("Haga clic en cualquiera de los botones para agregar un programa."& _
@CRLF&@CRLF&"Este es mi primer programa es la Version 1.0",5,70,85,300)
$BtnSlr = GUICtrlCreateButton("Salir",5,550,80,25)
$BtnActlzr = GUICtrlCreateButton("Actualizar",5,525,80,25)
$BtnVlvr = GUICtrlCreateButton("Volver",5,500,80,25)
##################################################################################################
;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
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 = 100, $BPA1 = 30
For $a1 = 0 To UBound($Btna1) - 1
   $Btna1[$a1] = GUICtrlCreateButton($Readsa1[$a1], $BPI1,$BPA1,$Anch,$Alt)
      $BPA1 += $Sep
  Next

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

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

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

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

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

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

Global $Btna8[10]
Global $Readsa8[10] = [$Read71,$Read72,$Read73,$Read74,$Read75,$Read76,$Read77,$Read78,$Read79,$Read80]
Global $BPI8 = 520, $BPA8 = 320
For $a8 = 0 To UBound($Btna8) - 1
   $Btna8[$a8] = GUICtrlCreateButton($Readsa8[$a8], $BPI8,$BPA8,$Anch,$Alt)
      $BPA8 += $Sep
  Next

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)
##################################################################################################
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

wbueso · Mensaje por **wbueso** » 03 Feb 2014, 07:28

PDF prove con lo que me dieron tu y dany, entendi el codigo un poco y me sirvio para ampliar mis conocimientos, solo que me dio error en _ADD[$i] y no supe como solucionarlo. gracias.

Código: Seleccionar todo

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
   Case $BtnSlr
     Exit
      Case $GUI_EVENT_CLOSE
         Exit
   EndSwitch
   For $i=0 to UBound($Btna) -1
        If $nMsg = $Btna[$i] then
               _ADD[$i]  <<============= en esta parte no funciona da un error y no supe como solucionarlo
        Endif
    Next

PDF · Mensaje por **PDF** » 03 Feb 2014, 12:25

Hola!

Vas muy bien, con el tiempo vas a ir mejorando, puedes ir organizando mejor el codigo que llevas, por ejemplo ubicando las funciones luego del bucle while ... Wend, también puedes englobar en un For Next la lectura del fichero programs.txt, de esta forma:

Código: Seleccionar todo

Global $Readsa1[10]
$líne=1
 For $a=1 to 10
         $Readsa2[$a] =FileReadLine (@ScriptDir&"\Programas.txt",$líne)
         $líne+=3
Next 
; entonces para la siguiente lectura $Readsa2 $lline= 31

PDF probe con lo que me dieron tu y dany, entendi el codigo un poco y me sirvio para ampliar mis conocimientos, solo que me dio error en _ADD[$i] y no supe como solucionarlo

Es que debes cambiar los corchetes [] por paréntesis (), así _ADD ($i)

Deberías de tener en cuenta la sugerencia que te hice con relación a los ficheros ini. Mas tarde podrías ver como funcionan la Gui Modo on event te recomiendo leer la ayuda..

Saludos..

PDF · Mensaje por **PDF** » 03 Feb 2014, 13:25

wbueso escribió:tengo muchas dudas como que al agregar una imagen de fondo los controles no se pueden usar aunque esten a la vista.

Con relación a tu duda puedes dar un ejemplo, ya que a mi no me ha sucedido, es decir , a los controles les agregas imágenes y ssiguen funcionando los eventos a menos que súperpongas un pic a un botón o cualquier otro control..

Saludos!
Pd. Si tienes una duda como esta publicala en el foro de Preguntas sencillas, ya que esta sección es para bienvenida.

wbueso · Mensaje por **wbueso** » 07 Feb 2014, 19:22

PDF escribió:
wbueso escribió:tengo muchas dudas como que al agregar una imagen de fondo los controles no se pueden usar aunque esten a la vista.
Con relación a tu duda puedes dar un ejemplo, ya que a mi no me ha sucedido, es decir , a los controles les agregas imágenes y ssiguen funcionando los eventos a menos que súperpongas un pic a un botón o cualquier otro control..

Saludos!
Pd. Si tienes una duda como esta publicala en el foro de Preguntas sencillas, ya que esta sección es para bienvenida.

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
#################################################################################################################
;Crea la GUI (Ventana)
GUICreate("Instalador WBD", 650, 610, 180, 40)
GUICtrlSetDefBkColor(0x6699FF)
GUICtrlCreatePic(@ScriptDir&"\oemlogo.bmp",5,5,85,60)
GUICtrlCreatePic(@ScriptDir&"\Tiger.jpg",5,5,645,605) ;<<========================== Si la hubico aqui no puedo hacer 
																					;clic en los botones, se ven pero
																					;no se pueden utilizar

#################################################################################################################
;Seccion de Botones
$BtnSlr = GUICtrlCreateButton("Salir",5,550,85,25,$WS_DLGFRAME)
GUICtrlSetCursor (-1, 0)
$BtnIns = GUICtrlCreateButton("Instalar",5,520,85,25,$WS_DLGFRAME)
GUICtrlSetCursor (-1, 0)
$BtnDflt = GUICtrlCreateButton("Por Default",5,490,85,25,$WS_DLGFRAME)
GUICtrlSetCursor (-1, 0)
$BtnAgrgr = GUICtrlCreateButton("Agregar Prog",5,460,85,25,$WS_DLGFRAME)
GUICtrlSetCursor (-1, 0)
$BtnCln = GUICtrlCreateButton("Nunguno",5,430,85,25,$WS_DLGFRAME,$GUI_DEFBUTTON)
GUICtrlSetCursor (-1, 0)
$Fin = GUICtrlCreateCheckbox("Cerra al Final",5,400,85,25,$WS_DLGFRAME)
#################################################################################################################
;Linea que lee el archivo Programas.txt para los CheckBox
Global $Anch = 125, $Alt = 25, $Sep = 25

Global $BPA1 = 25, $BPA2 = 300, $BPA4 = 300, $BPA6 = 300, $BPA8 = 300
Global $BPI1 = 100, $BPI3 = 230, $BPI5 = 360, $BPI7 = 490
Global $ReadS1[10], $ReadS2[10], $ReadS3[10], $ReadS4[10], $ReadS5[10], $ReadS6[10], $ReadS7[10], $ReadS8[10]
Global $ChcBx1[10], $ChcBx2[10], $ChcBx3[10], $ChcBx4[10], $ChcBx5[10]
Global $ChcBx6[10], $ChcBx7[10], $ChcBx8[10]

Global $Linea1 = 1
For $r1 = 0 to 9
         $ReadS1[$r1] =FileReadLine ("Programas.txt",$Linea1)
         $Linea1 += 3
	 Next
Global $Linea2 = 31
For $r2 = 0 to 9
         $ReadS2[$r2] =FileReadLine ("Programas.txt",$Linea2)
         $Linea2 += 3
	Next
Global $Linea3 = 61
For $r3 = 0 to 9
         $ReadS3[$r3] =FileReadLine ("Programas.txt",$Linea3)
         $Linea3 += 3
	Next
Global $Linea4 = 91
For $r4 = 0 to 9
         $ReadS4[$r4] =FileReadLine ("Programas.txt",$Linea4)
         $Linea4 += 3
	Next
Global $Linea5 = 121
For $r5 = 0 to 9
         $ReadS5[$r5] =FileReadLine ("Programas.txt",$Linea5)
         $Linea5 += 3
	Next
Global $Linea6 = 151
For $r6 = 0 to 9
         $ReadS6[$r6] =FileReadLine ("Programas.txt",$Linea6)
         $Linea6 += 3
	Next
Global $Linea7 = 181
For $r7 = 0 to 9
         $ReadS7[$r7] =FileReadLine ("Programas.txt",$Linea7)
         $Linea7 += 3
	Next
Global $Linea8 = 211
For $r8 = 0 to 9
         $ReadS8[$r8] =FileReadLine ("Programas.txt",$Linea8)
         $Linea8 += 3
	Next
#################################################################################################################
;Crea los CheckBox
Global $Linea3 = 243
Global $BPA1 = 30,$BPI1 = 98
For $c1 = 0 To UBound($ChcBx1) - 1
   $ChcBx1[$c1] = GUICtrlCreateCheckbox($ReadS1[$c1],$BPI1,$BPA1,$Anch,$Alt,$WS_DLGFRAME)
      $BPA1 += $Sep
	  GUICtrlSetCursor (-1, 0)
  Next
Global $Linea3 = 273
Global $BPA2 = 320, $BPI2 = 98
For $c2 = 0 To UBound($ChcBx2) - 1
   $ChcBx2[$c2] = GUICtrlCreateCheckbox($ReadS2[$c2],$BPI2,$BPA2,$Anch,$Alt,$WS_DLGFRAME)
       $BPA2 += $Sep
	   GUICtrlSetCursor (-1, 0)
  Next
Global $Linea3 = 303
Global $BPA3 = 30, $BPI3 = 238
For $c3 = 0 To UBound($ChcBx3) - 1
   $ChcBx3[$c3] = GUICtrlCreateCheckbox($ReadS3[$c3],$BPI3,$BPA3,$Anch,$Alt,$WS_DLGFRAME)
      $BPA3 += $Sep
	  GUICtrlSetCursor (-1, 0)
  Next
Global $BPA4 = 320, $BPI4 = 238
For $c4 = 0 To UBound($ChcBx4) - 1
   $ChcBx4[$c4] = GUICtrlCreateCheckbox($ReadS4[$c4],$BPI4,$BPA4,$Anch,$Alt,$WS_DLGFRAME)
      $BPA4 += $Sep
	  GUICtrlSetCursor (-1, 0)
  Next
Global $BPA5 = 30, $BPI5 = 378
For $c5 = 0 To UBound($ChcBx5) - 1
   $ChcBx5[$c5] = GUICtrlCreateCheckbox($ReadS5[$c5],$BPI5,$BPA5,$Anch,$Alt,$WS_DLGFRAME)
      $BPA5 += $Sep
	  GUICtrlSetCursor (-1, 0)
Next
Global $BPA6 = 320, $BPI6 = 378
For $c6 = 0 To UBound($ChcBx6) - 1
   $ChcBx6[$c6] = GUICtrlCreateCheckbox($ReadS6[$c6],$BPI6,$BPA6,$Anch,$Alt,$WS_DLGFRAME)
      $BPA6 += $Sep
	  GUICtrlSetCursor (-1, 0)
  Next
Global $BPA7 = 30, $BPI7 = 518
For $c7 = 0 To UBound($ChcBx7) - 1
   $ChcBx7[$c7] = GUICtrlCreateCheckbox($ReadS7[$c7],$BPI7,$BPA7,$Anch,$Alt,$WS_DLGFRAME)
      $BPA7 += $Sep
	  GUICtrlSetCursor (-1, 0)
Next
Global $BPA8 = 320, $BPI8 = 518
For $c8 = 0 To UBound($ChcBx8) - 1
   $ChcBx8[$c8] = GUICtrlCreateCheckbox($ReadS8[$c8],$BPI8,$BPA8,$Anch,$Alt,$WS_DLGFRAME)
      $BPA8 += $Sep
	  GUICtrlSetCursor (-1, 0)
Next
#################################################################################################################
;Crea la barra de progreso y los indicadores de porcentaje
Global $TtlProg = 0
Global $Contar = 0
Global $InfProgre = 0
$InfNumProg = GUICtrlCreateLabel("1/100", 10, 583, 30, 20,$WS_DLGFRAME)
$InfProgre = GUICtrlCreateLabel("100%", 610, 583, 35, 20,$WS_DLGFRAME)
$InfPorc = GUICtrlCreateLabel("0%", 610, 583, 30, 20,$WS_DLGFRAME)
$BarrProg = GUICtrlCreateProgress(45, 580, 620-60, 25,$WS_DLGFRAME)
GUICtrlSetState($InfProgre,$GUI_HIDE)
GUICtrlSetState($InfPorc,$GUI_SHOW)
#################################################################################################################
;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,$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)

GUICtrlCreatePic(@ScriptDir&"\Tiger.jpg",5,5,645,605) ;<<======================= Si hubico la imagen aqui, tengo problemas
																				;de que al minimizar la ventana y luego 
																				;maximizarla, los botones no se ven, solamente
																				;Cuando paso el puntero sobre ellos aparecen
While 1
   $msg = GUIGetMsg()
   Switch $msg

	Case $BtnSlr
		Exit

	Case $GUI_EVENT_CLOSE
		Exit
#################################################################################################################
EndSwitch
WEnd

Dany · Mensaje por **Dany** » 07 Feb 2014, 19:36

Tenes que hacerlo así:

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
#################################################################################################################
;Crea la GUI (Ventana)
GUICreate("Instalador WBD", 650, 610, 180, 40)
GUICtrlSetDefBkColor(0x6699FF)
GUICtrlCreatePic(@ScriptDir&"\oemlogo.bmp",5,5,85,60)
GUICtrlCreatePic(@ScriptDir&"\Tiger.jpg",5,5,645,605) ;<<========================== Si la hubico aqui no puedo hacer
                                                               ;clic en los botones, se ven pero
                                                               ;no se pueden utilizar

#################################################################################################################
;Seccion de Botones
$BtnSlr = GUICtrlCreateButton("Salir",5,550,85,25,$WS_DLGFRAME)
GUICtrlSetCursor (-1, 0)
$BtnIns = GUICtrlCreateButton("Instalar",5,520,85,25,$WS_DLGFRAME)
GUICtrlSetCursor (-1, 0)
$BtnDflt = GUICtrlCreateButton("Por Default",5,490,85,25,$WS_DLGFRAME)
GUICtrlSetCursor (-1, 0)
$BtnAgrgr = GUICtrlCreateButton("Agregar Prog",5,460,85,25,$WS_DLGFRAME)
GUICtrlSetCursor (-1, 0)
$BtnCln = GUICtrlCreateButton("Nunguno",5,430,85,25,$WS_DLGFRAME,$GUI_DEFBUTTON)
GUICtrlSetCursor (-1, 0)
$Fin = GUICtrlCreateCheckbox("Cerra al Final",5,400,85,25,$WS_DLGFRAME)
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||Aqui Edité Algo|||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;la pones qui y listo
$hPic_background=GUICtrlCreatePic(@ScriptDir&"\Tiger.jpg",5,5,645,605) ;<<======================= Si hubico la imagen aqui, tengo problemas
                                                            ;de que al minimizar la ventana y luego
                                                            ;maximizarla, los botones no se ven, solamente
                                                            ;Cuando paso el puntero sobre ellos aparecen
GUICtrlSetState($hPic_background, $GUI_DISABLE) ;la desactivas para que puedas rpesionar los controles
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||Aqui Terminé de Editar |||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
#################################################################################################################
;Linea que lee el archivo Programas.txt para los CheckBox
Global $Anch = 125, $Alt = 25, $Sep = 25

Global $BPA1 = 25, $BPA2 = 300, $BPA4 = 300, $BPA6 = 300, $BPA8 = 300
Global $BPI1 = 100, $BPI3 = 230, $BPI5 = 360, $BPI7 = 490
Global $ReadS1[10], $ReadS2[10], $ReadS3[10], $ReadS4[10], $ReadS5[10], $ReadS6[10], $ReadS7[10], $ReadS8[10]
Global $ChcBx1[10], $ChcBx2[10], $ChcBx3[10], $ChcBx4[10], $ChcBx5[10]
Global $ChcBx6[10], $ChcBx7[10], $ChcBx8[10]

Global $Linea1 = 1
For $r1 = 0 to 9
         $ReadS1[$r1] =FileReadLine ("Programas.txt",$Linea1)
         $Linea1 += 3
    Next
Global $Linea2 = 31
For $r2 = 0 to 9
         $ReadS2[$r2] =FileReadLine ("Programas.txt",$Linea2)
         $Linea2 += 3
   Next
Global $Linea3 = 61
For $r3 = 0 to 9
         $ReadS3[$r3] =FileReadLine ("Programas.txt",$Linea3)
         $Linea3 += 3
   Next
Global $Linea4 = 91
For $r4 = 0 to 9
         $ReadS4[$r4] =FileReadLine ("Programas.txt",$Linea4)
         $Linea4 += 3
   Next
Global $Linea5 = 121
For $r5 = 0 to 9
         $ReadS5[$r5] =FileReadLine ("Programas.txt",$Linea5)
         $Linea5 += 3
   Next
Global $Linea6 = 151
For $r6 = 0 to 9
         $ReadS6[$r6] =FileReadLine ("Programas.txt",$Linea6)
         $Linea6 += 3
   Next
Global $Linea7 = 181
For $r7 = 0 to 9
         $ReadS7[$r7] =FileReadLine ("Programas.txt",$Linea7)
         $Linea7 += 3
   Next
Global $Linea8 = 211
For $r8 = 0 to 9
         $ReadS8[$r8] =FileReadLine ("Programas.txt",$Linea8)
         $Linea8 += 3
   Next
#################################################################################################################
;Crea los CheckBox
Global $Linea3 = 243
Global $BPA1 = 30,$BPI1 = 98
For $c1 = 0 To UBound($ChcBx1) - 1
   $ChcBx1[$c1] = GUICtrlCreateCheckbox($ReadS1[$c1],$BPI1,$BPA1,$Anch,$Alt,$WS_DLGFRAME)
      $BPA1 += $Sep
     GUICtrlSetCursor (-1, 0)
  Next
Global $Linea3 = 273
Global $BPA2 = 320, $BPI2 = 98
For $c2 = 0 To UBound($ChcBx2) - 1
   $ChcBx2[$c2] = GUICtrlCreateCheckbox($ReadS2[$c2],$BPI2,$BPA2,$Anch,$Alt,$WS_DLGFRAME)
       $BPA2 += $Sep
      GUICtrlSetCursor (-1, 0)
  Next
Global $Linea3 = 303
Global $BPA3 = 30, $BPI3 = 238
For $c3 = 0 To UBound($ChcBx3) - 1
   $ChcBx3[$c3] = GUICtrlCreateCheckbox($ReadS3[$c3],$BPI3,$BPA3,$Anch,$Alt,$WS_DLGFRAME)
      $BPA3 += $Sep
     GUICtrlSetCursor (-1, 0)
  Next
Global $BPA4 = 320, $BPI4 = 238
For $c4 = 0 To UBound($ChcBx4) - 1
   $ChcBx4[$c4] = GUICtrlCreateCheckbox($ReadS4[$c4],$BPI4,$BPA4,$Anch,$Alt,$WS_DLGFRAME)
      $BPA4 += $Sep
     GUICtrlSetCursor (-1, 0)
  Next
Global $BPA5 = 30, $BPI5 = 378
For $c5 = 0 To UBound($ChcBx5) - 1
   $ChcBx5[$c5] = GUICtrlCreateCheckbox($ReadS5[$c5],$BPI5,$BPA5,$Anch,$Alt,$WS_DLGFRAME)
      $BPA5 += $Sep
     GUICtrlSetCursor (-1, 0)
Next
Global $BPA6 = 320, $BPI6 = 378
For $c6 = 0 To UBound($ChcBx6) - 1
   $ChcBx6[$c6] = GUICtrlCreateCheckbox($ReadS6[$c6],$BPI6,$BPA6,$Anch,$Alt,$WS_DLGFRAME)
      $BPA6 += $Sep
     GUICtrlSetCursor (-1, 0)
  Next
Global $BPA7 = 30, $BPI7 = 518
For $c7 = 0 To UBound($ChcBx7) - 1
   $ChcBx7[$c7] = GUICtrlCreateCheckbox($ReadS7[$c7],$BPI7,$BPA7,$Anch,$Alt,$WS_DLGFRAME)
      $BPA7 += $Sep
     GUICtrlSetCursor (-1, 0)
Next
Global $BPA8 = 320, $BPI8 = 518
For $c8 = 0 To UBound($ChcBx8) - 1
   $ChcBx8[$c8] = GUICtrlCreateCheckbox($ReadS8[$c8],$BPI8,$BPA8,$Anch,$Alt,$WS_DLGFRAME)
      $BPA8 += $Sep
     GUICtrlSetCursor (-1, 0)
Next
#################################################################################################################
;Crea la barra de progreso y los indicadores de porcentaje
Global $TtlProg = 0
Global $Contar = 0
Global $InfProgre = 0
$InfNumProg = GUICtrlCreateLabel("1/100", 10, 583, 30, 20,$WS_DLGFRAME)
$InfProgre = GUICtrlCreateLabel("100%", 610, 583, 35, 20,$WS_DLGFRAME)
$InfPorc = GUICtrlCreateLabel("0%", 610, 583, 30, 20,$WS_DLGFRAME)
$BarrProg = GUICtrlCreateProgress(45, 580, 620-60, 25,$WS_DLGFRAME)
GUICtrlSetState($InfProgre,$GUI_HIDE)
GUICtrlSetState($InfPorc,$GUI_SHOW)
#################################################################################################################
;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,$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)
While 1
   $msg = GUIGetMsg()
   Switch $msg

   Case $BtnSlr
      Exit

   Case $GUI_EVENT_CLOSE
      Exit
#################################################################################################################
EndSwitch
WEnd

Saludos

Autoit.ES

Ayuda con mi codigo

Ayuda con mi codigo

Re: Ayuda con mi codigo

Re: Ayuda con mi codigo

Re: Ayuda con mi codigo

Re: Ayuda con mi codigo

Re: Ayuda con mi codigo

Re: Ayuda con mi codigo

Re: Ayuda con mi codigo

Re: Ayuda con mi codigo

Re: Ayuda con mi codigo

Re: Ayuda con mi codigo

Re: Ayuda con mi codigo

Re: Ayuda con mi codigo

Re: Ayuda con mi codigo

Re: Ayuda con mi codigo

Re: Ayuda con mi codigo

Re: Ayuda con mi codigo