谁帮我看看问题出在哪里，运行不了

llalla

  

窗口程序集名	保 留	保 留	备 注
微信公众号扫码登录
变量名	类 型	数组	备 注
cookie文件	文本型		"1.wxb"
网页访问	网页访问类
token	文本型
二维码URL	文本型

子程序名	返回值类型	公开	备 注
_启动子程序	整数型

变量名	类 型	静态	数组	备 注
登录结果	逻辑型

cookie文件 ＝ 取运行目录 () ＋ “\1.wxb”
删除文件 (cookie文件)  ' 清除旧cookie

登录结果 ＝ 获取二维码 ()

如果 (登录结果) 则
信息框 (“二维码已显示，请扫码登录”, 0, , )
监控登录状态 ()
否则
信息框 (“获取二维码失败，请重试”, 0, , )
。如果结束

返回 (0)

子程序名	返回值类型	公开	备 注
获取二维码	逻辑型

变量名	类 型	静态	数组	备 注
首页内容	文本型
二维码接口返回	文本型
JSON	类_JSON

' 1. 访问首页获取初始Cookie
网页访问.初始化 ()
网页访问.置UserAgent (“Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/91.0.4472.124 Safari/537.36”)
网页访问.置Cookie文件 (cookie文件)
首页内容 ＝ 网页访问.网页_访问S (“https://mp.weixin.qq.com/”, 0, , , , , , , , , , , , )

' 2. 从首页提取token
token ＝ 文本_取出中间文本 (首页内容, “token=”, “&”, , )
如果 (token ＝ “”) 则
token ＝ 文本_取出中间文本 (首页内容, “window.token = '”, “'”, , )
。如果结束

如果 (token ＝ “”) 则
返回 (假)
。如果结束

' 3. 获取二维码
二维码接口返回 ＝ 网页访问.网页_访问S (“https://mp.weixin.qq.com/cgi-bin ... etqrcode&token=” ＋ token ＋ “&random=” ＋ 到文本 (取随机数 (100000, 999999)), 0, , , , , , , , , , , , )

如果 (JSON.解析 (二维码接口返回)) 则
二维码URL ＝ JSON.取文本属性 (“qrcode_url”)
如果 (二维码URL ≠ “”) 则
' 显示二维码
图片框1.图片 ＝ 网页访问.网页_访问_对象 (二维码URL, 0, , , , , , , , , , , , )
返回 (真)
。如果结束
。如果结束

返回 (假)

子程序名	返回值类型	公开	备 注
监控登录状态

变量名	类 型	静态	数组	备 注
状态接口返回	文本型
JSON	类_JSON
登录状态	整数型
重定向URL	文本型

判断循环首 (真)
程序_延时 (2000)  ' 每2秒检查一次

状态接口返回 ＝ 网页访问.网页_访问S (“https://mp.weixin.qq.com/cgi-bin ... tion=ask&token=” ＋ token, 0, , , , , , , , , , , , )

如果 (JSON.解析 (状态接口返回)) 则
登录状态 ＝ JSON.取整数属性 (“status”)

判断 (登录状态)
案例 0:  ' 已扫码未确认
标签1.标题 ＝ “已扫码，请在手机上确认登录”
案例 1:  ' 登录成功
重定向URL ＝ JSON.取文本属性 (“redirect_url”)
如果 (重定向URL ≠ “”) 则
' 访问重定向URL完成登录
网页访问.网页_访问S (重定向URL, 0, , , , , , , , , , , , )
信息框 (“登录成功！Cookie已保存”, 0, , )
跳出循环 ()
。如果结束
案例 4:  ' 二维码过期
信息框 (“二维码已过期，请重新获取”, 0, , )
跳出循环
默认:
标签1.标题 ＝ “等待扫码中...”
。判断结束
。如果结束
。判断循环尾 ()

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 界面初始化
图片框1.宽度 ＝ 260
图片框1.高度 ＝ 260
标签1.标题 ＝ “正在获取二维码...”
按钮1.标题 ＝ “刷新二维码”

' 启动登录流程
_启动子程序 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

' 重新获取二维码
标签1.标题 ＝ “正在获取二维码...”
获取二维码 ()

.版本 2<br /> <br /> .程序集 微信公众号扫码登录<br /> .程序集变量 cookie文件, 文本型, , , "1.wxb"<br /> .程序集变量 网页访问, 网页访问类<br /> .程序集变量 token, 文本型<br /> .程序集变量 二维码URL, 文本型<br /> <br /> .子程序 _启动子程序, 整数型<br /> .局部变量 登录结果, 逻辑型<br /> <br />     cookie文件 ＝ 取运行目录 () ＋ “\1.wxb”<br />     删除文件 (cookie文件)  ' 清除旧cookie<br />     <br />     登录结果 ＝ 获取二维码 ()<br />     <br />     如果 (登录结果) 则<br />         信息框 (“二维码已显示，请扫码登录”, 0, , )<br />         监控登录状态 ()<br />     否则<br />         信息框 (“获取二维码失败，请重试”, 0, , )<br />     。如果结束<br />     <br />     返回 (0)<br /> <br /> .子程序 获取二维码, 逻辑型<br /> .局部变量 首页内容, 文本型<br /> .局部变量 二维码接口返回, 文本型<br /> .局部变量 JSON, 类_JSON<br /> <br />     ' 1. 访问首页获取初始Cookie<br />     网页访问.初始化 ()<br />     网页访问.置UserAgent (“Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/91.0.4472.124 Safari/537.36”)<br />     网页访问.置Cookie文件 (cookie文件)<br />     首页内容 ＝ 网页访问.网页_访问S (“<a href="https://mp.weixin.qq.com/" rel="nofollow" rel="nofollow" target="_blank">https://mp.weixin.qq.com/</a>”, 0, , , , , , , , , , , , )<br />     <br />     ' 2. 从首页提取token<br />     token ＝ 文本_取出中间文本 (首页内容, “token=”, “&”, , )<br />     如果 (token ＝ “”) 则<br />         token ＝ 文本_取出中间文本 (首页内容, “window.token = '”, “'”, , )<br />     。如果结束<br />     <br />     如果 (token ＝ “”) 则<br />         返回 (假)<br />     。如果结束<br />     <br />     ' 3. 获取二维码<br />     二维码接口返回 ＝ 网页访问.网页_访问S (“<a href="https://mp.weixin.qq.com/cgi-bin/scanloginqrcode?action=getqrcode&token=" rel="nofollow" rel="nofollow" target="_blank">https://mp.weixin.qq.com/cgi-bin ... etqrcode&token=</a>” ＋ token ＋ “&random=” ＋ 到文本 (取随机数 (100000, 999999)), 0, , , , , , , , , , , , )<br />     <br />     如果 (JSON.解析 (二维码接口返回)) 则<br />         二维码URL ＝ JSON.取文本属性 (“qrcode_url”)<br />         如果 (二维码URL ≠ “”) 则<br />             ' 显示二维码<br />             图片框1.图片 ＝ 网页访问.网页_访问_对象 (二维码URL, 0, , , , , , , , , , , , )<br />             返回 (真)<br />         。如果结束<br />     。如果结束<br />     <br />     返回 (假)<br /> <br /> .子程序 监控登录状态<br /> .局部变量 状态接口返回, 文本型<br /> .局部变量 JSON, 类_JSON<br /> .局部变量 登录状态, 整数型<br /> .局部变量 重定向URL, 文本型<br /> <br />     .判断循环首 (真)<br />         程序_延时 (2000)  ' 每2秒检查一次<br />         <br />         状态接口返回 ＝ 网页访问.网页_访问S (“<a href="https://mp.weixin.qq.com/cgi-bin/scanloginqrcode?action=ask&token=" rel="nofollow" rel="nofollow" target="_blank">https://mp.weixin.qq.com/cgi-bin ... tion=ask&token=</a>” ＋ token, 0, , , , , , , , , , , , )<br />         <br />         如果 (JSON.解析 (状态接口返回)) 则<br />             登录状态 ＝ JSON.取整数属性 (“status”)<br />             <br />             判断 (登录状态)<br />                 案例 0:  ' 已扫码未确认<br />                     标签1.标题 ＝ “已扫码，请在手机上确认登录”<br />                 案例 1:  ' 登录成功<br />                     重定向URL ＝ JSON.取文本属性 (“redirect_url”)<br />                     如果 (重定向URL ≠ “”) 则<br />                         ' 访问重定向URL完成登录<br />                         网页访问.网页_访问S (重定向URL, 0, , , , , , , , , , , , )<br />                         信息框 (“登录成功！Cookie已保存”, 0, , )<br />                         跳出循环 ()<br />                     。如果结束<br />                 案例 4:  ' 二维码过期<br />                     信息框 (“二维码已过期，请重新获取”, 0, , )<br />                     跳出循环<br />                 默认:<br />                     标签1.标题 ＝ “等待扫码中...”<br />             。判断结束<br />         。如果结束<br />     。判断循环尾 ()<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br />     ' 界面初始化<br />     图片框1.宽度 ＝ 260<br />     图片框1.高度 ＝ 260<br />     标签1.标题 ＝ “正在获取二维码...”<br />     按钮1.标题 ＝ “刷新二维码”<br />     <br />     ' 启动登录流程<br />     _启动子程序 ()<br /> <br /> .子程序 _按钮1_被单击<br /> <br />     ' 重新获取二维码<br />     标签1.标题 ＝ “正在获取二维码...”<br />     获取二维码 ()

尛龍科技

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
登录结果	逻辑型

图片框1.宽度 ＝ 260
图片框1.高度 ＝ 260
标签1.标题 ＝ “正在获取二维码...”
按钮1.标题 ＝ “刷新二维码”
cookie文件 ＝ 取运行目录 () ＋ “\1.wxb”
删除文件 (cookie文件)  ' 清除旧cookie
网页访问.初始化 ()
网页访问.置UserAgent (“Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/91.0.4472.124 Safari/537.36”)
网页访问.置Cookie文件 (cookie文件)
登录结果 ＝ 获取二维码 ()
如果真 (登录结果)
标签1.标题 ＝ “请使用VX扫码登录”
信息框 (“获取二维码失败，请重试”, 0, , )

子程序名	返回值类型	公开	备 注
获取二维码	逻辑型

变量名	类 型	静态	数组	备 注
首页内容	文本型
二维码接口返回	文本型
JSON	类_JSON
图片数据	字节集
随机数	文本型

首页内容 ＝ 网页访问.网页_访问S (“https://mp.weixin.qq.com/”, 0, , , , , , , , , , , , )
token ＝ 文本_取出中间文本 (首页内容, “window.token = '”, “'”, , )
如果真 (token ＝ “”)
token ＝ 文本_取出中间文本 (首页内容, “token=”, “&”, , )

如果真 (token ＝ “”)
返回 (假)

随机数 ＝ 到文本 (取随机数 (100000, 999999))
二维码接口返回 ＝ 网页访问.网页_访问S (“https://mp.weixin.qq.com/cgi-bin ... etqrcode&token=” ＋ token ＋ “&random=” ＋ 随机数, 0, , , , , , , , , , , , )
如果真 (JSON.解析 (二维码接口返回))
二维码URL ＝ JSON.取文本属性 (“qrcode_url”)
如果真 (二维码URL ≠ “”)
图片数据 ＝ 网页访问.网页_访问_对象 (二维码URL, 0, , , , , , , , , , , , )
如果真 (取字节集长度 (图片数据) ＞ 0)
图片框1.图片 ＝ 图片数据
监控中 ＝ 真
时钟1.时钟周期 ＝ 2000
返回 (真)



返回 (假)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
状态接口返回	文本型
JSON	类_JSON
登录状态	整数型
重定向URL	文本型

如果真 (监控中 ＝ 假)
返回 ()

状态接口返回 ＝ 网页访问.网页_访问S (“https://mp.weixin.qq.com/cgi-bin ... tion=ask&token=” ＋ token, 0, , , , , , , , , , , , )
如果真 (JSON.解析 (状态接口返回))
登录状态 ＝ JSON.取整数属性 (“status”)
判断 (登录状态)

标签1.标题 ＝ “已扫码，请在手机上确认登录”
重定向URL ＝ JSON.取文本属性 (“redirect_url”)
如果真 (重定向URL ≠ “”)
网页访问.网页_访问S (重定向URL, 0, , , , , , , , , , , , )
如果真 (文件是否存在 (cookie文件))
信息框 (“登录成功！Cookie已保存到:” ＋ #换行符 ＋ cookie文件, 0, “登录成功”, )
信息框 (“登录成功！但Cookie保存失败”, 0, “提示”, )

监控中 ＝ 假
时钟1.时钟周期 ＝ 0
标签1.标题 ＝ “登录成功”
信息框 (“二维码已过期，请重新获取”, 0, , )
监控中 ＝ 假
时钟1.时钟周期 ＝ 0
标签1.标题 ＝ “二维码已过期”

子程序名	返回值类型	公开	备 注
_按钮1_被单击

监控中 ＝ 假
时钟1.时钟周期 ＝ 0
标签1.标题 ＝ “正在获取二维码...”
获取二维码 ()

子程序名	返回值类型	公开	备 注
_图片框1_被双击

如果真 (二维码URL ≠ “”)
置剪辑板文本 (二维码URL)
信息框 (“二维码URL已复制到剪贴板”, 0, , )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 登录结果, 逻辑型<br /> <br /> 图片框1.宽度 ＝ 260<br /> 图片框1.高度 ＝ 260<br /> 标签1.标题 ＝ “正在获取二维码...”<br /> 按钮1.标题 ＝ “刷新二维码”<br /> <br /> cookie文件 ＝ 取运行目录 () ＋ “\1.wxb”<br /> 删除文件 (cookie文件)  ' 清除旧cookie<br /> <br /> 网页访问.初始化 ()<br /> 网页访问.置UserAgent (“Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/91.0.4472.124 Safari/537.36”)<br /> 网页访问.置Cookie文件 (cookie文件)<br /> <br /> 登录结果 ＝ 获取二维码 ()<br /> .如果真 (登录结果)<br />     标签1.标题 ＝ “请使用VX扫码登录”<br />     信息框 (“获取二维码失败，请重试”, 0, , )<br /> .如果真结束<br /> <br /> <br /> .子程序 获取二维码, 逻辑型<br /> .局部变量 首页内容, 文本型<br /> .局部变量 二维码接口返回, 文本型<br /> .局部变量 JSON, 类_JSON<br /> .局部变量 图片数据, 字节集<br /> .局部变量 随机数, 文本型<br /> <br /> 首页内容 ＝ 网页访问.网页_访问S (“<a href="https://mp.weixin.qq.com/" rel="nofollow" rel="nofollow" target="_blank">https://mp.weixin.qq.com/</a>”, 0, , , , , , , , , , , , )<br /> token ＝ 文本_取出中间文本 (首页内容, “window.token = '”, “'”, , )<br /> .如果真 (token ＝ “”)<br />     token ＝ 文本_取出中间文本 (首页内容, “token=”, “&”, , )<br /> .如果真结束<br /> <br /> .如果真 (token ＝ “”)<br />     返回 (假)<br /> .如果真结束<br /> <br /> 随机数 ＝ 到文本 (取随机数 (100000, 999999))<br /> 二维码接口返回 ＝ 网页访问.网页_访问S (“<a href="https://mp.weixin.qq.com/cgi-bin/scanloginqrcode?action=getqrcode&token=" rel="nofollow" rel="nofollow" target="_blank">https://mp.weixin.qq.com/cgi-bin ... etqrcode&token=</a>” ＋ token ＋ “&random=” ＋ 随机数, 0, , , , , , , , , , , , )<br /> .如果真 (JSON.解析 (二维码接口返回))<br />     二维码URL ＝ JSON.取文本属性 (“qrcode_url”)<br /> <br />     .如果真 (二维码URL ≠ “”)<br /> <br />         图片数据 ＝ 网页访问.网页_访问_对象 (二维码URL, 0, , , , , , , , , , , , )<br /> <br />         .如果真 (取字节集长度 (图片数据) ＞ 0)<br />             图片框1.图片 ＝ 图片数据<br /> <br /> <br />             监控中 ＝ 真<br />             时钟1.时钟周期 ＝ 2000<br /> <br />             返回 (真)<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> 返回 (假)<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 状态接口返回, 文本型<br /> .局部变量 JSON, 类_JSON<br /> .局部变量 登录状态, 整数型<br /> .局部变量 重定向URL, 文本型<br /> <br /> <br /> .如果真 (监控中 ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> <br /> 状态接口返回 ＝ 网页访问.网页_访问S (“<a href="https://mp.weixin.qq.com/cgi-bin/scanloginqrcode?action=ask&token=" rel="nofollow" rel="nofollow" target="_blank">https://mp.weixin.qq.com/cgi-bin ... tion=ask&token=</a>” ＋ token, 0, , , , , , , , , , , , )<br /> <br /> .如果真 (JSON.解析 (状态接口返回))<br />     登录状态 ＝ JSON.取整数属性 (“status”)<br />     .判断开始 (登录状态)<br /> <br />     .默认<br />         标签1.标题 ＝ “已扫码，请在手机上确认登录”<br />         重定向URL ＝ JSON.取文本属性 (“redirect_url”)<br />         .如果真 (重定向URL ≠ “”)<br />             网页访问.网页_访问S (重定向URL, 0, , , , , , , , , , , , )<br />             .如果真 (文件是否存在 (cookie文件))<br />                 信息框 (“登录成功！Cookie已保存到:” ＋ #换行符 ＋ cookie文件, 0, “登录成功”, )<br />                 信息框 (“登录成功！但Cookie保存失败”, 0, “提示”, )<br />             .如果真结束<br /> <br />             监控中 ＝ 假<br />             时钟1.时钟周期 ＝ 0<br />             标签1.标题 ＝ “登录成功”<br />         .如果真结束<br />         信息框 (“二维码已过期，请重新获取”, 0, , )<br />         监控中 ＝ 假<br />         时钟1.时钟周期 ＝ 0<br />         标签1.标题 ＝ “二维码已过期”<br />     .判断结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 监控中 ＝ 假<br /> 时钟1.时钟周期 ＝ 0<br /> 标签1.标题 ＝ “正在获取二维码...”<br /> 获取二维码 ()<br /> <br /> .子程序 _图片框1_被双击<br /> <br /> .如果真 (二维码URL ≠ “”)<br />     置剪辑板文本 (二维码URL)<br />     信息框 (“二维码URL已复制到剪贴板”, 0, , )<br /> .如果真结束

把判断循环直接换时钟，修正了一些地方，你直接调整下看看