Vb.net -创建url的正则表达式

Imports System.Text.RegularExpressions

Module Module1
    Sub Main()
        Dim urlPattern As String = "^(http|https)://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?$"
        Dim url As String = "http://www.example.com"

        Dim regex As New Regex(urlPattern)
        Dim isMatch As Boolean = regex.IsMatch(url)

        If isMatch Then
            Console.WriteLine("URL格式正确")
        Else
            Console.WriteLine("URL格式错误")
        End If

        Console.ReadLine()
    End Sub
End Module