易语言通过解密微博图片地址获取发布者微博地址的代码

今天小编就为大家分享一篇关于易语言通过解密微博图片地址获取发布者微博地址的代码，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧

常量数据表

				?

									.版本 2

									.常量 常量1, "<文本长度: 399>", , 'js脚本 返回 origin_number

微博图片获取发布者的代码

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

				?

									.版本 2

									.支持库 spec

									.支持库 eAPI

									.程序集 窗口程序集1

									.子程序 _文本提取按钮_被单击

									.局部变量 文本_提取, 文本型

									.局部变量 文本_转换, 文本型

									.局部变量 文本_结果, 文本型

									.局部变量 文本_判断, 文本型

									文本_提取 ＝ 文本_倒取出中间文本 (图片地址编辑框.内容, “.”, “/”, , )

									调试输出 (文本_提取)

									文本_判断 ＝ 取文本左边 (文本_提取, 2)

									调试输出 (文本_判断)

									.判断开始 (文本_判断 ≠ “00”)

									  文本_转换 ＝ 取文本左边 (文本_提取, 8)

									  文本_结果 ＝ 到文本 (进制_十六到十 (文本_转换))

									  发布者地址编辑框.内容 ＝ “https://weibo.com/u/” ＋ 文本_结果

									.默认

									  文本_转换 ＝ 取文本左边 (文本_提取, 8)

									  文本_结果 ＝ Getjs (文本_转换)

									  发布者地址编辑框.内容 ＝ “https://weibo.com/u/” ＋ 文本_结果

									.判断结束

									.子程序 Getjs, 文本型, , 62进制到10进制

									.参数 value1, 文本型

									.局部变量 js, 类_脚本组件

									.局部变量 文本, 文本型

									线程_初始化COM库 ()

									js.执行 (#常量1)

									文本 ＝ js.计算表达式 (“string62to10('” ＋ value1 ＋ “')”)

									线程_取消COM库 ()

									返回 (文本)

									.子程序 _打开按钮_被单击

									打开指定网址 (发布者地址编辑框.内容)