打工人[ExcelAI插件]

一执成念

1. Sub test()
   
2.     Dim strText As String
   
3.     Dim strData As String
   
4.     strData = "{""model"": ""moonshot-v1-8k"", " _
   
5.         & """messages"": [" _
   
6.         & "{""role"": ""system"", ""content"": ""你是 Kimi，由 Moonshot AI 提供的人工智能助手，你更擅长中文和英文的对话。你会为用户提供安全，有帮助，准确的回答。同时，你会拒绝一切涉及恐怖主义，种族歧视，黄色暴力等问题的回答。Moonshot AI 为专有名词，不可翻译成其他语言。""}, " _
   
7.         & "{""role"": ""user"", ""content"": ""你好，我叫李雷，1+1等于多少？""}" _
   
8.         & "], ""temperature"": 0.3}"
   
9.     r
   
10.     With CreateObject("Microsoft.XMLHTTP")
    
11.         .Open "POST", "https://api.moonshot.cn/v1/chat/completions", False
    
12.         .SetRequestHeader "Content-Type", "application/json; charset=utf-8"
    
13.         .SetRequestHeader "Authorization", "Bearer sk-poFpFo8yaQCKcBkrCGntQgrYaPxJFMDyODuG1uLOmUudMFVS" '密钥改成自己的
    
14.         .send strData
    
15.         strText = .responseText
    
16.     End With
    
17.     Debug.Print Split(Split(strText, """content"":""")(1), """}")(0)
    
18. End Sub
    
19. 
    

复制代码

harlem1215

之前一直用百度AI帮着修改代码。原来这里还有这神器

Enocheasty

这玩意儿是不是收费的？我之前也想找个AI接口，但是不想出钱的，总不能自己搞个免费软件还要出钱给别人用AI吧，找了一段时间之后，我就放弃了。

一执成念

Enocheasty 发表于 2024-8-25 21:04
这玩意儿是不是收费的？我之前也想找个AI接口，但是不想出钱的，总不能自己搞个免费软件还要出钱给别人用AI ...

有免费的更好