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

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

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

运行结果：

总结

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

赞 (0)

相关推荐

  • 易语言CNA算法实现快速加密解密文件的代码

    易语言CNA算法实现快速加密解密文件的代码

    CNA文件加解密数据算法 .版本 2 .支持库 spec .支持库 iext .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 .局部变量 code, 字节集, , , 加密密码 .局部变量 test, 字节集, , , 要加密码的数据字节集 .局部变量 i, 整数型, , , 查看反馈信息 ' 简单例子 test ＝ 到字节集 ("aaaaaaa aaa.*#(中.329}@#￥") code ＝ 到字节集 ("中.有 3a#") CNA数据 (t

  • 易语言抓包获得地址实现TP路由器登陆的代码

    易语言抓包获得地址实现TP路由器登陆的代码

    常量数据表 .版本 2 .常量 协议头, "<文本长度: 310>", , Accept: text/html, application/xhtml+xml, */* Referer: http://地址/userRpm/MenuRpm.htm Accept-Language: zh-CN User-Agent: Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; WOW64; Trident/6.0) Accept-En

  • 易语言实现文件夹加密的代码

    易语言实现文件夹加密的代码

    加密锁上文件夹 此功能需要加载精易模块5.6 .版本 2 .支持库 shell .支持库 spec .支持库 dp1 .程序集 窗口程序集1 .程序集变量 密码, 文本型 .子程序 _按钮_浏览文件_被单击 编辑框_路径.内容 ＝ 浏览文件夹 ("打开你需要加密的文件", ) .子程序 _按钮_加密_被单击 .局部变量 文件夹名称, 文本型 .判断开始 (寻找文本 (编辑框_路径.内容, "[已加密]", , 假) ≠ -1) 提示框 ("已加密"

  • 易语言调用GetUserPassWord.dll获取系统开机密码

    易语言调用GetUserPassWord.dll获取系统开机密码

    DLL命令表 .版本 2 .DLL命令 取开机密码, 文本型, "GetUserPassWord.dll", "GetUserPassWord", 公开 获取系统登录密码的代码 .版本 2 .程序集 窗口程序集1 .子程序 获取开机, 文本型 .局部变量 密码, 文本型 .局部变量 帐号, 文本型 .局部变量 最终文本, 文本型 帐号 ＝ 读环境变量 ("USERNAME") 密码 ＝ 取电脑开机密码 () 最终文本 ＝ "密码类型:开

  • 易语言制作网截抓包工具的代码

    易语言制作网截抓包工具的代码

    常量数据表 .版本 2 .常量 编码常量, "<文本长度: 10797>", , 名称:编码_GB2312 英文名称:Encoding_GB2312 类型:文本型 值:"GB2312" 列举各种编码类型 全局变量表 .版本 2 .全局变量 系统配置路径, 文本型 网截抓包工具 .版本 2 .支持库 eNetIntercept .支持库 eGrid .支持库 iconv .支持库 iext .支持库 iext2 .程序集 主程序集 .程序集变量 服务安装,

  • 易语言解析音悦台MV提供超清下载地址的代码

    易语言解析音悦台MV提供超清下载地址的代码

    音悦台MV地址解析 此功能需要加载精易模块5.6 .版本 2 .支持库 exui .支持库 EThread .程序集 窗口程序集_启动窗口 .程序集变量 标清, 文本型 .程序集变量 高清, 文本型 .程序集变量 超清, 文本型 .子程序 _按钮EX1_左键单击 按钮EX2.可视EX ＝ 假 按钮EX3.可视EX ＝ 假 按钮EX4.可视EX ＝ 假 .判断开始 (编辑框EX1.内容 ＝ "") 信息框EX (, "告警 :", , "先输入MV地址才能解

  • 易语言实现多线程计算的代码

    易语言实现多线程计算的代码

    多线程计算 此功能需要加载精易模块5.6 .版本 2 .支持库 iext .程序集 窗口程序集1 .程序集变量 总线程id, 整数型 .程序集变量 线程判断数量, 整数型 .程序集变量 线程总数, 整数型 .程序集变量 线程id, 整数型 .程序集变量 当前表项, 整数型 .程序集变量 许可证, 整数型 .子程序 __启动窗口_创建完毕 .局部变量 i1, 整数型 .计次循环首 (10000, i1) 置随机数种子 () 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (

  • 易语言制作二维码生成器

    易语言制作二维码生成器

    DLL命令表 .版本 2 .DLL命令 二维码_外形设置, , "QRCodeWin32.dll", "QRAppearance" .参数 模块尺寸, 双精度小数型 .参数 方向, 整数型 .参数 边框, 整数型 .DLL命令 二维码_编码参数, , "QRCodeWin32.dll", "QRConfigure" .参数 版本, 整数型 .参数 纠错级别, 整数型 .参数 掩膜, 整数型 .DLL命令 二维码_默认设置, ,

  • 易语言制作QQ聊天添加自定义小尾巴工具

    易语言制作QQ聊天添加自定义小尾巴工具

    DLL命令表 .版本 2 .DLL命令 SetWindowsHookEx, 整数型, , "SetWindowsHookExA", , 建立钩子 .参数 idHook, 整数型 .参数 lpfn, 子程序指针 .参数 hmod, 整数型 .参数 dwThreadId, 整数型 .DLL命令 CopyMemory, , , "RtlMoveMemory" .参数 Destination, 按键信息, 传址 .参数 Source, 整数型 .参数 Length, 整数型

  • 易语言将下载地址解析转换成迅雷快车旋风的方法

    易语言将下载地址解析转换成迅雷快车旋风的方法

    Base64解码 .版本 2 .程序集 程序集1 .子程序 Base64解码, 字节集, 公开 .参数 原文, 字节集 .局部变量 码表, 字节集 .局部变量 位置码表, 字节型, , "256" .局部变量 结果, 字节集 .局部变量 原文长度, 整数型 .局部变量 补码, 整数型 .局部变量 i, 整数型 .局部变量 四字节数据, 字节型, , "4" .局部变量 j, 整数型 原文长度 ＝ 取字节集长度 (原文) .如果真 (原文长度 ＝ 0) 返回 ({ }

  • 易语言仿360悬浮窗实现流量监控和内存优化的代码

    易语言仿360悬浮窗实现流量监控和内存优化的代码

    DLL命令表 .版本 2 .DLL命令 GlobalMemoryStatus, 整数型, "kernel32", "GlobalMemoryStatus" .参数 lpBuffer, MEMORYSTATUS .DLL命令 OpenProcess, 整数型, "Kernel32.dll", "OpenProcess" .参数 dwDesiredAccess, 整数型 .参数 bInheritHandle, 整数型 .参数 dw

  • 易语言实现http下载断点续传功能的代码

    易语言实现http下载断点续传功能的代码

    DLL命令表 .版本 2 .DLL命令 InternetGetConnectedState, , "Wininet.dll", "InternetGetConnectedState" .参数 lpdwFlags, 整数型, 传址 .参数 dwReserved, 整数型 .DLL命令 InternetOpenA, 整数型, "Wininet.dll", "InternetOpenA" .参数 lpszAgent, 文本型 .参数

  • 易语言实现无需加好友强制查看QQ资料卡片的方法

    易语言实现无需加好友强制查看QQ资料卡片的方法

    调用腾讯的弹出QQ资料卡片接口实现强制查看QQ资料卡片的功能 .版本 2 .支持库 shell .程序集 窗口程序集_启动窗口 .子程序 _查看资料按钮_被单击 执行 (, "tencent://ContactInfo/?subcmd=ViewInfo&puin=0&uin=" + QQ号编辑框.内容, , , ) 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持.如果你想了解更多相关内容请查

  • 易语言实现自动发送QQ信息的代码

    易语言实现自动发送QQ信息的代码

    全局变量表 .版本 2 .全局变量 局_句柄, 整数型 .全局变量 b, 整数型 QQ自动发送信息 此功能需要加载精易模块5.6 .版本 2 .支持库 spec .支持库 eAPI .程序集 窗口程序集_启动窗口 .程序集变量 逻辑, 逻辑型 .子程序 _暂停按钮_被单击 时钟1.时钟周期 ＝ 0 .子程序 _好友按钮_被单击 逻辑 ＝ 假 时钟1.时钟周期 ＝ 1500 .子程序 功能_取句柄, 整数型 .参数 名称, 文本型 局_句柄 ＝ 窗口_取句柄 (, , "TXGuiFoundati

  • 易语言获取已登录的QQ号码以及名称的方法

    易语言获取已登录的QQ号码以及名称的方法

    取登陆QQ号以及名称的代码 此功能需要加载精易模块5.6 .版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 网页填表, 普通填表 .子程序 _读取按钮_被单击 .局部变量 数量, 文本型 .局部变量 i, 整数型 .局部变量 QQ, 文本型 .局部变量 名称, 文本型 显示选择列表框.清空 () 网页填表.初始化 (超文本浏览框1.取窗口句柄 ()) 数量 ＝ 到文本 (网页填表.ULLI_取数量 ()) .计次循环首 (到整数 (数量), i) QQ ＝ 到文本 (文本_取出中间文本

随机推荐