Ohh.Moonshot.AI 1.0.7

公众号:办公魔盒

博客:https://bgmh.work

VB.NET 示例代码

 ''' <summary>
    ''' 按钮
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' moonshot平台KEY
        Dim apiKey As String = "sk-xxxxxxxxxxxx"
        ' 配置模型
        Dim Model As New MoonshotChatModel8K(
            New MoonshotProvider(
                New MoonshotConfiguration() With
                    {
                    .ApiKey = apiKey,
                    .Endpoint = "api.moonshot.cn",
                    .ChatSettings = New OpenAiChatSettings() With
                        {
                            .UseStreaming = True,
                            .MaxTokens = 2000,
                            .FrequencyPenalty = 2
                        }
                    }
                )
            )
        ' 配置聊天请求体
        Dim ChatRequest As New ChatRequest With
        {
            .Messages = New List(Of Message) From {
                New Message() With {.Role = MessageRole.System, .Content = "你是一个代码助手,打工人助手,Excel公式助手"},
                New Message() With {.Role = MessageRole.Human, .Content = TextBox1.Text}
            }
        }
        ' 绑定模型事件
        AddHandler Model.PromptSent, New EventHandler(Of String)(AddressOf Model_PromptSent)
        AddHandler Model.PartialResponseGenerated, New EventHandler(Of String)(AddressOf Model_PartialResponseGenerated)
        AddHandler Model.CompletedResponseGenerated, New EventHandler(Of String)(AddressOf Model_CompletedResponseGenerated)
        ' 生成结果
        Dim result = Await Model.GenerateAsync(ChatRequest, Nothing)
    End Sub


    ''' <summary>
    ''' 模型结果全部输入完毕
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Sub Model_CompletedResponseGenerated(sender, e)
        ''Debug.WriteLine(e)
        Invoke(Sub() If e IsNot Nothing Then RichTextBox1.Text = e)
    End Sub

    ''' <summary>
    ''' 模型结果正在输出
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Sub Model_PartialResponseGenerated(sender, e)
        ''Debug.WriteLine(e)
        Invoke(Sub() If e IsNot Nothing Then RichTextBox1.AppendText(e.ToString().Replace(vbCrLf, "")))
    End Sub

    ''' <summary>
    ''' 问题发送中
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Sub Model_PromptSent(sender, e)
        ''Debug.WriteLine(e)
    End Sub

C#示例

 /// <summary>
 /// 发送
 /// </summary>
 /// <param name="sender"></param>
 /// <param name="e"></param>
 private async void button1_Click(object sender, EventArgs e)
 {
     var apiKey = "sk-xxxxxxx";
     var model = new MoonshotChatModel8K(
     new MoonshotProvider(
     new MoonshotConfiguration()
     {
         ApiKey = apiKey,
         Endpoint = "api.moonshot.cn",
         ChatSettings = new OpenAiChatSettings()
         {
             UseStreaming = true,
             MaxTokens = 2000,
             FrequencyPenalty = 2
         }
     })
     );

     ChatRequest chatRequest = new()
     {
         Messages = new List<Providers.Message> {
         new() { Role = MessageRole.System, Content = "你是一个代码助手,打工人助手,Excel公式助手" },
         new() { Role = MessageRole.Human, Content =textBox1.Text }
     }
     };

     model.PromptSent += Model_PromptSent;
     model.PartialResponseGenerated += Model_PartialResponseGenerated;
     model.CompletedResponseGenerated += Model_CompletedResponseGenerated;


     var result = await model.GenerateAsync(chatRequest);
 }

 /// <summary>
 /// 模型结果全部输入完毕
 /// </summary>
 /// <param name="sender"></param>
 /// <param name="e"></param>
 void Model_CompletedResponseGenerated(object sender, string e)
 {
    // Console.WriteLine(e);
     Invoke(new Action(() => {
         if (e != null) {
             richTextBox1.Text = e;
         }
     }));
 }

 /// <summary>
 /// 模型结果正在输出
 /// </summary>
 /// <param name="sender"></param>
 /// <param name="e"></param>
 void Model_PartialResponseGenerated(object sender, string e)
 {
     // Console.WriteLine(e);

     Invoke(new Action(() => {
         if (e != null)
         {
            richTextBox1.AppendText(e.Replace("\r", ""));
         }
     }));
 }
 /// <summary>
 /// 问题发送中
 /// </summary>
 /// <param name="sender"></param>
 /// <param name="e"></param>
 void Model_PromptSent(object sender, string e)
 {
     Console.WriteLine(e);
 }