如何在vb.net中检查URL是HTTP还是HTTPS

Imports System.Net

Public Class UrlChecker
    Public Function CheckProtocol(url As String) As String
        Try
            Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
            request.Method = "HEAD"

            Using response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
                Return If(response.ResponseUri.Scheme = Uri.UriSchemeHttps, "HTTPS", "HTTP")
            End Using
        Catch ex As WebException
            ' 处理异常情况，比如无法连接到URL
            Return "Unknown"
        End Try
    End Function
End Class

Dim checker As New UrlChecker()
Dim url As String = "https://www.example.com"
Dim protocol As String = checker.CheckProtocol(url)

Console.WriteLine("The URL protocol is: " & protocol)