易语言解析淘宝客短链接转换成商品真实链接的代码

今天小编就为大家分享一篇关于易语言解析淘宝客短链接转换成商品真实链接的代码，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧

淘宝客短链接转换成商品地址的代码

此功能需要加载精易模块5.6

				?

									.版本 2

									.支持库 EThread

									.程序集 窗口程序集_启动窗口

									.子程序 test

									商品地址编辑框.内容 ＝ GetRealUrl (短链接编辑框.内容)

									.子程序 GetRealUrl, 文本型

									.参数 shortUrl, 文本型

									.局部变量 rurl, 文本型

									.局部变量 referer, 文本型

									.局部变量 laststr, 文本型

									httpGet (shortUrl, , rurl)

									httpGet (rurl, , referer)

									laststr ＝ 文本_取右边 (referer, “ref”) ' 取文本右边 (referer, 取文本长度 (referer) － 寻找文本 (referer, 取文本右边 (rurl, 8), , 假) － 7)

									laststr ＝ 子文本替换 (laststr, “%26”, “&”, , , 真)

									laststr ＝ 子文本替换 (laststr, “%25”, “%”, , , 真)

									laststr ＝ 子文本替换 (laststr, “%3D”, “=”, , , 真)

									httpGet (rurl ＋ “ref” ＋ laststr, “Referer:” ＋ referer, rurl)

									返回 (取文本左边 (rurl, 寻找文本 (rurl, “&”, , 假) － 1))

									.子程序 httpGet

									.参数 url, 文本型

									.参数 header, 文本型, 可空

									.参数 rurl, 文本型, 参考 可空

									.局部变量 reheader, 文本型

									.局部变量 index, 整数型

									网页_访问_对象 (url, , , , , header, reheader, , 真, , , , , , , )

									' 下面两行是取location的值的

									index ＝ 寻找文本 (reheader, “ation:”, , 假)

									rurl ＝ 取文本中间 (reheader, index ＋ 7, 寻找文本 (reheader, #换行符, index, 假) － index － 7)

									.子程序 _转换按钮_被单击

									启动线程 (&test, , )