| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | | | |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 局_网址 | 文本型 | | |
| 局_方式 | 整数型 | | |
| 局_提交cookie | 文本型 | | |
| 局_结果 | 字节集 | | |
| 局_返回 | 文本型 | | |
| uuid | 文本型 | | |
| 状态码 | 文本型 | | |
| i | 整数型 | | |
| 二维码地址 | 文本型 | | |
| code | 文本型 | | |
| access_token | 文本型 | | |
| openid | 文本型 | | |
| 到文本 | 文本型 | | |
局_结果 ＝
网页_访问_对象 (“https://open.weixin.qq.com/conne ... ATE#wechat_redirect”, , , , , , , , , , , , , , , , , ,
)局_返回 ＝
到文本 (编码_编码转换对象 (局_结果, , ,
))
uuid ＝
文本_取出中间文本 (局_返回,
“uuid=”,
“#引号”, ,
)调试输出 (uuid
)
如果真 (uuid ≠
“”)
二维码地址 ＝ “https://open.weixin.qq.com/connect/qrcode/” ＋ uuid 局_方式 ＝ 0
局_结果 ＝
网页_访问_对象 (二维码地址, 局_方式, , , , , , , , , , , , , , , , ,
)局_返回 ＝
到文本 (局_结果
)图片框1.图片 ＝
图片_缩放 (局_结果, 200, 200,
真)调试输出 (局_返回
)如果真 (寻找文本 (局_返回,
“抱歉，出错了”, ,
假) ＝ -1
)
计次循环首 (40, i
)局_网址 ＝
“http://long.open.weixin.qq.com/connect/l/qrconnect?uuid=” ＋ uuid
局_方式 ＝ 0
局_结果 ＝
网页_访问_对象 (局_网址, 局_方式, , , , , , , , , , , , , , , , ,
)局_返回 ＝
到文本 (编码_编码转换对象 (局_结果, , ,
))
调试输出 (“回调|” ＋ 局_返回
)状态码 ＝
文本_取出中间文本 (局_返回,
“window.wx_errcode=”,
“;window”, ,
)如果真 (状态码 ＝
“400”)调试输出 (“二维码失效重新获取”) 跳出循环 ()
如果真 (状态码 ＝
“404”)调试输出 (“用户扫码成功 等待手机确认登陆”) 如果真 (状态码 ＝
“405”) code ＝
文本_取出中间文本 (局_返回,
“window.wx_code'”,
“';”, ,
)局_网址 ＝
“ https://api.weixin.qq.com/sns/oa ... ffbe60dcc3eb3&code=” ＋ code ＋
“&grant_type=authorization_code” 局_方式 ＝ 0
局_结果 ＝
网页_访问_对象 (局_网址, 局_方式, , , , , , , , , , , , , , , , ,
)局_返回 ＝
到文本 (编码_编码转换对象 (局_结果, , ,
))
调试输出 (局_返回
)json.
解析 (局_返回, ,
)access_token ＝ json.
取通用属性 (“['access_token']”,
)openid ＝ json.
取通用属性 (“openid”,
)调试输出 (access_token
)调试输出 (openid
)跳出循环 ()如果真 (状态码 ＝
“403”)调试输出 (“用户取消”) 跳出循环 ()如果真 (状态码 ＝
“408”)调试输出 (“等待用户扫码”) 程序_延时 (2, 1)
计次循环尾 ()返回 ()启动线程 (&获取二维码, ,
)
