|
|
.版本 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数据类。所以自己转换不了,麻烦各位大神出手了
|
|
|