微信公众号短链接生成源码

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 access_token, 文本型
.局部变量 返回, 文本型
.局部变量 i, 整数型

' https://mp.weixin.qq.com/debug/cgi-bin/sandbox?t=sandbox/login  扫码登录 获取 appID    appsecret
access_token ＝ 到文本 (网页_访问_对象 (“https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential&appid=appID&secret=appsecret”, , , , , , , , , , , , , , , , , , ))
' 返回access_token  获取一次就可以
' 提交json数据
返回 ＝ 到文本 (网页_访问_对象 (“https://api.weixin.qq.com/cgi-bin/shorturl?access_token=access_token”, 1, #常量1, , , , , , , , , , , , , , , , ))
调试输出 (返回)

@怡君大哥