Diccionario Inglés - Español - Inglés
Publicado: 03 Jun 2013, 15:24
Buenas,
La web de wordreference ha liberado el código que utilizan para la traducción de palabras y aquí está AutoIt para sacar partido a dicha web:
Saludos
La web de wordreference ha liberado el código que utilizan para la traducción de palabras y aquí está AutoIt para sacar partido a dicha web:
Código: Seleccionar todo
#include <IE.au3>
#include <String.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
_IEErrorHandlerRegister()
$oIE = _IECreateEmbedded()
$gui = GUICreate ("Diccionario Inglés - Español - Inglés", 340, @DesktopHeight/2 - 30, @DesktopWidth - 345, 5)
GUICtrlCreateObj($oIE, 10, 40, 320, @DesktopHeight/2 - 80)
$input = GUICtrlCreateInput ("", 10, 10, 260, 20)
GUICtrlSetState (-1, $GUI_FOCUS)
$boton = GUICtrlCreateButton ("Traducir", 280, 10, 50, 20, $BS_DEFPUSHBUTTON)
GUISetState (@SW_SHOW, $gui)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $boton
SplashTextOn ("", "Espere...", 80, 40, @DesktopWidth/2, @DesktopHeight/2, 1, "Comic Sans", 10, 10)
$busca = GUICtrlRead ($input)
_IEAction ($oIE, "invisible")
_IENavigate ($oIE, "http://api.wordreference.com/4675b/enes/" & $busca)
_IELoadWait ($oIE)
$html = _IEBodyReadHTML ($oIE)
$html = StringRegExpReplace ($html, "(<FORM class=lookup).+(</FORM>)", "")
$html = StringRegExpReplace ($html, "(a).+(href=).+(>)", "")
_IEBodyWriteHTML($oIE, $html)
_IEAction ($oIE, "visible")
SplashOff()
EndSelect
WEnd
