Sub IDNToAscii(url As String) As String
Dim jo As JavaObject
Dim m As Matcher = Regex.Matcher("//([^\?]+)", url)
If m.Find Then
Dim a As String = jo.InitializeStatic("java.net.IDN").RunMethod("toASCII", Array(m.Group(1)))
Return url.SubString2(0, m.GetStart(1)) & a & url.SubString(m.GetEnd(1))
Else
Return url
End If
End Sub
Log(IDNToAscii("ws://mañana.com"))