消息接收

# 消息接收 ## 群消息(接口ip/takenewgroupmsgid/?pwd=) ### 思路: 开一个线程 无限循环 判断 新获取的数据 = 上次获取的数据 调用一个函数 传入获取的json数据 否则 pass ## 私聊消息((接口ip/takenewfriendmsgid/?pwd=)) ### 思路: 开一个线程 无限循环 判断 新获取的数据 = 上次获取的数据 调用一个函数 传入获取的json数据 否则 pass 你可以将两个线程合体在一个线程两个循环合在一起 ## 代码 ### 易语言 .版本 2 .子程序 消息接收 .局部变量 JSON, 文本型 JSON = 到文本 (网页_访问S (ip + “/takenewgroupmsgid/” + “?pwd=” + 读配置项 (取运行目录 () + “\设置.ini”, “设置”, “key”, ), , , , , , , , , , , , , , , , , , , , )) .判断循环首 (真) .如果真 (取反 (json项 (JSON, “消息接收时间”) = json项 (到文本 (网页_访问S (ip + “/takenewgroupmsgid/” + “?pwd=” + 读配置项 (取运行目录 () + “\设置.ini”, “设置”, “key”, ), , , , , , , , , , , , , , , , , , , , )), “消息接收时间”))) JSON = 到文本 (网页_访问S (ip + “/takenewgroupmsgid/” + “?pwd=” + 读配置项 (取运行目录 () + “\设置.ini”, “设置”, “key”, ), , , , , , , , , , , , , , , , , , , , )) 接到群消息 (json项 (JSON, “框架QQ”), json项 (JSON, “气泡id”), json项 (JSON, “req”), json项 (JSON, “req”), json项 (JSON, “群号”), json项 (JSON, “发送人QQ”), json项 (JSON, “消息内容”)) .如果真结束 .判断循环尾 () .子程序 接到群消息 .参数 框架QQ, 文本型 .参数 气泡id, 文本型 .参数 req, 文本型 .参数 seq, 文本型 .参数 群号, 文本型 .参数 发送人QQ, 文本型 .参数 msg, 文本型 .局部变量 a, 文本型, , "0" .局部变量 j, 整数型 a = 分割文本 (#常, #换行符, ) .计次循环首 (取数组成员数 (a), j) .如果真 (寻找文本 (msg, a [j], , 假)) 网页_访问S (ip + , , , , , , , , , , , , , , , , , , , , ) .如果真结束 .计次循环尾 ()