사전 인터페이스가 있습니다

/view/aba98f8f84868762caaed5dd? Fr = 인쇄

또는

Worddef 함수 (str1문자열로)

/검색? Q = word &；; 키 시작 = dict.index

XH 를 오브젝트로 흐리게 합니다

Dim s () 를 문자열로 사용

Dim str_tmp 를 문자열로 사용

Dim str_base 를 문자열로 사용

홈페이지를 열다

설정 XH = CreateObject ("Microsoft. XMLHTTP) 를 참조하십시오

오류 발생 시 다음 단계로 진행합니다

XH. 가져오기,/검색 열기? Q = "& ampstr1& "& ampkeyfrom=dict.index", False

XH.send

오류 발생 시 다음 단계로 진행합니다

Str_base = XH.responseText

XH. 닫기

설정 XH = 없음

Str _ base = split (split (xh.responsetext, "& ltdiv id =" "webtrans" "class =" "trans-" ) (0), "& ltspanclass =" "keyword" ">) (1)

Worddef = ""

중국어 번역 검색

Str_tmp = Split((Split(str_base, "< div class =" "trans-container" ">) (/klit ") (0)

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

S = Split(str_tmp, "< 리 >)

Worddef = split (s (lbound (s)+1), "</ 리") (0)

I = LBound(s)+2 부터 UBound(s) 까지의 경우

Worddef = worddef & ampchr (10) split (s (I), "</ 리") (0)

그리고 나서

기능을 종료합니다