deepseek接口调用，可自己设置提示词

兰屿

  

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

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

子程序名	返回值类型	公开	备 注
_编辑框_问题_按下某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

如果 (键代码 ＝ #回车键 或 键代码 ＝ 13)
调试输出 (“回测”)
启动线程 (&_按钮_发送_被单击, , )
返回 (真)

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

启动线程 (&_按钮_发送_被单击, , )

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

变量名	类 型	静态	数组	备 注
API_KEY	文本型
提交字节集	字节集
请求头	文本型
响应字节集	字节集
返回数据	文本型
json解析	类_json
错误信息	文本型
思维链内容	文本型
回复内容	文本型
总令牌数	整数型
思维链令牌数	整数型
json模板	文本型
用户内容UTF8	字节集
系统内容UTF8	字节集
占位符	字节集
替换位置	整数型
系统提示词	文本型
使用情况	文本型

' ---------- 1. 配置 API 密钥 ----------
API_KEY ＝ 编辑框_key.内容  ' 请替换为您自己的密钥
' ---------- 2. 构建 JSON 请求体（使用 UTF-8 字节集）----------
' 系统提示词：如果编辑框_提示词语为空，则使用默认提示
系统提示词 ＝ 编辑框_提示词语.内容
如果 (系统提示词 ＝ “”)
系统提示词 ＝ “You are a helpful assistant.”
' 用户自定义内容，保持不变

' 构建 JSON 模板，使用占位符 {system_content} 和 {user_content}
json模板 ＝ “{” ＋ #换行符
' json模板 ＝ json模板 ＋ “  ” ＋ #引号 ＋ “model” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “deepseek-v4-flash” ＋ #引号 ＋ “,” ＋ #换行符，，，这里改模型
json模板 ＝ json模板 ＋ “  ” ＋ #引号 ＋ “model” ＋ #引号 ＋ “: ” ＋ #引号 ＋ 编辑框_模型.内容 ＋ #引号 ＋ “,” ＋ #换行符
json模板 ＝ json模板 ＋ “  ” ＋ #引号 ＋ “messages” ＋ #引号 ＋ “: [” ＋ #换行符
json模板 ＝ json模板 ＋ “    {” ＋ #引号 ＋ “role” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “system” ＋ #引号 ＋ “, ” ＋ #引号 ＋ “content” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “{system_content}” ＋ #引号 ＋ “},” ＋ #换行符
json模板 ＝ json模板 ＋ “    {” ＋ #引号 ＋ “role” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “user” ＋ #引号 ＋ “, ” ＋ #引号 ＋ “content” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “{user_content}” ＋ #引号 ＋ “}” ＋ #换行符
json模板 ＝ json模板 ＋ “  ],” ＋ #换行符
json模板 ＝ json模板 ＋ “  ” ＋ #引号 ＋ “thinking” ＋ #引号 ＋ “: {” ＋ #引号 ＋ “type” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “enabled” ＋ #引号 ＋ “},” ＋ #换行符
json模板 ＝ json模板 ＋ “  ” ＋ #引号 ＋ “reasoning_effort” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “high” ＋ #引号 ＋ “,” ＋ #换行符
json模板 ＝ json模板 ＋ “  ” ＋ #引号 ＋ “stream” ＋ #引号 ＋ “: false” ＋ #换行符
json模板 ＝ json模板 ＋ “}”
' 将模板转为 UTF-8 字节集
提交字节集 ＝ 编码_Ansi到Utf8 (json模板)
' 将系统提示词（GBK）转为 UTF-8 字节集
系统内容UTF8 ＝ 编码_Ansi到Utf8 (系统提示词)
' 将用户输入的中文转为 UTF-8 字节集
用户内容UTF8 ＝ 编码_Ansi到Utf8 (编辑框_问题.内容)
' 替换占位符 {system_content}
占位符 ＝ 编码_Ansi到Utf8 (“{system_content}”)
替换位置 ＝ 寻找字节集 (提交字节集, 占位符, )
如果 (替换位置 ≠ -1)
提交字节集 ＝ 字节集替换 (提交字节集, 替换位置, 取字节集长度 (占位符), 系统内容UTF8)
调试输出 (“错误：未找到 system 占位符”)
返回 ()

' 替换占位符 {user_content}
占位符 ＝ 编码_Ansi到Utf8 (“{user_content}”)
替换位置 ＝ 寻找字节集 (提交字节集, 占位符, )
如果 (替换位置 ≠ -1)
提交字节集 ＝ 字节集替换 (提交字节集, 替换位置, 取字节集长度 (占位符), 用户内容UTF8)
调试输出 (“错误：未找到 user 占位符”)
返回 ()

' ---------- 3. 设置 HTTP 请求头 ----------
请求头 ＝ “Content-Type: application/json” ＋ #换行符 ＋ “Authorization: Bearer ” ＋ API_KEY
' ---------- 4. 发送 POST 请求（字节集放到第10个参数）----------
响应字节集 ＝ 网页_访问_对象 (“https://api.deepseek.com/chat/completions”, 1, , , , 请求头, , , , 提交字节集, , , , , , )
返回数据 ＝ 编码_Utf8到Ansi (响应字节集)
' ---------- 5. 解析 JSON 响应 ----------
json解析.解析 (返回数据)
' ---------- 6. 处理响应结果 ----------
错误信息 ＝ json解析.取通用属性 (“error.message”, )
如果 (错误信息 ≠ “”)
编辑框_回复.内容 ＝ “API 错误：” ＋ 错误信息
调试输出 (“请求失败，原始返回：”, 返回数据)
返回 ()
思维链内容 ＝ json解析.取通用属性 (“choices[0].message.reasoning_content”, )
如果 (思维链内容 ≠ “”)
编辑框_思维链.加入文本 (“思考过程：” ＋ #换行符 ＋ 思维链内容 ＋ #换行符 ＋ #换行符 ＋ #换行符 )

编辑框_思维链.内容 ＝ “（本次回答未生成思维链内容）”

回复内容 ＝ json解析.取通用属性 (“choices[0].message.content”, )
编辑框_回复.加入文本 (“AI回复内容：” ＋ #换行符 ＋ 回复内容 ＋ #换行符 ＋ #换行符 ＋ #换行符 )
总令牌数 ＝ 到整数 (json解析.取通用属性 (“usage.total_tokens”, ))
思维链令牌数 ＝ 到整数 (json解析.取通用属性 (“usage.completion_tokens_details.reasoning_tokens”, ))
使用情况 ＝ “总 Token 数：” ＋ 到文本 (总令牌数) ＋ “思维链 Token 数：” ＋ 到文本 (思维链令牌数) ＋ #换行符
编辑框_使用情况.加入文本 (使用情况)

i支持库列表	支持库注释
spec	特殊功能支持库
EThread	多线程支持库

.版本 2<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _编辑框_问题_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果 (键代码 ＝ #回车键 或 键代码 ＝ 13)<br />     调试输出 (“回测”)<br />     启动线程 (&_按钮_发送_被单击, , )<br /> .否则<br />     返回 (真)<br /> .如果结束<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&_按钮_发送_被单击, , )<br /> <br /> <br /> .子程序 _按钮_发送_被单击<br /> .局部变量 API_KEY, 文本型<br /> .局部变量 提交字节集, 字节集<br /> .局部变量 请求头, 文本型<br /> .局部变量 响应字节集, 字节集<br /> .局部变量 返回数据, 文本型<br /> .局部变量 json解析, 类_json<br /> .局部变量 错误信息, 文本型<br /> .局部变量 思维链内容, 文本型<br /> .局部变量 回复内容, 文本型<br /> .局部变量 总令牌数, 整数型<br /> .局部变量 思维链令牌数, 整数型<br /> .局部变量 json模板, 文本型<br /> .局部变量 用户内容UTF8, 字节集<br /> .局部变量 系统内容UTF8, 字节集<br /> .局部变量 占位符, 字节集<br /> .局部变量 替换位置, 整数型<br /> .局部变量 系统提示词, 文本型<br /> .局部变量 使用情况, 文本型<br /> <br /> ' ---------- 1. 配置 API 密钥 ----------<br /> API_KEY ＝ 编辑框_key.内容  ' 请替换为您自己的密钥<br /> <br /> ' ---------- 2. 构建 JSON 请求体（使用 UTF-8 字节集）----------<br /> ' 系统提示词：如果编辑框_提示词语为空，则使用默认提示<br /> 系统提示词 ＝ 编辑框_提示词语.内容<br /> .如果 (系统提示词 ＝ “”)<br />     系统提示词 ＝ “You are a helpful assistant.”<br /> .否则<br />     ' 用户自定义内容，保持不变<br /> .如果结束<br /> <br /> ' 构建 JSON 模板，使用占位符 {system_content} 和 {user_content}<br /> <br /> json模板 ＝ “{” ＋ #换行符<br /> ' json模板 ＝ json模板 ＋ “  ” ＋ #引号 ＋ “model” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “deepseek-v4-flash” ＋ #引号 ＋ “,” ＋ #换行符，，，这里改模型<br /> json模板 ＝ json模板 ＋ “  ” ＋ #引号 ＋ “model” ＋ #引号 ＋ “: ” ＋ #引号 ＋ 编辑框_模型.内容 ＋ #引号 ＋ “,” ＋ #换行符<br /> json模板 ＝ json模板 ＋ “  ” ＋ #引号 ＋ “messages” ＋ #引号 ＋ “: [” ＋ #换行符<br /> json模板 ＝ json模板 ＋ “    {” ＋ #引号 ＋ “role” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “system” ＋ #引号 ＋ “, ” ＋ #引号 ＋ “content” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “{system_content}” ＋ #引号 ＋ “},” ＋ #换行符<br /> json模板 ＝ json模板 ＋ “    {” ＋ #引号 ＋ “role” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “user” ＋ #引号 ＋ “, ” ＋ #引号 ＋ “content” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “{user_content}” ＋ #引号 ＋ “}” ＋ #换行符<br /> json模板 ＝ json模板 ＋ “  ],” ＋ #换行符<br /> json模板 ＝ json模板 ＋ “  ” ＋ #引号 ＋ “thinking” ＋ #引号 ＋ “: {” ＋ #引号 ＋ “type” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “enabled” ＋ #引号 ＋ “},” ＋ #换行符<br /> json模板 ＝ json模板 ＋ “  ” ＋ #引号 ＋ “reasoning_effort” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “high” ＋ #引号 ＋ “,” ＋ #换行符<br /> json模板 ＝ json模板 ＋ “  ” ＋ #引号 ＋ “stream” ＋ #引号 ＋ “: false” ＋ #换行符<br /> json模板 ＝ json模板 ＋ “}”<br /> <br /> ' 将模板转为 UTF-8 字节集<br /> 提交字节集 ＝ 编码_Ansi到Utf8 (json模板)<br /> <br /> ' 将系统提示词（GBK）转为 UTF-8 字节集<br /> 系统内容UTF8 ＝ 编码_Ansi到Utf8 (系统提示词)<br /> ' 将用户输入的中文转为 UTF-8 字节集<br /> 用户内容UTF8 ＝ 编码_Ansi到Utf8 (编辑框_问题.内容)<br /> <br /> ' 替换占位符 {system_content}<br /> 占位符 ＝ 编码_Ansi到Utf8 (“{system_content}”)<br /> 替换位置 ＝ 寻找字节集 (提交字节集, 占位符, )<br /> .如果 (替换位置 ≠ -1)<br />     提交字节集 ＝ 字节集替换 (提交字节集, 替换位置, 取字节集长度 (占位符), 系统内容UTF8)<br /> .否则<br />     调试输出 (“错误：未找到 system 占位符”)<br />     返回 ()<br /> .如果结束<br /> <br /> ' 替换占位符 {user_content}<br /> 占位符 ＝ 编码_Ansi到Utf8 (“{user_content}”)<br /> 替换位置 ＝ 寻找字节集 (提交字节集, 占位符, )<br /> .如果 (替换位置 ≠ -1)<br />     提交字节集 ＝ 字节集替换 (提交字节集, 替换位置, 取字节集长度 (占位符), 用户内容UTF8)<br /> .否则<br />     调试输出 (“错误：未找到 user 占位符”)<br />     返回 ()<br /> .如果结束<br /> <br /> ' ---------- 3. 设置 HTTP 请求头 ----------<br /> 请求头 ＝ “Content-Type: application/json” ＋ #换行符 ＋ “Authorization: Bearer ” ＋ API_KEY<br /> <br /> ' ---------- 4. 发送 POST 请求（字节集放到第10个参数）----------<br /> 响应字节集 ＝ 网页_访问_对象 (“https://api.deepseek.com/chat/completions”, 1, , , , 请求头, , , , 提交字节集, , , , , , )<br /> 返回数据 ＝ 编码_Utf8到Ansi (响应字节集)<br /> <br /> ' ---------- 5. 解析 JSON 响应 ----------<br /> json解析.解析 (返回数据)<br /> <br /> ' ---------- 6. 处理响应结果 ----------<br /> 错误信息 ＝ json解析.取通用属性 (“error.message”, )<br /> .如果 (错误信息 ≠ “”)<br />     编辑框_回复.内容 ＝ “API 错误：” ＋ 错误信息<br />     调试输出 (“请求失败，原始返回：”, 返回数据)<br />     返回 ()<br /> .否则<br />     思维链内容 ＝ json解析.取通用属性 (“choices[0].message.reasoning_content”, )<br />     .如果 (思维链内容 ≠ “”)<br />         编辑框_思维链.加入文本 (“思考过程：” ＋ #换行符 ＋ 思维链内容 ＋ #换行符 ＋ #换行符 ＋ #换行符)<br /> <br />     .否则<br />         编辑框_思维链.内容 ＝ “（本次回答未生成思维链内容）”<br />     .如果结束<br /> <br />     回复内容 ＝ json解析.取通用属性 (“choices[0].message.content”, )<br />     编辑框_回复.加入文本 (“AI回复内容：” ＋ #换行符 ＋ 回复内容 ＋ #换行符 ＋ #换行符 ＋ #换行符)<br /> <br /> <br />     总令牌数 ＝ 到整数 (json解析.取通用属性 (“usage.total_tokens”, ))<br />     思维链令牌数 ＝ 到整数 (json解析.取通用属性 (“usage.completion_tokens_details.reasoning_tokens”, ))<br /> <br />     使用情况 ＝ “总 Token 数：” ＋ 到文本 (总令牌数) ＋ “思维链 Token 数：” ＋ 到文本 (思维链令牌数) ＋ #换行符<br /> <br />     编辑框_使用情况.加入文本 (使用情况)<br /> .如果结束

调用模块，精易模块[v11.1.5]

wjswzj0

感谢你给易语言造轮子！

bianyuan456

已经顶贴，感谢您对论坛的支持！

year1970

感谢分享

please

感谢分享，支持开源！！！

hezeyu

感谢分享！！！！！！！！！

wh1234567

感谢分享

jysoft2022

谢谢分享

myface

支持一下

我爱逛精易

支持流式返回吗