超级列表框内容置入问题

liweiqing

我没有用模块，想获取公众号的用户信息，但是一直置入不了数据（https://developers.weixin.qq.com ... fo/api_getfans.html）
大佬求助啊

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口			易如云窗口程序主程序集
变量名	类 型	数组	备 注
全局_access_token	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕			程序从这里进行初始化准备

列表.全部删除 ()
列表.插入列 (0, “昵称”, , 150, , )
列表.插入列 (1, “OpenID”, 300, 250, , )

子程序名	返回值类型	公开	备 注
发送HTTP请求	文本型
参数名	类 型	参考	可空	数组	备 注
请求地址	文本型
请求方式	文本型
提交数据	文本型

变量名	类 型	静态	数组	备 注
http	对象

http.创建 (“WinHttp.WinHttpRequest.5.1”, )
http.方法 (“Open”, 请求方式, 请求地址, 假)
如果真 (请求方式 ＝ “POST”)
http.方法 (“SetRequestHeader”, “Content-Type”, “application/json; charset=utf-8”)
http.方法 (“Send”, 提交数据)

如果真 (请求方式 ＝ “GET”)
http.方法 (“Send”, )

返回 (http.读文本属性 (“ResponseText”, ))

子程序名	返回值类型	公开	备 注
_获取Token_被单击

变量名	类 型	静态	数组	备 注
网址	文本型
返回结果	文本型
json_obj	文本型

网址 ＝ “https://api.weixin.qq.com/cgi-bi ... edential&appid=” ＋ AppID.内容 ＋ “&secret=” ＋ Appsecret.内容
返回结果 ＝ 发送HTTP请求 (网址, “GET”)
如果真 (寻找文本 (返回结果, “access_token”, , 假) ≠ -1)
Token.标题 ＝ 取JSON值 (返回结果, “access_token”)
信息框 (“获取成功！”, 0, , )

子程序名	返回值类型	公开	备 注
取JSON值	文本型
参数名	类 型	参考	可空	数组	备 注
原始文本	文本型
键名	文本型

变量名	类 型	静态	数组	备 注
开始标记	文本型
结束位置	整数型
结果	文本型
起始索引	整数型
值起始位置	整数型

开始标记 ＝ #引 ＋ 键名 ＋ #引 ＋ “:”
调试输出 (开始标记)
起始索引 ＝ 寻找文本 (原始文本, 开始标记, , 假)
调试输出 (起始索引)
如果真 (起始索引 ＝ -1)
返回 (“”)

值起始位置 ＝ 起始索引 ＋ 取文本长度 (开始标记) ＋ 1
调试输出 (值起始位置)
结果 ＝ 取文本中间 (原始文本, 值起始位置, 10000)
调试输出 (结果)
结束位置 ＝ 寻找文本 (结果, #引, , 假)
调试输出 (结束位置)
如果真 (结束位置 ＞ 0)
返回 (取文本左边 (结果, 结束位置 － 1))

返回 (“”)

子程序名	返回值类型	公开	备 注
_获取用户列表_被单击

i支持库列表	支持库注释
iext	扩展界面支持库一
	(未知支持库)

.版本 2<br /> .支持库 iext<br /> .支持库 <br /> <br /> .程序集 窗口程序集_启动窗口, , , 易如云窗口程序主程序集<br /> .程序集变量 全局_access_token, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕, , , 程序从这里进行初始化准备<br /> <br /> 列表.全部删除 ()<br /> 列表.插入列 (0, “昵称”, , 150, , )<br /> 列表.插入列 (1, “OpenID”, 300, 250, , )<br /> <br /> <br /> .子程序 发送HTTP请求, 文本型<br /> .参数 请求地址, 文本型<br /> .参数 请求方式, 文本型<br /> .参数 提交数据, 文本型, 可空<br /> .局部变量 http, 对象<br /> <br /> http.创建 (“WinHttp.WinHttpRequest.5.1”, )<br /> http.方法 (“Open”, 请求方式, 请求地址, 假)<br /> <br /> .如果真 (请求方式 ＝ “POST”)<br /> <br />     http.方法 (“SetRequestHeader”, “Content-Type”, “application/json; charset=utf-8”)<br /> <br />     http.方法 (“Send”, 提交数据)<br /> <br /> .如果真结束<br /> <br /> <br /> .如果真 (请求方式 ＝ “GET”)<br /> <br />     http.方法 (“Send”, )<br /> <br /> .如果真结束<br /> <br /> <br /> 返回 (http.读文本属性 (“ResponseText”, ))<br /> <br /> .子程序 _获取Token_被单击<br /> .局部变量 网址, 文本型<br /> .局部变量 返回结果, 文本型<br /> .局部变量 json_obj, 文本型<br /> <br /> 网址 ＝ “<a href="https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential&appid=" rel="nofollow" rel="nofollow" target="_blank">https://api.weixin.qq.com/cgi-bi ... edential&appid=</a>” ＋ AppID.内容 ＋ “&secret=” ＋ Appsecret.内容<br /> 返回结果 ＝ 发送HTTP请求 (网址, “GET”)<br /> <br /> <br /> .如果真 (寻找文本 (返回结果, “access_token”, , 假) ≠ -1)<br /> <br />     Token.标题 ＝ 取JSON值 (返回结果, “access_token”)<br /> <br />     信息框 (“获取成功！”, 0, , )<br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 取JSON值, 文本型<br /> .参数 原始文本, 文本型<br /> .参数 键名, 文本型<br /> .局部变量 开始标记, 文本型<br /> .局部变量 结束位置, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 起始索引, 整数型<br /> .局部变量 值起始位置, 整数型<br /> <br /> 开始标记 ＝ #引 ＋ 键名 ＋ #引 ＋ “:”<br /> 调试输出 (开始标记)<br /> 起始索引 ＝ 寻找文本 (原始文本, 开始标记, , 假)<br /> 调试输出 (起始索引)<br /> .如果真 (起始索引 ＝ -1)<br /> <br />     返回 (“”)<br /> .如果真结束<br /> <br /> 值起始位置 ＝ 起始索引 ＋ 取文本长度 (开始标记) ＋ 1<br /> 调试输出 (值起始位置)<br /> 结果 ＝ 取文本中间 (原始文本, 值起始位置, 10000)<br /> 调试输出 (结果)<br /> 结束位置 ＝ 寻找文本 (结果, #引, , 假)<br /> 调试输出 (结束位置)<br /> <br /> .如果真 (结束位置 ＞ 0)<br /> <br />     返回 (取文本左边 (结果, 结束位置 － 1))<br /> <br /> .如果真结束<br /> <br /> 返回 (“”)<br /> <br /> <br /> <br /> <br /> .子程序 _获取用户列表_被单击

qrzy

.版本 2
.支持库 iext
.支持库 spec

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

.子程序 取JSON值, 文本型
.参数 原始文本, 文本型
.参数 键名, 文本型
.局部变量 开始标记, 文本型
.局部变量 结束位置, 整数型
.局部变量 结果, 文本型
.局部变量 起始索引, 整数型
.局部变量 值起始位置, 整数型

开始标记 ＝ #引号 ＋ 键名 ＋ #引号 ＋ “:”
起始索引 ＝ 寻找文本 (原始文本, 开始标记, , 假)
.如果真 (起始索引 ＝ -1)
    返回 (“”)
.如果真结束
值起始位置 ＝ 起始索引 ＋ 取文本长度 (开始标记) ＋ 1
结果 ＝ 取文本中间 (原始文本, 值起始位置, 取文本长度 (原始文本))
结束位置 ＝ 寻找文本 (结果, #引号, , 假)
.如果真 (结束位置 ＞ 0)
    返回 (取文本左边 (结果, 结束位置 － 1))
.如果真结束
返回 (“”)

.子程序 _获取用户列表_被单击
.局部变量 网址, 文本型
.局部变量 返回结果, 文本型
.局部变量 http, 对象
.局部变量 下一个openid, 文本型
.局部变量 列表数据, 文本型
.局部变量 当前openid, 文本型
.局部变量 起始位置, 整数型
.局部变量 结束位置, 整数型
.局部变量 i, 整数型

列表.全部删除 ()
下一个openid ＝ “”

.循环判断首 ()
    网址 ＝ “https://api.weixin.qq.com/cgi-bin/user/get?access_token=” ＋ Token.内容
    .如果真 (下一个openid ≠ “”)
        网址 ＝ 网址 ＋ “&next_openid=” ＋ 下一个openid
    .如果真结束

    http.创建 (“WinHttp.WinHttpRequest.5.1”, )
    http.方法 (“Open”, “GET”, 网址, 假)
    http.方法 (“Send”, )
    返回结果 ＝ http.读文本属性 (“ResponseText”, )
    调试输出 (返回结果)
    .如果真 (寻找文本 (返回结果, “data”, , 假) ＝ -1)
        跳出循环 ()
    .如果真结束

    起始位置 ＝ 寻找文本 (返回结果, #引号 ＋ “openid” ＋ #引号 ＋ “:[”, , 假)
    .如果真 (起始位置 ＝ -1)
        跳出循环 ()
    .如果真结束
    起始位置 ＝ 起始位置 ＋ 10
    结束位置 ＝ 寻找文本 (返回结果, “]”, 起始位置, 假)
    列表数据 ＝ 取文本中间 (返回结果, 起始位置, 结束位置 － 起始位置)

    .循环判断首 ()
        .如果真 (列表数据 ＝ “”)
            跳出循环 ()
        .如果真结束
        起始位置 ＝ 寻找文本 (列表数据, #引号, , 假)
        .如果真 (起始位置 ＝ -1)
            跳出循环 ()
        .如果真结束
        列表数据 ＝ 取文本中间 (列表数据, 起始位置 ＋ 1, 取文本长度 (列表数据))
        结束位置 ＝ 寻找文本 (列表数据, #引号, , 假)
        .如果真 (结束位置 ＝ -1)
            跳出循环 ()
        .如果真结束
        当前openid ＝ 取文本左边 (列表数据, 结束位置 － 1)
        列表数据 ＝ 取文本中间 (列表数据, 结束位置 ＋ 1, 取文本长度 (列表数据))

        i ＝ 列表.插入表项 (-1, 当前openid, , , , )
        列表.置标题 (i, 1, 当前openid)
    .循环判断尾 (假)

    下一个openid ＝ 取JSON值 (返回结果, “next_openid”)
    .如果真 (下一个openid ＝ “”)
        跳出循环 ()
    .如果真结束

.循环判断尾 (假)

信息框 (“获取完成！共 ” ＋ 到文本 (列表.取表项数 ()) ＋ “ 个用户”, 0, , )

.子程序 _获取Token_被单击
.局部变量 网址, 文本型
.局部变量 返回结果, 文本型
.局部变量 提交数据, 文本型
.局部变量 http, 对象

网址 ＝ “https://api.weixin.qq.com/cgi-bin/stable_token”
提交数据 ＝ “{” ＋ #引号 ＋ “grant_type” ＋ #引号 ＋ “:” ＋ #引号 ＋ “client_credential” ＋ #引号 ＋ “,” ＋ #引号 ＋ “appid” ＋ #引号 ＋ “:” ＋ #引号 ＋ AppID.内容 ＋ #引号 ＋ “,” ＋ #引号 ＋ “secret” ＋ #引号 ＋ “:” ＋ #引号 ＋ Appsecret.内容 ＋ #引号 ＋ “}”

http.创建 (“WinHttp.WinHttpRequest.5.1”, )
http.方法 (“Open”, “POST”, 网址, 假)
http.方法 (“SetRequestHeader”, “Content-Type”, “application/json”)
http.方法 (“Send”, 提交数据)
返回结果 ＝ http.读文本属性 (“ResponseText”, )
调试输出 (返回结果)

.如果真 (寻找文本 (返回结果, “access_token”, , 假) ≠ -1)
    Token.内容 ＝ 取JSON值 (返回结果, “access_token”)
    信息框 (“获取成功！”, 0, , )
.如果真结束

liuyue5086

你这也不是超级列表框置入问题啊；你是压根都没置标题；反正你复制粘贴的代码里面就没超级列表框的置入标题命令