Function ChatGPT(prompt As String, Optional max_token As String) As String
    Dim url As String
    Dim api_key As String
    Dim request_body As String
    Dim response As String
    
    
    url = "网址"
    
    
    api_key = "key"
    
    
    request_body = "prompt=" & prompt & "&api_key=" & api_key & "&max_token=" & max_token
    
    
    With CreateObject("MSXML2.XMLHTTP")
        .Open "POST", url, False
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .send request_body
        response = .responseText
    End With
    
    
    ChatGPTXR = response
End Function
复制代码