Cando_有道翻译

cando_有道网络翻译:
	Youdao_keyword=%CandySel%
	Youdao_译文:=YouDaoApi(Youdao_keyword)
;~ 	MsgBox %Youdao_译文%

	Youdao_音标:= json(Youdao_译文, "basic.phonetic")
	Youdao_基本释义:= json(Youdao_译文, "basic.explains")
	Youdao_网络释义:= json(Youdao_译文, "web.value")
	Gui Gui_youdao_danci: Font,s14 微软雅黑 c62384C q2
	If Youdao_基本释义
	{
		Gui Gui_youdao_danci:add,Edit,x10 y10  w300 h100,[ %Youdao_音标% ]
		Gui Gui_youdao_danci:add,Edit,x10 y120 w300 h100,%Youdao_基本释义%
		Gui Gui_youdao_danci:add,Edit,x10 y230 w300 h100,%Youdao_网络释义%
	}
	Else
	{
		Youdao_音标:=RegExReplace(Youdao_译文,"m)({""translation"":["")|(""],""query"":.*)")
		Gui Gui_youdao_danci:add,Edit,x10 y10  w300 h300,%Youdao_音标%
	}

	Gui Gui_youdao_danci:show,,有道网络翻译
	Return
Gui_youdao_danciGuiClose:
Gui_youdao_danciGuiEscape:
	Gui Gui_youdao_danci:destroy
	Return




YouDaoApi(KeyWord)
{
    KeyWord:=SkSub_UrlEncode(KeyWord,"utf-8")
	url:="http://fanyi.youdao.com/fanyiapi.do?keyfrom=qqqqqqqq123&key=86514254&type=data&doctype=json&version=1.1&q=" . KeyWord
    WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
    WebRequest.Open("GET", url)
    WebRequest.Send()
    result := WebRequest.ResponseText
    Return result
}


json(ByRef js, s, v = "")
{
	j = %js%
	Loop, Parse, s, .
	{
		p = 2
		RegExMatch(A_LoopField, "([+-]?)([^[]+)((?:[d+])*)", q)
		Loop {
			If (!p := RegExMatch(j, "(?