Cómo obtener la API del Diccionario Youdao

/view/aba98f8f84868762caaed5dd? fr = imprimir

o

función worddef(str1 como cadena)

/búsqueda? q = palabra; keyfrom=dict.index

Fuzzy XH como objeto

Atenuar s() como cadena

Atenuar str_tmp como cadena

Dim str_base como cadena

Abrir página web

Establecer XH = CreateObject("Microsoft.XMLHTTP")

Continuar con el siguiente paso en caso de error

XH. Abra "Get", "/search?q = " ampstr 1 &" ampkeyfrom=dict.index ", False

XH.send

Continúe con el siguiente paso en caso de error

str_base = XH.responseText

XH. Cerrar

set " " >;)(0), " ltspan class=""palabra clave " " >)(1)

worddef = " "

Recuperar traducción al chino

str_tmp = Split((Split(str_base," ltdiv class=""trans-container " " >)(1))," lt/div >;")(0)

str_tmp = Split( (Split(str_tmp,"ltul>;")(1)),"lt/ul>)(0)

s = Split(str_tmp,"lt李>)

palabra def = Split(s(LBound(s) 1), "lt/李")(0)

Para i = LBound(s) 2 a UBound( s)

worddef = worddef ampChr(10)Split(s(i),"lt/李")(0)

Entonces

Finalizar función