VB.net中的IGDB V4 Post请求

Imports System.Net
Imports System.IO

Public Class IGDBRequest
    Public Sub SendPostRequest()
        Dim url As String = "https://api-v4.igdb.com/games"
        Dim apiKey As String = "YOUR_API_KEY"
        Dim postData As String = "fields=name,summary&limit=10"

        Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
        request.Method = "POST"
        request.Headers.Add("Client-ID", apiKey)
        request.Headers.Add("Authorization", "Bearer YOUR_ACCESS_TOKEN")
        request.ContentType = "application/x-www-form-urlencoded"
        request.ContentLength = postData.Length

        Using streamWriter As New StreamWriter(request.GetRequestStream())
            streamWriter.Write(postData)
            streamWriter.Flush()
            streamWriter.Close()

            Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
            Using streamReader As New StreamReader(response.GetResponseStream())
                Dim result As String = streamReader.ReadToEnd()
                ' 在result中可以获取到返回的游戏数据，进行后续处理
            End Using
        End Using
    End Sub
End Class