wps调用deepseek代码

### WPS Office 中调用 DeepSeek API 示例 为了在 WPS Office 中成功调用 DeepSeek 提供的 AI 服务，开发者可以利用 VBA 或其他脚本语言来实现这一功能。下面提供一段基于 VBA 的示例代码用于展示如何发起 HTTP 请求到 DeepSeek 并处理返回的数据。 #### 获取 API Key 和初始化设置 确保已经完成注册并获得了有效的 `API Key`[^1]。此密钥将在后续请求头中作为认证凭证使用。 ```vba Sub InitializeDeepSeek() ' 定义全局变量存储 API key Global apiKey As String ' 设置你的 API 密钥 (注意保护好这个信息) apiKey = "your_api_key_here" End Sub ``` #### 发起 POST 请求至 DeepSeek API 这里展示了怎样构建一个基本的 POST 请求发送给 DeepSeek 的特定端点，并解析 JSON 响应数据。 ```vba Function CallDeepSeekApi(prompt As String) As Object Dim http As Object, json As Dictionary, responseText As String Set http = CreateObject("MSXML2.XMLHTTP") With http .Open "POST", "https://api.deepseek.com/v1/generate_text", False .setRequestHeader "Content-Type", "application/json" .setRequestHeader "Authorization", "Bearer " & apiKey ' 构建请求体 Dim requestBody As String requestBody = "{""prompt"": """ & prompt & """}" .send requestBody If .Status = 200 Then responseText = .responseText ' 解析JSON响应 Set jsonParser = New JsonConverter.JsonConverter Set json = jsonParser.ParseJson(responseText) Set CallDeepSeekApi = json Else MsgBox ("Error calling API: " & .statusText) End If End With End Function ``` 请注意上述 URL `"https://api.deepseek.com/v1/generate_text"` 需要替换为实际可用的服务地址；同样地，“generate_text”也可能是不同的路径取决于具体想要访问的功能接口。 #### 使用生成的结果 一旦接收到成功的回复，则可以从返回的对象中提取所需的信息： ```vba Sub UseGeneratedResult() Dim result As Object Set result = CallDeepSeekApi("write a short story about...") Debug.Print result("text") ' 输出生成的故事文本 End Sub ``` 以上就是完整的流程介绍以及相应的 VBA 实现方式。对于更复杂的场景或者不同类型的 API 方法（GET/PUT/DELETE），可以根据官方提供的最新版 API 文档做适当调整。