新浪短链接生成易语言源码
.版本 2
.支持库 spec
.子程序 缩短, 文本型
.参数 地址, 文本型
.局部变量 网址, 文本型
.局部变量 返回1, 文本型
.局部变量 地址11, 文本型
.判断开始 (取文本左边 (地址, 4) = “http”)
地址11 = 地址
.默认
地址11 = “//” + 地址
.判断结束
返回1 = 到文本 (网页_访问 (“//api.t.sina.com.cn/short_url/shorten.json?source=3271760578&url_long=” + 地址11, , , , , , , , , , ))
调试输出 (返回1)
返回 (文本_取出中间文本 (返回1, “url_short” + #引号 + “:” + #引号, #引号 + “,” + #引号 + “url_long”, , 假))
.子程序 _按钮1_被单击
_启动窗口.标题 = 缩短 (编辑框1.内容)