如何传递专有key进入forchange得到回应？
近期使用chat.forchange.cn这个国产对话网站，发现效果不错。想放到一个窗体里方便调用。但是免费的key只能对话10次，网上找到的关键代码如下（vb.net）：
Public Function GetInfo(str As String) As String
Dim xmlHttp = CreateObject("MSXML2.XMLHTTP")
xmlHttp.Open("POST", "https://api.forchange.cn/", False)
xmlHttp.setRequestHeader("Content-Type", "application/json")
xmlHttp.send(postp(str))
Do While xmlHttp.ReadyState <> 4
XlAppObject.Application.DoEvents()
Loop
Dim strReturn As String
strReturn = xmlHttp.ResponseText
GetInfo = strReturn
End Function
'提交字符串
Function postp(str)
Dim s = "{" & """prompt""" & ":"""
Dim dt = str & "\nCurrent Time(北京时间):" & Format(Now, "yyyy-mm-dd dddd hh:mm:ss")
Dim s2 = dt & "\nAI:""" & "}"
postp = s & s2
End Function
Public Class chat
Public choices As List(Of dt)
Public Class dt
Public text As String
Public index As String
Public finish_reason As String
End Class
End Class但是当我购买了一个key后，就能在一个月内使用9999次。那么，如何将自己购买的专有key传递进去获取到回复的信息呢？
关于专有key：打开网页后点自动获取，也能获取到一个免费的专有key，只不过只能调用10次/每天。
可以用免费的这个测试下。
谢谢！
本帖最后由 wkfy 于 2023-3-27 08:58 编辑
POST参数里有一个key=xxxxxxx。替换这个就可以了。主要是界面上怎么显示结果。返回的好像是json值。
我说的是免费的参数，收费的不知道什么构造组合，但是免费的key可以无限获取，相当于是收费，除非收费它还有4.0的 wkfy 发表于 2023-3-27 08:55
POST参数里有一个key=xxxxxxx。替换这个就可以了。主要是界面上怎么显示结果。返回的好像是json值。
我说 ...
前面的代码怎么修改，能否把post部分加上key后的代码放出来看看？对这一块不熟悉 vb# 没有学过。只能提供参数给你自己完善。
https://api.aigcfun.com/api/v1/text?key=xxxxxx
POST:
{"messages":[{"role":"user","content":"这里是提交给chatgtp的内容"}],"tokensLength":914,"model":"gpt-3.5-turbo"}
返回的也是Json。 最近刚在弄这 个，要弄成软件方便调用，还是很麻烦的 专有要打赏丫 misshe1845 发表于 2023-3-27 10:24
专有要打赏丫
可以用免费的, 用完10次后再获取一次:lol boxer 发表于 2023-3-27 11:26
可以用免费的, 用完10次后再获取一次
我昨晚注册了chatGPT了
页:
[1]