易语言调用接口来实现机器人聊天的功能

今天小编就为大家分享一篇关于易语言调用接口来实现机器人聊天的功能，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧

常量数据表

				?

									.版本 2

									.常量 常量1, "<文本长度: 41>", , AI [现行时间]： Hi俺寂寞空虚冷 陪陪俺吧

									.常量 常量2, "<文本长度: 25>", ,  我 [现行时间]：  [内容]

									.常量 常量3, "<文本长度: 24>", , AI [现行时间]：  [内容]

									.常量 常量4, "<文本长度: 8>", , "text":"

聊天机器人源码

此功能需要加载精易模块

				?

									.版本 2

									.支持库 EThread

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

									.程序集变量 发送, 文本型

									.子程序 _发送按钮_被单击

									.局部变量 修改, 文本型

									修改 ＝ 子文本替换 (#常量2, “[现行时间]”, 到文本 (取现行时间 ()), , , 真)

									对话编辑框.加入文本 (#换行符 ＋ 子文本替换 (修改, “[内容]”, 内容编辑框.内容, , , 真))

									发送 ＝ 内容编辑框.内容

									发送 ＝ 编码_URL编码 (发送, , 真)

									内容编辑框.内容 ＝ “”

									启动线程 (&对话, , )

									.子程序 __启动窗口_创建完毕

									对话编辑框.加入文本 (子文本替换 (#常量1, “[现行时间]”, 到文本 (取现行时间 ()), , , 真))

									.子程序 对话

									.局部变量 fh, 文本型

									fh ＝ 到文本 (网页_访问 (“http://www.tuling123.com/openapi/api?key=a32a544d1cfd3cc1f964f3de6caca9f0&info=” ＋ 发送))

									fh ＝ 编码_URL解码 (fh, 真)

									加入机器人 (文本_取出中间文本 (fh, #常量4, #引号 ＋ “}”))

									.子程序 加入机器人

									.参数 内容, 文本型

									.局部变量 修改, 文本型

									修改 ＝ 子文本替换 (#常量3, “[现行时间]”, 到文本 (取现行时间 ()), , , 真)

									对话编辑框.加入文本 (#换行符 ＋ #换行符 ＋ 子文本替换 (修改, “[内容]”, 内容, , , 真))

									.子程序 _内容编辑框_按下某键, 逻辑型

									.参数 键代码, 整数型

									.参数 功能键状态, 整数型

									.如果 (键代码 ＝ #回车键)

									  _发送按钮_被单击 ()

									.否则

									.如果结束