Autoit.ES

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