Autoit.ES

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

Barra de progreso

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

Página 2 de 2

Re: Barra de progreso

Publicado: 14 Feb 2014, 04:42
por PDF
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..

Re: Barra de progreso

Publicado: 20 Feb 2014, 03:48
por wbueso
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

Publicado: 20 Feb 2014, 14:06
por Dany
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.

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

Publicado: 21 Feb 2014, 22:36
por wbueso
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.

Re: Barra de progreso

Publicado: 22 Feb 2014, 01:26
por PDF
Hola de nuevo wbueso..

Veo que ya estas trabajando en otro proyecto diferente al que tenías. Espero que no lo hayas abandonado :smt024 , 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

Publicado: 23 Feb 2014, 05:33
por wbueso
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.

Re: Barra de progreso

Publicado: 23 Feb 2014, 15:55
por Dany
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

Re: Agradecimiento a PDF y a Danny

Publicado: 28 Mar 2014, 19:05
por wbueso
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.

Re: Barra de progreso

Publicado: 01 Abr 2014, 01:57
por BasicOs
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:)

Re: Barra de progreso

Publicado: 01 Abr 2014, 14:38
por Dany
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.

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
Saludos bro.
Todos los horarios son UTC+02:00
Página 2 de 2

Desarrollado por phpBB® Forum Software © phpBB Limited

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