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

时间:2021-05-19

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

此功能需要加载精易模块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, , )

运行结果:

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对的支持。如果你想了解更多相关内容请查看下面相关链接

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章