如何传递专有key进入forchange得到回应？

zhanglei1371

近期使用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

POST参数里有一个key=xxxxxxx。替换这个就可以了。主要是界面上怎么显示结果。返回的好像是json值。
我说的是免费的参数，收费的不知道什么构造组合，但是免费的key可以无限获取，相当于是收费，除非收费它还有4.0的

zhanglei1371

wkfy 发表于 2023-3-27 08:55
POST参数里有一个key=xxxxxxx。替换这个就可以了。主要是界面上怎么显示结果。返回的好像是json值。
我说 ...

前面的代码怎么修改，能否把post部分加上key后的代码放出来看看？对这一块不熟悉

wkfy

vb# 没有学过。只能提供参数给你自己完善。
https://api.aigcfun.com/api/v1/text?key=xxxxxx  
POST:
{"messages":[{"role":"user","content":"这里是提交给chatgtp的内容"}],"tokensLength":914,"model":"gpt-3.5-turbo"}

返回的也是Json。

lyie15

最近刚在弄这 个，要弄成软件方便调用，还是很麻烦的

misshe1845

专有要打赏丫

boxer

misshe1845 发表于 2023-3-27 10:24
专有要打赏丫

可以用免费的, 用完10次后再获取一次

misshe1845

boxer 发表于 2023-3-27 11:26
可以用免费的, 用完10次后再获取一次

我昨晚注册了chatGPT了