(前提,①需要你的网络畅通,能连接openai官网;②自行解决chatgpt账号注册;③还有美元信用卡支付api)
网址:https://platform.openai.com/docs/api-reference/authentication
Dim hc As New HttpClient("https://api.openai.com/v1/chat/completions") hc.Headers.Add("Authorization", "Bearer 你的apikey") hc.ContentType = "application/json" Dim jo As New JObject jo("model") = "gpt-3.5-turbo" jo("temperature") = 0.7 Dim ja As New JArray Dim jo1 As New JObject jo1("role") = "user" jo1("content") = "写一篇关于""狐表低代码开发工具""很好用的新闻稿" ja.Add(jo1) jo("messages") = ja hc.Content = jo.ToString Dim s As String = hc.GetData Output.Show(s)
{ "id": "chatcmpl-78KekPp4l1gVqWQW8ZOoGDUzkncNK", "object": "chat.completion", "created": 1682220382, "model": "gpt-3.5-turbo-0301", "usage": { "prompt_tokens": 36, "completion_tokens": 456, "total_tokens": 492 }, "choices": [{ "message": { "role": "assistant", "content": "近日,一款名为“狐表”的低代码开发工具走进了广大开发者的视野。据悉,这款工具以其简单易用、高效便捷的特点,受到了广大开发者的欢迎。\n\n狐表低代码开发工具是一款基于云端的工具,无需任何编程经验,即可轻松实现各类应用的开发。其拥有强大的可视化编辑功能,用户只需通过拖拽、复制、粘贴等简单操作,即可完成各种复杂的应用程序开发。\n\n狐表低代码开发工具不仅支持多种应用程序开发,还提供了丰富的应用程序模板,用户可以根据自己的需求自由选择。同时,狐表还支持自定义应用程序模板,用户可以根据自己的需求,自行设计开发自己的应用程序。\n\n除此之外,狐表低代码开发工具还具有强大的数据管理和分析功能。用户可以通过狐表的数据管理和分析功能,轻松地实现数据的录入、管理和分析。同时,狐表还支持多种数据格式,包括Excel、CSV、JSON等。\n\n总的来说,狐表低代码开发工具是一款非常实用的工具,其简单易用、高效便捷的特点,受到了广大开发者的喜爱。未来,狐表低代码开发工具将继续不断创新,为广大开发者提供更加优质的服务。" }, "finish_reason": "stop", "index": 0 }] }