清华大学chatglmAI大语言模型，API调用源码 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备注
_按钮_发送_被单击

线程_启动 (&子程序1, , )

子程序名	返回值类型	公开	备注
子程序1

变量名	类型	静态	数组	备注
文本内容	文本型
回答文本	文本型

如果真 (编辑框1.内容 ≠ “”)

文本内容＝编辑框1.内容

编辑框1.内容＝ “”

编辑框2.加入文本 (“我：” ＋文本内容＋ #换行符＋ #换行符 )

回答文本＝功能_网页访问 (文本内容)

调试输出 (回答文本)

编辑框2.加入文本 (“chatglm：” ＋回答文本＋ #换行符＋ #换行符 )

子程序名	返回值类型	公开	备注
功能_网页访问	文本型		本命令由【精易网页调试助手】生成，请配合精易模块使用。
参数名	类型	参考	可空	数组	备注
文本内容	文本型

变量名	类型	静态	数组	备注
局_网址	文本型
局_方式	整数型
ADD_协议头	类_POST数据类
局_提交协议头	文本型
局_结果	字节集
局_返回	文本型

' https://api.chat.t4wefan.pub/chatglm?msg=%E4%BD%A0%E5%A5%BD&usrid=0&source=0
文本内容＝编码_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.内容＝ “”

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
<br />
<br />
.子程序 _按钮_发送_被单击<br />
<br />
线程_启动 (&子程序1, , )<br />
<br />
.子程序 子程序1<br />
.局部变量 文本内容, 文本型<br />
.局部变量 回答文本, 文本型<br />
<br />
.如果真 (编辑框1.内容 ≠ “”)<br />
    文本内容 ＝ 编辑框1.内容<br />
    编辑框1.内容 ＝ “”<br />
    编辑框2.加入文本 (“我：” ＋ 文本内容 ＋ #换行符 ＋ #换行符)<br />
    回答文本 ＝ 功能_网页访问 (文本内容)<br />
    调试输出 (回答文本)<br />
    编辑框2.加入文本 (“chatglm：” ＋ 回答文本 ＋ #换行符 ＋ #换行符)<br />
<br />
.如果真结束<br />
<br />
<br />
.子程序 功能_网页访问, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。<br />
.参数 文本内容, 文本型<br />
.局部变量 局_网址, 文本型<br />
.局部变量 局_方式, 整数型<br />
.局部变量 ADD_协议头, 类_POST数据类<br />
.局部变量 局_提交协议头, 文本型<br />
.局部变量 局_结果, 字节集<br />
.局部变量 局_返回, 文本型<br />
<br />
' https://api.chat.t4wefan.pub/chatglm?msg=%E4%BD%A0%E5%A5%BD&usrid=0&source=0<br />
文本内容 ＝ 编码_URL编码 (文本内容, , 真)<br />
局_网址 ＝ “https://api.chat.t4wefan.pub/chatglm?msg=” ＋ 文本内容 ＋ “&usrid=0&source=0”<br />
局_方式 ＝ 0<br />
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”, )<br />
<br />
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()<br />
<br />
局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, , , , 局_提交协议头, , , , , , , , , , , , , )<br />
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))<br />
返回 (局_返回)<br />
<br />
.子程序 _编辑框1_按下某键, 逻辑型<br />
.参数 键代码, 整数型<br />
.参数 功能键状态, 整数型<br />
<br />
.如果真 (键代码 ＝ #回车键)<br />
    _按钮_发送_被单击 ()<br />
.如果真结束<br />
<br />
<br />
.子程序 _按钮_清空聊天记录_被单击<br />
<br />
编辑框2.内容 ＝ “”