如何用非易语言制作QQ机器人

下载AU WEB APIhttps://bbs.xiaolz.cn/thread-3154-1-1.html
下载小栗子框架xiaolz.cn
首先打开小栗子框架,导入AU WEB API插件(*.dll)
修改端口为非80端口,防止无法使用API
设置好key,点击保存
可以先在浏览器打开127.0.0.1:端口查看结果如果正常继续
只能私聊代码

.版本 2
.支持库 e2ee
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
start ()
返回 (0)  ' 可以根据您的需要返回任意数值
.子程序 输出.参数 文本, 文本型
标准输出 (, 文本 + #换行符)
.子程序 code, 整数型.局部变量 ja, 
_Json.局部变量 JSON, 文本型
JSON = 到文本 (网页_访问S (ip + “/?pwd=” + 读配置项 (取运行目录 () + “\设置.ini”, “设置”, “key”, ), , , , , , , , , , , , , , , , , , , , ))
ja.解析 (JSON, )
.如果 (ja.取文本 (“code”) = “-1)    
输出 (“key错误”)    
返回 (-1).否则    .如果 (ja.取文本 (“code”) = “”)        输出 (“ip/端口错误”)        返回 (-1)    .否则        返回 (到整数 (ja.取文本 (“code”)))    .如果结束.如果结束输出 (到文本 (ja.取文本 (“code”) = “-1))返回 (到整数 (ja.取文本 (“code”))).子程序 json项, 文本型.参数 json, 文本型.参数 项, 文本型.局部变量 ja, _Jsonja.解析 (json, )返回 (ja.取文本 ()).子程序 start.局部变量 局_qq号码_数组, 文本型, , "0".局部变量 i, 整数型.局部变量 JSON, 文本型.局部变量 jsonab, 类_json.局部变量 ja, _Json输出 (“数据初始化中”).如果 (读配置项 (取运行目录 () + “\设置.ini”, “设置”, “ip”, ) = “”)    载入 (窗口1, ,).否则.如果结束.如果 (读配置项 (取运行目录 () + “\设置.ini”, “设置”, “端口”, ) = “”)    载入 (窗口1, ,).否则.如果结束ip = “http://” + 读配置项 (取运行目录 () + “\设置.ini”, “设置”, “ip”, ) + “:” + 读配置项 (取运行目录 () + “\设置.ini”, “设置”, “端口”, )输出 (“ip:” + ip).如果 (code ()-1)    输出 (“数据初始化失败”)    信息框 (“数据初始化失败”, 0, , )    载入 (窗口1, ,)    运行 (取运行目录 () + “\” + 取执行文件名 (),, )    结束 ().否则.如果结束JSON = 到文本 (网页_访问S (ip + “/takeframeQQ/” + “?pwd=” + 读配置项 (取运行目录 () + “\设置.ini”, “设置”, “key”, ), , , , , , , , , , , , , , , , , , , , ))输出 (json项 (JSON, “frameQQ”)).如果 (jsonab.解析 (json项 (JSON, “frameQQ”)))    jsonab.取所有属性名 (QQlist, “QQlist”).否则.如果结束输出 (“框架QQ加载完成,共” + 到文本 (取数组成员数 (QQlist)) + “个”)输出 (“数据初始化OK”)' 接到好友消息 (2590615029,0,00,66,3414034955,....)消息接收 ().子程序 消息接收.局部变量 JSON, 文本型JSON = 到文本 (网页_访问S (ip + “/takenewfriendmsgid/” + “?pwd=” + 读配置项 (取运行目录 () + “\设置.ini”, “设置”, “key”, ), , , , , , , , , , , , , , , , , , , , )).判断循环首 ()    .如果真 (取反 (json项 (JSON, “req”) = json项 (到文本 (网页_访问S (ip + “/takenewfriendmsgid/” + “?pwd=” + 读配置项 (取运行目录 () + “\设置.ini”, “设置”, “key”, ), , , , , , , , , , , , , , , , , , , , )), “req”)))        JSON = 到文本 (网页_访问S (ip + “/takenewfriendmsgid/” + “?pwd=” + 读配置项 (取运行目录 () + “\设置.ini”, “设置”, “key”, ), , , , , , , , , , , , , , , , , , , , ))        接到好友消息 (json项 (JSON, “框架QQ”), json项 (JSON, “气泡id”), json项 (JSON, “req”), json项 (JSON, “req”), json项 (JSON, “发送人QQ”), json项 (JSON, “消息内容”))        输出 (JSON)    .如果真结束    延时 (90).判断循环尾 ().子程序 接到好友消息.参数 框架QQ, 文本型.参数 气泡id, 文本型.参数 req, 文本型.参数 seq, 文本型.参数 发送人QQ, 文本型.参数 msg, 文本型.局部变量 返回内容, 文本型.局部变量 j, _Json返回内容 = UTF8到文本 (到字节集 (网页_访问S (“http://api.bystart.cn/api/chat?message=” + URL编码 (到文本 (文本到UTF8 (msg)), ), , , , , , , , , , , , , , , , , , , , )))输出 (返回内容)输出 (到文本 (网页_访问S (ip + “/sendfriendmsg/?pwd=” + 读配置项 (取运行目录 () + “\设置.ini”, “设置”, “key”, ) + “&框架QQ=” + 框架QQ + “&好友=” + 发送人QQ + “&内容=” + 编码_URL编码 (返回内容, , ), , , , , , , , , , , , , , , , , , , , )))

这是易语言代码
思路
初始化获取key和端口
重复执行查询好友消息
如果查询到新消息
调用ai私聊API
发送

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值