VB.NET中的Curl请求等效项

Imports System.Net

Public Class CurlEquivalent
    Public Shared Function SendGetRequest(url As String) As String
        Dim responseContent As String = ""

        Try
            Dim request As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
            request.Method = "GET"

            Using response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
                Using reader As New System.IO.StreamReader(response.GetResponseStream())
                    responseContent = reader.ReadToEnd()
                End Using
            End Using
        Catch ex As Exception
            ' 处理异常
        End Try

        Return responseContent
    End Function
End Class

Imports System.Net
Imports System.Text

Public Class CurlEquivalent
    Public Shared Function SendPostRequest(url As String, data As String) As String
        Dim responseContent As String = ""

        Try
            Dim request As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
            request.Method = "POST"
            request.ContentType = "application/x-www-form-urlencoded"

            Dim requestData As Byte() = Encoding.UTF8.GetBytes(data)
            request.ContentLength = requestData.Length

            Using requestStream As System.IO.Stream = request.GetRequestStream()
                requestStream.Write(requestData, 0, requestData.Length)
            End Using

            Using response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
                Using reader As New System.IO.StreamReader(response.GetResponseStream())
                    responseContent = reader.ReadToEnd()
                End Using
            End Using
        Catch ex As Exception
            ' 处理异常
        End Try

        Return responseContent
    End Function
End Class