亚洲国产精品13p_91精品国产乱码久久久久久张柏芝_久久v国产_奇米777在线视频_a国产_国产精品多人p群无码_色多多黄色_日本精品一区在线观看_99视频在线精品_最爽无遮挡行房视频_亚洲欧美日韩精品久久亚洲区色播_欧美精品天堂_人成午夜免费视频无码_日韩三级不卡_大胆毛片_成年人av影院_欧美人与牲禽动交精品一区_亚洲精品久久7777777国产_免费观看黄色大片_52永久免费看mv网站入口

Sub CallDeepSeekAPI()
    Dim apiKey As String
    Dim apiUrl As String
    Dim requestBody As String
    Dim httpRequest As Object
    Dim response As String
    
    ' 替換為你的DeepSeek API信息
    apiKey = "your_api_key_here"
    apiUrl = "https://api.deepseek.com/v1/chat/completions" ' 示例URL，需確認實際接口地址
    
    ' 構造請求體（JSON格式，根據實際API文檔調整）
    requestBody = "{""model"":""deepseek-chat"",""messages"":[{""role"":""user"",""content"":""你好，請寫一首詩""}]}"
    
    ' 創建HTTP請求對象
    Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
    ' 或使用 XMLHTTP（根據引用庫選擇）：
    ' Set httpRequest = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    
    ' 發送POST請求
    With httpRequest
        .Open "POST", apiUrl, False
        .SetRequestHeader "Content-Type", "application/json"
        .SetRequestHeader "Authorization", "Bearer " & apiKey
        .Send requestBody
        
        ' 檢查響應狀態
        If .Status = 200 Then
            response = .ResponseText
            ' 解析JSON響應（需手動處理或使用JSON解析庫）
            ' 示例：提取第一個回復內容
            Dim jsonResponse As Object
            Set jsonResponse = ParseJson(response) ' 需要引用JSON解析庫，如VBA-JSON
            Dim outputText As String
            outputText = jsonResponse("choices")(1)("message")("content")
            
            ' 將結果寫入當前文檔（示例為寫入Excel單元格）
            ActiveSheet.Range("A1").Value = outputText
        Else
            MsgBox "請求失敗，狀態碼：" & .Status & vbCrLf & "響應：" & .ResponseText
        End If
    End With
    
    Set httpRequest = Nothing
End Sub