Autoit.ES

Publicado: **04 Nov 2010, 01:19**

Que tal tengo el siguiente problema.... No se como usar los elementos seleccionados en un combobox. Este progama intenta automatizar un proceso web.
El combo1 selecciona un link de la web y el combo 2 lo unico que hace es setear un combo en la web en"15 30 o 60". Pero nose como capturar el valor que seleccionaria el usuario en la GUI

Adjunto el codigo:

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Mineria = GUICreate("Mineria", 390, 158, 239, 127)
$Label1 = GUICtrlCreateLabel("MINERAL:", 32, 16, 84, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Rounded MT Bold")
$Label2 = GUICtrlCreateLabel("BUSCAR DURANTE:", 32, 64, 165, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Rounded MT Bold")
$Combo1 = GUICtrlCreateCombo("", 208, 16, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "A|B|C|D", "D")
$Combo2 = GUICtrlCreateCombo("", 208, 64, 73, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "15|30|60", "60")
$OK = GUICtrlCreateButton("OK", 80, 112, 75, 25)
$SALIR = GUICtrlCreateButton("SALIR (esc)", 232, 112, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet("{ESC}", "Terminate")

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $OK

		Case $SALIR
			Terminate()
		Case $GUI_EVENT_CLOSE
			Terminate()
			
	EndSwitch
  
WEnd

Func Terminate()
    Exit 0
EndFunc

Muchas gracias

Publicado: **04 Nov 2010, 01:43**

Utiliza GUICtrlRead($combo2) para recuperar el valor.

Saludos.

Publicado: **04 Nov 2010, 02:30**

Muchas gracias Chefito ya esta implementado solo me quedo un problemita

Mi GUI tiene boton OK y SALIR.
Bien al apretar OK el programa queda en un loop dentro del case $OK... y para cerrar el programa tengo q usar el HotKeySet que defini con Escape para poder salir... ahora bien, como hago para que al apretar el boton SALIR se cierre todo?

graciassssssss

Publicado: **04 Nov 2010, 05:34**

Una idea simple:

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Mineria = GUICreate("Mineria", 390, 158, 239, 127)
$Label1 = GUICtrlCreateLabel("MINERAL:", 32, 16, 84, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Rounded MT Bold")
$Label2 = GUICtrlCreateLabel("BUSCAR DURANTE:", 32, 64, 165, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Rounded MT Bold")
$Combo1 = GUICtrlCreateCombo("", 208, 16, 153, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "A|B|C|D", "D")
$Combo2 = GUICtrlCreateCombo("", 208, 64, 73, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "15|30|60", "60")
$OK = GUICtrlCreateButton("OK", 80, 112, 75, 25)
$SALIR = GUICtrlCreateButton("SALIR (esc)", 232, 112, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet("{ESC}", "Terminate")

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $OK
            Do
                Sleep(50)
            Until GUIGetMsg() = $SALIR
            Exit
        Case $GUI_EVENT_CLOSE, $SALIR
            Terminate()
    EndSwitch

WEnd

Func Terminate()
    Exit
EndFunc   ;==>Terminate

Publicado: **04 Nov 2010, 06:35**

muy bueno no se me habia ocurrido, una consulta, actualmente uso la libreria ff.au3 (lo menciono por las dudas), compilo el programa, lo corro en mi pc (windows 7 64 bits) y anda perfecto. Lo compilo con la opcion (x86) y lo corro en una pc con windows xp... me abre el firefox ejecuta la web y luego de ahi no funciona mas el programa. Q podria ser?

saludos

MUCHAS GRACIAS

PD: aprobecho el post para preguntar si hay alguna libreria para programar Grafos (http://es.wikipedia.org/wiki/Teor%C3%ADa_de_grafos), busque en varios foros y solo encontre para graficar funciones

Autoit.ES

Problema combobox

Problema combobox

Re: Problema combobox

Re: Problema combobox

Re: Problema combobox

Re: Problema combobox