http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=194892&page=2
试试
Dim hc As New HttpClient("https://api.deepseek.com/v1/chat/completions")
hc.ContentType = "application/json"
dim API_KEY As String = "your_api_key_here"
hc.Headers.Add("Authorization", "Bearer " & API_KEY)
Dim jo As New JObject
jo("model") = "deepseek-chat"
jo("messages") = new JArray
jo("messages").Add(New Jobject)
jo("messages")(0)("role") = "user"
jo("messages")(0)("content") = "某某prompt"
hc.Content = jo.tostring
Dim ret As String = hc.GetData()
MessageBox.Show(ret)
加好友 
发短信
Post By：2025/2/7 9:14:00 [显示全部帖子]
