/view/aba98f8f84868762caaed5dd？fr=prin
或者
函數word def（str 1作為字符串）
/搜索？q = word &；keyfrom=dict.index
將XH作為對象變暗
將s（）標註為字符串
Dim str_tmp作為字符串
Dim str_base作為字符串
打開網頁
設置XH =創建對象（“微軟。XMLHTTP“）
出錯時繼續下壹步
XH。打開“獲取”，“/搜索？q =“& amp；str 1 & amp；“& ampkeyfrom=dict.index“，False
XH.send
出錯時繼續下壹步
str_base = XH.responseText
XH。關閉
設置XH =無
str _ base = Split（Split（xh . responsetext，“lt；div id =“webTrans““class =““trans-wrapper trans-tab““& gt）（0）“& lt；span class =“keyword““& gt)(1)
worddef =““
檢索中文翻譯
str _ tmp = Split（（Split（str _ base，& ltdiv class=“轉運容器““>）（1）“& lt；/div & gt；”)(0)
str _ tmp = Split（（Split（str _ tmp，“lt；ul & gt”）（1）“& lt；/ul & gt；”)(0)
s = Split（str _ tmp，“& lt李》)
word def = Split（s（LBound（s）+1）“& lt；/李“）（0）
對於i =上界+ 2至下界
worddef = worddef & ampchr（10）和ampsplit（s（I）“& lt；/李“）（0）
然後
結束功能