易语言代码转换成火山代码

gxfc900

.版本 2

.子程序 豆包问答, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。
.参数 APIKey, 文本型
.参数 模型ID, 文本型
.参数 问题, 文本型
.参数 返回长度, 文本型
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 局_提交数据, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
.局部变量 JSON, 类_json


局_网址 ＝ “https://ark.cn-beijing.volces.com/api/v3/chat/completions”
局_方式 ＝ 1

局_提交数据 ＝ “{” ＋ #换行符 ＋ “    ” ＋ #引号 ＋ “model” ＋ #引号 ＋ “: ” ＋ #引号 ＋ 模型ID ＋ #引号 ＋ “,” ＋ #换行符 ＋ “    ” ＋ #引号 ＋ “messages” ＋ #引号 ＋ “: [” ＋ #换行符 ＋ “        {” ＋ #换行符 ＋ “            ” ＋ #引号 ＋ “role” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “system” ＋ #引号 ＋ “,” ＋ #换行符 ＋ “            ” ＋ #引号 ＋ “content” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “你是一位梦幻西游手游的职业玩家” ＋ #引号 ＋ “” ＋ #换行符 ＋ “        },” ＋ #换行符 ＋ “        {” ＋ #换行符 ＋ “            ” ＋ #引号 ＋ “role” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “user” ＋ #引号 ＋ “,” ＋ #换行符 ＋ “            ” ＋ #引号 ＋ “content” ＋ #引号 ＋ “: ” ＋ #引号 ＋ 问题 ＋ #引号 ＋ “” ＋ #换行符 ＋ “        }” ＋ #换行符 ＋ “    ],” ＋ #换行符 ＋ “    ” ＋ #引号 ＋ “max_tokens” ＋ #引号 ＋ “: ” ＋ 返回长度 ＋ #换行符 ＋ “}”

ADD_协议头.添加 (“Authorization”, “Bearer ” ＋ APIKey, )
ADD_协议头.添加 (“Host”, “ark.cn-beijing.volces.com”, )
ADD_协议头.添加 (“Content-Type”, “application/json”, )
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.132 Safari/537.36”, )
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()
局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, , , , , , , , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))
JSON.解析 (局_返回, , )
局_返回 ＝ JSON.取通用属性 (“choices[0].message.content”, )
局_返回 ＝ 文本_替换 (局_返回, , , , “。”, “。” ＋ #换行符, “！”, “！” ＋ #换行符, “：”, “：” ＋ #换行符, , , , )
返回 (局_返回)


上面是易语言代码，由于火山不懂怎么用POST数据类。所以自己转换不了，麻烦各位大神出手了

信仰_

要添加curl网络传输类库。例程里都有

zuoyang

火山也有相应的工具