带身份验证的VB.Net HttpClient GET请求

Imports System.Net.Http
Imports System.Net.Http.Headers

Public Class Program
    Public Shared Sub Main()
        ' 创建HttpClient实例
        Dim client As New HttpClient()

        ' 设置身份验证信息
        Dim username As String = "your_username"
        Dim password As String = "your_password"
        Dim credentials As String = Convert.ToBase64String(Encoding.ASCII.GetBytes(username + ":" + password))
        client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Basic", credentials)

        ' 发送GET请求
        Dim url As String = "https://api.example.com/resource"
        Dim response As HttpResponseMessage = client.GetAsync(url).Result

        ' 处理响应
        If response.IsSuccessStatusCode Then
            Dim result As String = response.Content.ReadAsStringAsync().Result
            Console.WriteLine("请求成功，响应内容：" + result)
        Else
            Console.WriteLine("请求失败，错误码：" + response.StatusCode.ToString())
        End If
    End Sub
End Class