Barra de progreso
Re: Barra de progreso
Que bueno que vayas aprendiendo cada vez mas. En lo que necesites para eso estamos..
Con relación a tu pregunta existe el Koda Form Desígner. Viene junto con la herramienta SciTe al instalar este editor, solo presiónas Alt+M para ejecutar esta utilidad que te permite editar el formulario
, generar el codigo, e insertarlo en el editor. También puedes guardar el form con la extensión *.kxf..
Este es el sitio oficial de koda FD..
O puedes optar por este otro editor, el GUI builder Beta que fue escrito en lenguaje autoit http://www.emesn.com/autoitforum/viewto ... rms#p14775
Saludos..
Con relación a tu pregunta existe el Koda Form Desígner. Viene junto con la herramienta SciTe al instalar este editor, solo presiónas Alt+M para ejecutar esta utilidad que te permite editar el formulario
, generar el codigo, e insertarlo en el editor. También puedes guardar el form con la extensión *.kxf..
Este es el sitio oficial de koda FD..
O puedes optar por este otro editor, el GUI builder Beta que fue escrito en lenguaje autoit http://www.emesn.com/autoitforum/viewto ... rms#p14775
Saludos..
Re: Barra de progreso
Amigos, estoy creando una herramienta para tener a mano lo que necesito, pero me he encontrado con algo que no entiendo, cree un GUICtrlCreateInput donde el usuario introduce su correo electronico, para que al ejecutar el control de hotmail, se abra el navegador con hotmail y que se intrudusca el nombre de usuario, pero en vez de pegar el nombre de usuario me escribe un numero y no se a que se debe eso, aqui les pongo el codigo,saludes y que Dios los vendiga.
Código: Seleccionar todo
#########################################################################################################
;Inicia los Include
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <File.au3>
#include <Array.au3>
#########################################################################################################
;Crea la GUI (Ventana)
GuiCreate("Proyecto Creado por Zimrry Zelaya",510,430,2,2)
#########################################################################################################
;Crea los controles (Botones)
Global $ABoton = 50, $GBoton = 50, $User, $Pass
#########################################################################################################
;Primera linea de controles
Global $ArribaB1 = 25, $ArribaL1 = 75
GUICtrlCreateGroup("Herramientas de WIndows",5,2,420,105)
GUICtrlCreateIcon("Icons\Windows 3.ico","",365,25,55,50)
$Boton_Calc = GUICtrlCreateButton("",10,$ArribaB1,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Calculadora",10,$ArribaL1,50,30)
GUICtrlSetImage($Boton_Calc,"Icons\Calc.ico",22)
$Boton_Mapa = GUICtrlCreateButton("",70,$ArribaB1,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Mapa de caracteres",70,$ArribaL1,50,30)
GUICtrlSetImage($Boton_Mapa,"Icons\MapaCaracteres.ico",22)
$Boton_Bloc = GUICtrlCreateButton("",130,$ArribaB1,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Bloc de Notas",130,$ArribaL1,50,30)
GUICtrlSetImage($Boton_Bloc,"Icons\Bloc.ico",22)
$Boton_WordPad = GUICtrlCreateButton("",190,$ArribaB1,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("WordPad",190,$ArribaL1,60,30)
GUICtrlSetImage($Boton_WordPad,"Icons\wordpad.ico",22)
$Boton_Teclado = GUICtrlCreateButton("",250,$ArribaB1,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Teclado en Pantalla",248,$ArribaL1,55,30)
GUICtrlSetImage($Boton_Teclado,"Icons\Teclado en Pantalla 4.ico",0)
$Boton_Media = GUICtrlCreateButton("",310,$ArribaB1,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Windows Player",313,$ArribaL1,55,30)
GUICtrlSetImage($Boton_Media,"Icons\Media Player.ico",0)
#########################################################################################################
;Segunda linea de controles
Global $ArribaB2 = 140, $ArribaL2 = 190
GUICtrlCreateGroup("Herramientas de Microsoft Office",5,117,355,105)
GUICtrlCreateIcon("Icons\Office 2.ico","",308,145,40,40)
$Boton_Word = GUICtrlCreateButton("",8,$ArribaB2,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Microsoft Word",8,$ArribaL2,55,30)
GUICtrlSetImage($Boton_Word,"Icons\Word 3d2.ico",0)
$Boton_Excel = GUICtrlCreateButton("",68,$ArribaB2,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Microsoft Excel",68,$ArribaL2,55,30)
GUICtrlSetImage($Boton_Excel,"Icons\Excel 3d.ico",0)
$Boton_PP = GUICtrlCreateButton("",128,$ArribaB2,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Microsoft Power Point",123,$ArribaL2,60,30)
GUICtrlSetImage($Boton_PP,"Icons\Power Point 3d.ico",0)
$Boton_Access = GUICtrlCreateButton("",188,$ArribaB2,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Microsoft Access",188,$ArribaL2,60,30)
GUICtrlSetImage($Boton_Access,"Icons\Access.ico",0)
$Boton_Publisher = GUICtrlCreateButton("",248,$ArribaB2,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Microsoft Publisher",248,$ArribaL2,60,30)
GUICtrlSetImage($Boton_Publisher,"Icons\publisher 3d.ico",0)
#########################################################################################################
;Tercera linea de controles
Global $ArribaB3 = 253, $ArribaL3 = 303
GUICtrlCreateGroup("Herramientas de Internet",5,230,355,105)
GUICtrlCreateIcon("Icons\Intrenet.ico","",305,260,45,40)
$Boton_Hotmail = GUICtrlCreateButton("",8,$ArribaB3,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Hotmail",13,$ArribaL3,55,30)
GUICtrlSetImage($Boton_Hotmail,"Icons\Hotmail.ico",0)
$Boton_Yahoo = GUICtrlCreateButton("",68,$ArribaB3,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Yahoo",78,$ArribaL3,55,30)
GUICtrlSetImage($Boton_Yahoo,"Icons\Yahoo.ico",0)
$Boton_Gmail = GUICtrlCreateButton("",128,$ArribaB3,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Gmail",138,$ArribaL3,60,30)
GUICtrlSetImage($Boton_Gmail,"Icons\GMail.ico",0)
$Boton_Google = GUICtrlCreateButton("",188,$ArribaB3,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Google",195,$ArribaL3,60,30)
GUICtrlSetImage($Boton_Google,"Icons\Google.ico",0)
$Boton_Facebook = GUICtrlCreateButton("",248,$ArribaB3,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Facebook",248,$ArribaL3,60,30)
GUICtrlSetImage($Boton_Facebook,"Icons\Facebook.ico",0)
#########################################################################################################
$Boton_Salir = GUICtrlCreateButton("Salir",5,400,60,25)
$User = GUICtrlCreateInput("",5,340,110,20)
$Pass = GUICtrlCreateInput("",5,365,110,20)
ConsoleWrite($User)
GUICtrlCreateLabel("@????????.com",120,343,100,30)
GUISetState(@SW_Show)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Boton_Calc
ShellExecuteWait("Calc.exe")
Case $Boton_Mapa
ShellExecuteWait(@SystemDir&"\charmap.exe")
Case $Boton_Bloc
ShellExecuteWait(@SystemDir&"\notepad.exe")
Case $Boton_WordPad
ShellExecuteWait(@ProgramFilesDir&"\Windows NT\Accesorios\wordpad.exe")
Case $Boton_Teclado
ShellExecuteWait(@SystemDir&"\osk.exe")
Case $Boton_Media
ShellExecuteWait(@ProgramFilesDir&"\Windows Media Player\wmplayer.exe")
Case $Boton_Word
ShellExecuteWait(@ProgramFilesDir&"\Microsoft Office\OFFICE11\WINWORD.EXE")
Case $Boton_Excel
ShellExecuteWait(@ProgramFilesDir&"\Microsoft Office\OFFICE11\EXCEL.EXE")
Case $Boton_PP
ShellExecuteWait(@ProgramFilesDir&"\Microsoft Office\OFFICE11\POWERPNT.EXE")
Case $Boton_Access
ShellExecuteWait(@ProgramFilesDir&"\Microsoft Office\OFFICE11\MSACCESS.EXE")
Case $Boton_Publisher
ShellExecuteWait(@ProgramFilesDir&"\Microsoft Office\OFFICE11\MSPUB.EXE")
Case $Boton_Hotmail
ShellExecute("www.hotmail.com") ;========== Aqui es donde me he estancado
WinWaitActive("Iniciar sesión","")
WinActivate("Iniciar sesión","")
Sleep(1000)
Send($User&"@hotmail.com")
Case $Boton_Yahoo
Case $Boton_Gmail
Case $Boton_Google
Case $Boton_Facebook
Case $GUI_EVENT_CLOSE
Exit
Case $Boton_Salir
Exit
EndSwitch
WEnd
Re: Barra de progreso
Hola wbueso lo que pasa que no estabas leyendo lo que hay en el control. sino que pasabas el ID del control.
entonces te explico:
$User; es la variable con el ID del Control (Un numero que asigna windows)
$sUser; es la variable que sera llenada con el nombre del usuario
Entonces para obtener lo que esta en nuestro control $User hacemos esto.
$sUser=GuiCtrlRead($User)
Ahí te lo corregí, te agregue una nueva variable $sUser.
Saludos
entonces te explico:
$User; es la variable con el ID del Control (Un numero que asigna windows)
$sUser; es la variable que sera llenada con el nombre del usuario
Entonces para obtener lo que esta en nuestro control $User hacemos esto.
$sUser=GuiCtrlRead($User)
Ahí te lo corregí, te agregue una nueva variable $sUser.
Código: Seleccionar todo
#########################################################################################################
;Inicia los Include
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <File.au3>
#include <Array.au3>
#########################################################################################################
;Crea la GUI (Ventana)
GuiCreate("Proyecto Creado por Zimrry Zelaya",510,430,2,2)
#########################################################################################################
;Crea los controles (Botones)
Global $ABoton = 50, $GBoton = 50, $User, $Pass
#########################################################################################################
;Primera linea de controles
Global $ArribaB1 = 25, $ArribaL1 = 75
GUICtrlCreateGroup("Herramientas de WIndows",5,2,420,105)
GUICtrlCreateIcon("Icons\Windows 3.ico","",365,25,55,50)
$Boton_Calc = GUICtrlCreateButton("",10,$ArribaB1,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Calculadora",10,$ArribaL1,50,30)
GUICtrlSetImage($Boton_Calc,"Icons\Calc.ico",22)
$Boton_Mapa = GUICtrlCreateButton("",70,$ArribaB1,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Mapa de caracteres",70,$ArribaL1,50,30)
GUICtrlSetImage($Boton_Mapa,"Icons\MapaCaracteres.ico",22)
$Boton_Bloc = GUICtrlCreateButton("",130,$ArribaB1,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Bloc de Notas",130,$ArribaL1,50,30)
GUICtrlSetImage($Boton_Bloc,"Icons\Bloc.ico",22)
$Boton_WordPad = GUICtrlCreateButton("",190,$ArribaB1,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("WordPad",190,$ArribaL1,60,30)
GUICtrlSetImage($Boton_WordPad,"Icons\wordpad.ico",22)
$Boton_Teclado = GUICtrlCreateButton("",250,$ArribaB1,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Teclado en Pantalla",248,$ArribaL1,55,30)
GUICtrlSetImage($Boton_Teclado,"Icons\Teclado en Pantalla 4.ico",0)
$Boton_Media = GUICtrlCreateButton("",310,$ArribaB1,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Windows Player",313,$ArribaL1,55,30)
GUICtrlSetImage($Boton_Media,"Icons\Media Player.ico",0)
#########################################################################################################
;Segunda linea de controles
Global $ArribaB2 = 140, $ArribaL2 = 190
GUICtrlCreateGroup("Herramientas de Microsoft Office",5,117,355,105)
GUICtrlCreateIcon("Icons\Office 2.ico","",308,145,40,40)
$Boton_Word = GUICtrlCreateButton("",8,$ArribaB2,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Microsoft Word",8,$ArribaL2,55,30)
GUICtrlSetImage($Boton_Word,"Icons\Word 3d2.ico",0)
$Boton_Excel = GUICtrlCreateButton("",68,$ArribaB2,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Microsoft Excel",68,$ArribaL2,55,30)
GUICtrlSetImage($Boton_Excel,"Icons\Excel 3d.ico",0)
$Boton_PP = GUICtrlCreateButton("",128,$ArribaB2,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Microsoft Power Point",123,$ArribaL2,60,30)
GUICtrlSetImage($Boton_PP,"Icons\Power Point 3d.ico",0)
$Boton_Access = GUICtrlCreateButton("",188,$ArribaB2,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Microsoft Access",188,$ArribaL2,60,30)
GUICtrlSetImage($Boton_Access,"Icons\Access.ico",0)
$Boton_Publisher = GUICtrlCreateButton("",248,$ArribaB2,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Microsoft Publisher",248,$ArribaL2,60,30)
GUICtrlSetImage($Boton_Publisher,"Icons\publisher 3d.ico",0)
#########################################################################################################
;Tercera linea de controles
Global $ArribaB3 = 253, $ArribaL3 = 303
GUICtrlCreateGroup("Herramientas de Internet",5,230,355,105)
GUICtrlCreateIcon("Icons\Intrenet.ico","",305,260,45,40)
$Boton_Hotmail = GUICtrlCreateButton("",8,$ArribaB3,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Hotmail",13,$ArribaL3,55,30)
GUICtrlSetImage($Boton_Hotmail,"Icons\Hotmail.ico",0)
$Boton_Yahoo = GUICtrlCreateButton("",68,$ArribaB3,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Yahoo",78,$ArribaL3,55,30)
GUICtrlSetImage($Boton_Yahoo,"Icons\Yahoo.ico",0)
$Boton_Gmail = GUICtrlCreateButton("",128,$ArribaB3,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Gmail",138,$ArribaL3,60,30)
GUICtrlSetImage($Boton_Gmail,"Icons\GMail.ico",0)
$Boton_Google = GUICtrlCreateButton("",188,$ArribaB3,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Google",195,$ArribaL3,60,30)
GUICtrlSetImage($Boton_Google,"Icons\Google.ico",0)
$Boton_Facebook = GUICtrlCreateButton("",248,$ArribaB3,$ABoton,$GBoton,$BS_ICON)
GUICtrlCreateLabel("Facebook",248,$ArribaL3,60,30)
GUICtrlSetImage($Boton_Facebook,"Icons\Facebook.ico",0)
#########################################################################################################
$Boton_Salir = GUICtrlCreateButton("Salir",5,400,60,25)
$User = GUICtrlCreateInput("",5,340,110,20)
$Pass = GUICtrlCreateInput("",5,365,110,20)
Local $sUser=""
GUICtrlCreateLabel("@????????.com",120,343,100,30)
GUISetState(@SW_Show)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Boton_Calc
ShellExecuteWait("Calc.exe")
Case $Boton_Mapa
ShellExecuteWait(@SystemDir&"\charmap.exe")
Case $Boton_Bloc
ShellExecuteWait(@SystemDir&"\notepad.exe")
Case $Boton_WordPad
ShellExecuteWait(@ProgramFilesDir&"\Windows NT\Accesorios\wordpad.exe")
Case $Boton_Teclado
ShellExecuteWait(@SystemDir&"\osk.exe")
Case $Boton_Media
ShellExecuteWait(@ProgramFilesDir&"\Windows Media Player\wmplayer.exe")
Case $Boton_Word
ShellExecuteWait(@ProgramFilesDir&"\Microsoft Office\OFFICE11\WINWORD.EXE")
Case $Boton_Excel
ShellExecuteWait(@ProgramFilesDir&"\Microsoft Office\OFFICE11\EXCEL.EXE")
Case $Boton_PP
ShellExecuteWait(@ProgramFilesDir&"\Microsoft Office\OFFICE11\POWERPNT.EXE")
Case $Boton_Access
ShellExecuteWait(@ProgramFilesDir&"\Microsoft Office\OFFICE11\MSACCESS.EXE")
Case $Boton_Publisher
ShellExecuteWait(@ProgramFilesDir&"\Microsoft Office\OFFICE11\MSPUB.EXE")
Case $Boton_Hotmail
ShellExecute("www.hotmail.com") ;========== Aqui es donde me he estancado
WinWaitActive("Iniciar sesión","")
WinActivate("Iniciar sesión","")
Sleep(1000)
;Aignamos a nuestra variable $sUser lo que hay en el control $User
$sUser=GUICtrlRead($User)
Send($sUser & "@hotmail.com")
Case $Boton_Yahoo
Case $Boton_Gmail
Case $Boton_Google
Case $Boton_Facebook
Case $GUI_EVENT_CLOSE
Exit
Case $Boton_Salir
Exit
EndSwitch
WEnd
Saludos
- ............................................
......................................
Re: Barra de progreso
Amigos les saludo.
voy consultarles nuevamente, como hago para que autoit presione un control (Boton), ejemplo: en la pagina de facebook introdusco el nombre de usuario y luego el password, pero quiero que autoit haclic en el boton iniciar sesión, sin apretar enter en el teclado o sea Send("{ENtER}"), me gustaria saber si autoit puede reconocer algun control de las paginas Web.
Gracias, Dios los bendiga, Dany gracias por responder a mis preguntas.
voy consultarles nuevamente, como hago para que autoit presione un control (Boton), ejemplo: en la pagina de facebook introdusco el nombre de usuario y luego el password, pero quiero que autoit haclic en el boton iniciar sesión, sin apretar enter en el teclado o sea Send("{ENtER}"), me gustaria saber si autoit puede reconocer algun control de las paginas Web.
Gracias, Dios los bendiga, Dany gracias por responder a mis preguntas.
Re: Barra de progreso
Hola de nuevo wbueso..
Veo que ya estas trabajando en otro proyecto diferente al que tenías. Espero que no lo hayas abandonado , era una buena idea..
Con respecto a la duda que tienes te recomiendo este enlace acerca de Autologin de facebook, allí encontraras el codigo que necesitas, es cuestión de investigar un poco, en este foro encontraras mucha información. Con AutoIt se puede hacer una gran cantidad de cosas, y eso de interactuar con las páginas webs, es algo sorprendente ya que se pueden automatizar muchas tareas. El include IE.au3 tiene muchas UDFs que te permitirán esto (a traves de Internet Explorer como navegador).
Cualquier duda, estamos para ayudar..
Saludos..
Veo que ya estas trabajando en otro proyecto diferente al que tenías. Espero que no lo hayas abandonado , era una buena idea..
Con respecto a la duda que tienes te recomiendo este enlace acerca de Autologin de facebook, allí encontraras el codigo que necesitas, es cuestión de investigar un poco, en este foro encontraras mucha información. Con AutoIt se puede hacer una gran cantidad de cosas, y eso de interactuar con las páginas webs, es algo sorprendente ya que se pueden automatizar muchas tareas. El include IE.au3 tiene muchas UDFs que te permitirán esto (a traves de Internet Explorer como navegador).
Cualquier duda, estamos para ayudar..
Saludos..
Re: Barra de progreso
Dany, la verdad es que a mi no me gusta navegar con internet explorer, y me gustaria saber si hay algo que se pueda hacer en mozilla firefox, talves hay algun ejemplo por ahi, quiero hacer algo que me ayude a entrar a la pagina de autoit y que me identifique automaticamente, y no solo para autoit sino tambien para mi correo y mi facebook.
saludes y que Dios los bendiga.
saludes y que Dios los bendiga.
Re: Barra de progreso
Hola.
Bueno si no quieres usar IE. puedes usar una UDF de firefox que esta en el foro ingles. no la he usado. pero creo que es lo que necesitas.
Link:
http://www.autoitscript.com/forum/topic ... v0601b-10/
Saludos
Bueno si no quieres usar IE. puedes usar una UDF de firefox que esta en el foro ingles. no la he usado. pero creo que es lo que necesitas.
Link:
http://www.autoitscript.com/forum/topic ... v0601b-10/
Saludos
- ............................................
......................................
Re: Agradecimiento a PDF y a Danny
Amigos, PDF y Danny, les agradesco el apoyo que me han dado, ya termine mi programa y anda de maravilla, lo sigo mejorando segun voy aprendiendo, este programa me ahorra mucho tiempo a la hora de instalar un grupo de programas, lo he hecho desde cero como 8 o 10 veces para practicar, lo elimino de mi pc para asi poder comenzar de nuevo pero ya termine, solo quedan detalles y mejorar un poco mas el codigo, ahora quiero aprender sobre autoit y la internet, ejemplo como hacer un programa en autoit para enviar un correo sin tanto protocolo, que elija el archivo y me lo envie al correo o que me habra el correo o facebook, nesecito ejemplos simples, he leido las ayudas de autoit pero no las entiendo, ademas son ejemplos pequeños, me gustaria si pueden, me enviaran ejemplos con la explicacion de como funciona con mas detalle, el unico detalle es que no me gusta Internet Explorer, yo utilizo Mozilla Firefox.
grasias de antemano, que DIOS los bendiga.
Les envio el codigo del programa completo a ver que dicen.
grasias de antemano, que DIOS los bendiga.
Les envio el codigo del programa completo a ver que dicen.
- Adjuntos
-
- Instalador_Universal_CCG_Plus.au3
- Programa Instalador
- (105.06 KiB) Descargado 215 veces
- BasicOs
- Site Admin
- Mensajes: 2091
- Registrado: 21 Nov 2006, 19:24
- Ubicación: El Internet - (Canarias, España)
- Contactar:
Re: Barra de progreso
Gracias por compartir el código.
Si lo deseas puedes insertar el código en la sección de programas acabados, ponle un título indicativo, y es posible que alguien te comente sobre el programa una vez que lo usen,
Aquí: http://www.emesn.com/autoitforum/viewforum.php?f=4
Salu22:)
Si lo deseas puedes insertar el código en la sección de programas acabados, ponle un título indicativo, y es posible que alguien te comente sobre el programa una vez que lo usen,
Aquí: http://www.emesn.com/autoitforum/viewforum.php?f=4
Salu22:)
Re: Barra de progreso
Muy buen trabajo wbueso un gusto ver como has crecido con autoit.
me gusto mucho el programa.
te paso una modificacion de la funcion _TotalProgramas() para reducirlo unas 470 lineas menos. en vez de hacer todo lo que tenia solo la modificas y dejas como esta.
Saludos bro.
me gusto mucho el programa.
te paso una modificacion de la funcion _TotalProgramas() para reducirlo unas 470 lineas menos. en vez de hacer todo lo que tenia solo la modificas y dejas como esta.
Código: Seleccionar todo
Func _TotalProgramas()
$TotalProgramas = 0
#######################################################################################################################
Local $nArray=0
Local $aCheckBoxs[8]=[$ChckBx1,$ChckBx2,$ChckBx3,$ChckBx4,$ChckBx5,$ChckBx6,$ChckBx7,$ChckBx8]
Local $nArray=$aCheckBoxs[0]
for $n=0 to 7
$nArray=$aCheckBoxs[$n]
For $i=0 to 19
if GUICtrlRead($nArray[$i]) = $GUI_CHECKED then
$TotalProgramas+=1
EndIf
Next
Next
EndFunc
- ............................................
......................................