从vb.net中的httpwebrequest获取Json响应

Imports System.Net
Imports System.IO

Public Class HttpRequestExample
    Public Shared Function GetJsonResponse(url As String) As String
        Dim responseJson As String = ""

        Try
            ' 创建HttpWebRequest对象
            Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
            
            ' 设置请求方法为GET
            request.Method = "GET"

            ' 发送HTTP请求并获取响应
            Using response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
                ' 读取响应流
                Using streamReader As New StreamReader(response.GetResponseStream())
                    responseJson = streamReader.ReadToEnd()
                End Using
            End Using
        Catch ex As Exception
            ' 处理异常
        End Try

        Return responseJson
    End Function

    Public Shared Sub Main()
        Dim url As String = "http://example.com/api/data"
        Dim jsonResponse As String = GetJsonResponse(url)

        ' 处理Json响应
        ' ...
    End Sub
End Class