zabpehely
/
remoteapptool
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 2 Wiki Activity

fixed #65 - Allow colons (:) in the address fields to enable IPv6

This commit is contained in:
Kim 2022-02-09 00:54:47 +11:00
parent ebae885253
commit b0272722b9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
remoteapp-tool/RemoteAppFunctions.vb
View File

@ -61,7 +61,7 @@ Module RemoteAppFunction
Public Sub ValidateDNSname(ByVal TheTextBox As TextBox) Public Sub ValidateDNSname(ByVal TheTextBox As TextBox)
' pattern matches any character that is NOT A-Z (allows upper and lower case alphabets) ' pattern matches any character that is NOT A-Z (allows upper and lower case alphabets)
Dim rx As New Regex("[^\p{L}LlUu0-9\-\._]") Dim rx As New Regex("[^\p{L}LlUu0-9\-\._:]")
If (rx.IsMatch(TheTextBox.Text)) Then If (rx.IsMatch(TheTextBox.Text)) Then
TheTextBox.Text = rx.Replace(TheTextBox.Text, "") TheTextBox.Text = rx.Replace(TheTextBox.Text, "")
TheTextBox.Select(TheTextBox.Text.Length, 0) TheTextBox.Select(TheTextBox.Text.Length, 0)