cAI 组件概述

简介

cAI 是一个通用的 OpenAI 兼容 API 客户端，支持豆包、DeepSeek、OpenAI、通义千问等任何兼容 OpenAI API 格式的服务。采用链式调用设计，提供简洁优雅的 API。

让你的VB项目轻松嵌入各大AI平台能力

特性

特性	说明
链式调用	流畅的 API 设计，支持连续配置
多服务商	内置豆包/DeepSeek/OpenAI/通义千问预设
流式响应	支持 SSE 实时流式输出（回调或事件）
多轮对话	自动维护对话上下文
全局对象	通过 VBMAN.AI 直接使用
灵活配置	支持完全自定义 API 参数和请求头

快速开始

最简单的使用

Dim Response As String
Response = VBMAN.AI.ApiKey("sk-xxx").Chat("你好")

使用预设配置

' DeepSeek
Response = VBMAN.AI.DeepSeek("your-key").Chat("你好")

' 豆包
Response = VBMAN.AI.Doubao("your-key").Model("ep-xxx").Chat("你好")

完整配置

Response = VBMAN.AI.ApiKey("sk-xxx") _
    .Model("gpt-4") _
    .Temperature(0.7) _
    .MaxTokens(1000) _
    .System("你是一个专业的编程助手") _
    .Chat("如何实现单例模式？")

流式响应

' 回调方式
VBMAN.AI.ApiKey("sk-xxx") _
    .Stream(True) _
    .Chat("写一首诗", Me, "OnStreamChunk")

Private Sub OnStreamChunk(Chunk As String, IsComplete As Boolean)
    If IsComplete Then
        Debug.Print "完成"
    Else
        Debug.Print Chunk;
    End If
End Sub

' 事件方式（窗体/类中使用）
Dim WithEvents AI As cAI

Private Sub CommandSend_Click()
    Set AI = New cAI
    AI.ApiKey("sk-xxx").Stream(True).Chat("写一首诗")
End Sub

Private Sub AI_OnStreamChunk(Chunk As String, IsComplete As Boolean)
    TextResponse.Text = TextResponse.Text & Chunk
End Sub

多轮对话

Dim AI As New cAI
AI.ApiKey("sk-xxx")

' 第一轮
AI.User("我喜欢编程").Chat()

' 第二轮（自动保留上下文）
AI.User("推荐学习资源").Chat()

' 清空历史重新开始
AI.ClearMessages().User("新话题").Chat()

引用组件

• cHttpClient.cls
• cJson.cls
• cSSEClient.cls
• Microsoft Scripting Runtime

文件结构

文件	说明
cAI.cls	AI 客户端核心类
mAIDemo.bas	完整使用示例
mAITest.bas	测试工具

---

最后更新: 2025-05-25