淘宝搜索建议及热度获取源码

.版本 2 .子程序 _Btn_Search_被单击 .局部变量 ReturnWeb, 文本型 .局部变量 Json, zyJsonValue .局部变量 Time, 整数型 ' https://suggest.taobao.com/sug?code=utf-8&q=%E5%8D%AB%E8%A1%A3 ReturnWeb ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (“https://suggest.taobao.com/sug?code=utf-8&q=” ＋ 编码_URL编码 (Edit_Search.内容, , 真), 0, , , , , , , , ))) Json.解析 (ReturnWeb, 真) .计次循环首 (Json.取成员数 (“result”), Time) Edit_Result.内容 ＝ Edit_Result.内容 ＋ Json.到文本 (“result[” ＋ 到文本 (Time － 1) ＋ “]”, ) ＋ #换行符 .计次循环尾 ()