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

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

.版本 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库 ()
返回 (文本)
.子程序 _打开按钮_被单击
打开指定网址 (发布者地址编辑框.内容)