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