用VB做一个HTTP接口发送函数示例

以下是一个使用VB编写的简单示例，演示如何使用HTTP接口发送请求：

Imports System.Net
Imports System.IO

Module Module1
    Sub Main()
        Dim url As String = "https://api.example.com/endpoint"
        Dim request As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
        request.Method = "POST"
        
        ' 设置请求头部信息
        request.ContentType = "application/json"
        
        ' 设置请求体内容
        Dim requestBody As String = "{""key"": ""value""}"
        Dim requestBodyBytes As Byte() = System.Text.Encoding.UTF8.GetBytes(requestBody)
        request.ContentLength = requestBodyBytes.Length
        Using requestStream As Stream = request.GetRequestStream()
            requestStream.Write(requestBodyBytes, 0, requestBodyBytes.Length)
        End Using
        
        Try
            Using response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
                Using responseStream As Stream = response.GetResponseStream()
                    Using reader As New StreamReader(responseStream)
                        Dim responseString As String = reader.ReadToEnd()
                        Console.WriteLine(responseString)
                    End Using
                End Using
            End Using
        Catch ex As WebException
            ' 处理异常情况
            Console.WriteLine(ex.Message)
        End Try
    End Sub
End Module

请将示例代码中的URL、请求头部信息和请求体内容替换为您实际需要使用的值。这个示例使用了`HttpWebRequest`类来发送HTTP请求，并使用`StreamReader`类来读取响应内容。您可以根据自己的具体需求进行修改和扩展。