新浪短链接生成易语言源码

新浪短链接生成易语言源码

@a815539102

.版本 2
.支持库 spec

.子程序 缩短, 文本型
.参数 地址, 文本型
.局部变量 网址, 文本型
.局部变量 返回1, 文本型
.局部变量 地址11, 文本型

.判断开始 (取文本左边 (地址, 4) ＝ “http”)
    地址11 ＝ 地址
.默认
    地址11 ＝ “http://” ＋ 地址
.判断结束
返回1 ＝ 到文本 (网页_访问 (“http://api.t.sina.com.cn/short_url/shorten.json?source=3271760578&url_long=” ＋ 地址11, , , , , , , , , , ))
调试输出 (返回1)
返回 (文本_取出中间文本 (返回1, “url_short” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,” ＋ #引号 ＋ “url_long”, , 假))

.子程序 _按钮1_被单击

_启动窗口.标题 ＝ 缩短 (编辑框1.内容)