/view/aba98f8f84868762caaed5dd？fr =打印
或者
函數worddef(str1作為字符串)
/搜索？q = word &；keyfrom=dict.index
模糊XH作為對象
Dim s()作為字符串
Dim str_tmp作為字符串
Dim str_base作為字符串
打開網頁
設置XH = CreateObject("微軟。XMLHTTP”)
出錯時繼續下壹步
XH。打開“獲取”，“/搜索？q = " & ampstr 1 & amp；“& ampkeyfrom=dict.index "，False
XH.send
出錯時繼續下壹步
str_base = XH.responseText
XH。關閉
設置XH =無
str _ base = Split(Split(xh . responsetext，" & ltdiv id = " " webTrans " " class = " " trans-wrapper trans-tab " " >；)(0)，" & ltspan class=""keyword " " >)(1)
worddef = " "
檢索中文翻譯
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李>)
word def = Split(s(LBound(s)+1)，" & lt/李")(0)
對於i = LBound(s) + 2至UBound(s)
worddef = worddef & ampChr(10)Split(s(i)，" & lt/李")(0)
然後
結束功能