[RegExp] Маска для адреса URL

$URL = "http://aaa.bbb.ccc"
$Pattern = "^https?://[[:alpha:].-]+\.[[:alpha:]]{2,4}(?(?=:).\d{2,4})(?(?=/)\S*)$"
$a = StringRegExp ($URL, $Pattern)
MsgBox (0,"",$a)

$url = "http://aaa--aaa.bbb.ccc"
$a = StringRegExp($url, "(?i)^http(s)?://[a-z0-9-]+(.[a-z0-9-]+)*(:[0-9]+)?(/.*)?$")
ConsoleWrite($a & @LF)

$url = "http://aaa--aaa.bbb.ccc"
$pattern = "(?i)^http(s)?://.*?(:?--|\.\.).*?$"
$a = 1-StringRegExp($url, $pattern)
ConsoleWrite($a & @LF)

$pattern = "(?i)(?(DEFINE)(?<incorrect>^.*?(:?--|\.\.)))(?(?=(?&incorrect))(*FAIL)|^http(s)?://[[:alpha:].-]+\.[[:alpha:]]{2,4}(?(?=:).\d{2,4})(?(?=/)\S*)$)"

$sURL = "http://autoit-script.ru"
$iValid = StringRegExp($sURL, "^(http[s]?:\/\/){0,1}(www\.){0,1}[a-zA-Z0-9\.\-]+\.[a-zA-Z]{2,5}[\.]{0,1}", 0)
If $iValid Then
   MsgBox(64, "", $iValid = True)
Else
   MsgBox(16, "", $iValid = True)
EndIf

$Pattern = "(?(?=(.*?[\.-]{2,}))(*FAIL)|https?://[[:alpha:]]+[[:alpha:].-]+\.[[:alpha:]]{2,4}(?(?=:).\d{2,4})(?(?=/)[^\s\.,]*)$)"