窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 线程_启动 (&子程序1, , )变量名 | 类 型 | 静态 | 数组 | 备 注 | 文本内容 | 文本型 | | | 回答文本 | 文本型 | | | 如果真 (编辑框1.内容 ≠ “”)文本内容 = 编辑框1.内容 编辑框1.内容 = “”编辑框2. 加入文本 (“我:” + 文本内容 + #换行符 + #换行符 )回答文本 = 功能_网页访问 (文本内容 )调试输出 (回答文本 )编辑框2. 加入文本 (“chatglm:” + 回答文本 + #换行符 + #换行符 )变量名 | 类 型 | 静态 | 数组 | 备 注 | 局_网址 | 文本型 | | | 局_方式 | 整数型 | | | ADD_协议头 | 类_POST数据类 | | | 局_提交协议头 | 文本型 | | | 局_结果 | 字节集 | | | 局_返回 | 文本型 | | |
文本内容 = 编码_URL编码 (文本内容, , 真)局_网址 = “https://api.chat.t4wefan.pub/chatglm?msg=” + 文本内容 + “&usrid=0&source=0”局_方式 = 0 ADD_协议头. 添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”, )局_提交协议头 = ADD_协议头. 获取协议头数据 ()局_结果 = 网页_访问_对象 (局_网址, 局_方式, , , , 局_提交协议头, , , , , , , , , , , , , )局_返回 = 到文本 (编码_编码转换对象 (局_结果, , , )) 返回 (局_返回 )|
_编辑框1_按下某键 | 逻辑型 | | |
键代码 | 整数型 | | | | 功能键状态 | 整数型 | | | | 如果真 (键代码 = #回车键 )_按钮_发送_被单击 ()编辑框2.内容 = “”
chatglm_api测试.e
(870.46 KB, 下载次数: 259)
|