Código: Seleccionar todo
#include <IE.au3>
#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <Array.au3>
Dim $dolar, $input, $divisa
AutoItSetOption ("GUIOnEventMode", 1) ;Activa la opción de ventana GUI por eventos
$gui = GUICreate ("Conversor de Divisas", 310, 90, -1, -1) ;Crea ventana GUI
GUISetOnEvent ($GUI_EVENT_CLOSE, "_exit") ;Evento de cierre de ventana
GUICtrlCreateLabel ("Dólares:", 10, 10, 100, 25)
$input = GUICtrlCreateInput ("", 100, 10, 120, 25)
GUICtrlCreateLabel ("Euros:", 10, 50, 40, 25)
$divisa = GUICtrlCreateInput ("", 100, 50, 120, 25, $ES_READONLY)
$boton = GUICtrlCreateButton ("Buscar", 230, 10, 70, 25, $BS_DEFPUSHBUTTON) ;Botón de activación de búsqueda
GUICtrlSetOnEvent (-1, "_convierte") ;Evento que ejecuta la función _movil relacionado con el botón
$limpia = GUICtrlCreateButton ("Limpiar", 230, 50, 70, 25) ;Botón de limpieza de registros
GUICtrlSetOnEvent (-1, "_limpiar") ;Evento que ejecuta la función _movil relacionado con el botón
GUISetState (@SW_SHOW) ;Muestra la ventana GUI
While 1 ;Bucle de espera de eventos
Sleep (20)
WEnd
Func _exit() ;Evento de salida
_IeQuit($IE) ;Sale de IE
Exit
EndFunc
Func _convierte()
SplashTextOn ("", "Espere...", 80, 40, -1, -1, 1, "Comic Sans", 10, 10)
$dolar = GUICtrlRead($input)
$IE = _IECreate ("http://www.xe.com/es/currencyconverter/convert/?Amount=" & $dolar & "&From=USD&To=EUR", 0, 0, 1, 1)
$tabla = _IETableGetCollection ($IE, 0)
$matriz = _IETableWriteToArray ($tabla)
;_ArrayDisplay($matriz)
SplashOff()
GUIctrlSetData ($input, $matriz[0][0])
GuiCtrlSetData ($divisa, $matriz[2][0])
EndFunc
Func _limpiar()
GUICtrlSetdata ($input, "")
GUICtrlSetData ($divisa, "")
GUICtrlSetState ($input, $GUI_FOCUS)
EndFunc
