易语言聊天机器人 易语言调用接口来实现机器人聊天的功能
易语言源码教程 人气:0常量数据表
.版本 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, “[现行时间]”, 到文本 (取现行时间 ()), , , 真) 对话编辑框.加入文本 (#换行符 + #换行符 + 子文本替换 (修改, “[内容]”, 内容, , , 真)) .子程序 _内容编辑框_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型 .如果 (键代码 = #回车键) _发送按钮_被单击 () .否则 .如果结束
运行结果:
总结
以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对的支持。如果你想了解更多相关内容请查看下面相关链接
加载全部内容