URI methods don't really work?

[Anil Gupte]

Both
Uri.CheckHostName(Name)
and
Uri.CheckSchemeName(Name)

return true no matter what I use in "Name" (for example asdasd.sdf)

Are these actually supposed to work? Is there a better way to check if a
user has entered a valid URL?

Thanx,
--
Anil Gupte
www.keeninc.net
www.icinema.com

[Michel Posseth [MCP]]

You may use this method

Public Function UriIsValid(ByVal uri As String) As Boolean

Dim ret As Boolean = False

If uri.ToLower().StartsWith("www.") Then uri = String.Concat("http://", uri)

Try

Dim WebReq As HttpWebRequest = HttpWebRequest.Create(uri)

Using WebResp As HttpWebResponse = WebReq.GetResponse()

ret = True

End Using

Catch ex As Exception

Return False

End Try

Return ret

End Function
HTH

Michel


"Anil Gupte" <an*******@icinema.comschreef in bericht
news:eF**************@TK2MSFTNGP03.phx.gbl...

Both
Uri.CheckHostName(Name)
and
Uri.CheckSchemeName(Name)

return true no matter what I use in "Name" (for example asdasd.sdf)

Are these actually supposed to work? Is there a better way to check if a
user has entered a valid URL?

Thanx,
--
Anil Gupte
www.keeninc.net
www.icinema.com

[Smokey Grindel]

might want to mention that would require an active internet or DNS server
connection to work ;)

"Michel Posseth [MCP]" <ms****@posseth.comwrote in message
news:%2****************@TK2MSFTNGP04.phx.gbl...

You may use this method

Public Function UriIsValid(ByVal uri As String) As Boolean

Dim ret As Boolean = False

If uri.ToLower().StartsWith("www.") Then uri = String.Concat("http://",
uri)

Try

Dim WebReq As HttpWebRequest = HttpWebRequest.Create(uri)

Using WebResp As HttpWebResponse = WebReq.GetResponse()

ret = True

End Using

Catch ex As Exception

Return False

End Try

Return ret

End Function
HTH

Michel


"Anil Gupte" <an*******@icinema.comschreef in bericht
news:eF**************@TK2MSFTNGP03.phx.gbl...

>Both
Uri.CheckHostName(Name)
and
Uri.CheckSchemeName(Name)

return true no matter what I use in "Name" (for example asdasd.sdf)

Are these actually supposed to work? Is there a better way to check if a
user has entered a valid URL?

Thanx,
--
Anil Gupte
www.keeninc.net
www.icinema.com

[Michel Posseth [MCP]]

:-) Thank you Smokey as i am on broadband line connected it has become so
normall to me that everyone is always connected

but for the case he is not

Public Function IsvalidURI(ByVal URI As String) As Boolean

If uri.ToLower().StartsWith("www.") Then uri = String.Concat("http://",
URI)
Dim RegexPattern As String =
"^((http://)|(https://))((([a-zA-Z0-9_-]*).?([a-zA-Z0-9_-]*))|(([a-zA-Z0-9_-]*).?([a-zA-Z0-9_-]*).?([a-zA-Z0-9_-]*)))/?([a-zA-Z0-9_/?%=&+#.-~]*)$"

Dim regex As New System.Text.RegularExpressions.Regex(RegexPattern)

Return regex.IsMatch(URI)

End Function


"Smokey Grindel" <no****@nospam.comschreef in bericht
news:ue**************@TK2MSFTNGP03.phx.gbl...

might want to mention that would require an active internet or DNS server
connection to work ;)

"Michel Posseth [MCP]" <ms****@posseth.comwrote in message
news:%2****************@TK2MSFTNGP04.phx.gbl...

>You may use this method

Public Function UriIsValid(ByVal uri As String) As Boolean

Dim ret As Boolean = False

If uri.ToLower().StartsWith("www.") Then uri = String.Concat("http://",
uri)

Try

Dim WebReq As HttpWebRequest = HttpWebRequest.Create(uri)

Using WebResp As HttpWebResponse = WebReq.GetResponse()

ret = True

End Using

Catch ex As Exception

Return False

End Try

Return ret

End Function
HTH

Michel


"Anil Gupte" <an*******@icinema.comschreef in bericht
news:eF**************@TK2MSFTNGP03.phx.gbl...

>>Both
Uri.CheckHostName(Name)
and
Uri.CheckSchemeName(Name)

return true no matter what I use in "Name" (for example asdasd.sdf)

Are these actually supposed to work? Is there a better way to check if
a user has entered a valid URL?

Thanx,
--
Anil Gupte
www.keeninc.net
www.icinema.com

[Anil Gupte]

Ah! That one is muh better.

Still I wish stuff MS gave you actually worked!

--
Anil Gupte
www.keeninc.net
www.icinema.com

"Michel Posseth [MCP]" <ms****@posseth.comwrote in message
news:OI**************@TK2MSFTNGP04.phx.gbl...

:-) Thank you Smokey as i am on broadband line connected it has become
so normall to me that everyone is always connected

but for the case he is not

Public Function IsvalidURI(ByVal URI As String) As Boolean

If uri.ToLower().StartsWith("www.") Then uri = String.Concat("http://",
URI)
Dim RegexPattern As String =
"^((http://)|(https://))((([a-zA-Z0-9_-]*).?([a-zA-Z0-9_-]*))|(([a-zA-Z0-9_-]*).?([a-zA-Z0-9_-]*).?([a-zA-Z0-9_-]*)))/?([a-zA-Z0-9_/?%=&+#.-~]*)$"

Dim regex As New System.Text.RegularExpressions.Regex(RegexPattern)

Return regex.IsMatch(URI)

End Function


"Smokey Grindel" <no****@nospam.comschreef in bericht
news:ue**************@TK2MSFTNGP03.phx.gbl...

>might want to mention that would require an active internet or DNS server
connection to work ;)

"Michel Posseth [MCP]" <ms****@posseth.comwrote in message
news:%2****************@TK2MSFTNGP04.phx.gbl...

>>You may use this method

Public Function UriIsValid(ByVal uri As String) As Boolean

Dim ret As Boolean = False

If uri.ToLower().StartsWith("www.") Then uri = String.Concat("http://",
uri)

Try

Dim WebReq As HttpWebRequest = HttpWebRequest.Create(uri)

Using WebResp As HttpWebResponse = WebReq.GetResponse()

ret = True

End Using

Catch ex As Exception

Return False

End Try

Return ret

End Function
HTH

Michel


"Anil Gupte" <an*******@icinema.comschreef in bericht
news:eF**************@TK2MSFTNGP03.phx.gbl...
Both
Uri.CheckHostName(Name)
and
Uri.CheckSchemeName(Name)

return true no matter what I use in "Name" (for example asdasd.sdf)

Are these actually supposed to work? Is there a better way to check if
a user has entered a valid URL?

Thanx,
--
Anil Gupte
www.keeninc.net
www.icinema.com

[Steve Gerrard]

Anil Gupte wrote:

Ah! That one is muh better.

Still I wish stuff MS gave you actually worked!

URI's can be relative, so just testing a string directly won't tell you much.

A better test to use is the IsWellFormedUriString function, specifying an
absolute uri.

This is a little stricter than the Regex in Michel's post. If you add Michel's
test for "www", you can get a pretty good test:

If myURI.ToLower().StartsWith("www.") Then
myURI = String.Concat("http://", myURI)
End If
If Uri.IsWellFormedUriString(myURI, UriKind.Absolute) then
' now you are getting somewhere
End If

[=?Utf-8?B?RmFtaWx5IFRyZWUgTWlrZQ==?=]

The remarks sections in MSDN describe pretty well why you are seeing the
behaviour. It also explains that CheckHostName(name) doesn't return a
boolean, but rather a UriHostNameType value.

"Anil Gupte" wrote:

Both
Uri.CheckHostName(Name)
and
Uri.CheckSchemeName(Name)

return true no matter what I use in "Name" (for example asdasd.sdf)

Are these actually supposed to work? Is there a better way to check if a
user has entered a valid URL?

Thanx,
--
Anil Gupte
www.keeninc.net
www.icinema.com

[Anil Gupte]

Yes, in fact I am using this fucntion:

Public Function IsValidURI(ByVal Name As String) As Boolean
Dim ValidURI As Boolean = False
If Uri.IsWellFormedUriString(Name, UriKind.RelativeOrAbsolute) Then
ValidURI = True
Else
ValidURI = False
End If
Name = Name.Replace("http://", "")
If Uri.CheckHostName(Name) Then
ValidURI = True
Else
ValidURI = False
End If
If Uri.CheckSchemeName(Name) Then
ValidURI = True
Else
ValidURI = False
End If
Return ValidURI
End Function

And only the first one works - that is URI.IsWellFormedUriString

--
Anil Gupte
www.keeninc.net
www.icinema.com

"Steve Gerrard" <my********@comcast.netwrote in message
news:m4******************************@comcast.com. ..

Anil Gupte wrote:

>Ah! That one is muh better.

Still I wish stuff MS gave you actually worked!

URI's can be relative, so just testing a string directly won't tell you
much.

A better test to use is the IsWellFormedUriString function, specifying an
absolute uri.

This is a little stricter than the Regex in Michel's post. If you add
Michel's test for "www", you can get a pretty good test:

If myURI.ToLower().StartsWith("www.") Then
myURI = String.Concat("http://", myURI)
End If
If Uri.IsWellFormedUriString(myURI, UriKind.Absolute) then
' now you are getting somewhere
End If

[Anil Gupte]

Hmm, thanx for that. I seem to remember it was a boolean return type but I
am obviously mistaken - let me try it.

Thanx again,
--
Anil Gupte
www.keeninc.net
www.icinema.com
www.wizo.tv
"Family Tree Mike" <Fa************@discussions.microsoft.comwrote in
message news:FD**********************************@microsof t.com...

The remarks sections in MSDN describe pretty well why you are seeing the
behaviour. It also explains that CheckHostName(name) doesn't return a
boolean, but rather a UriHostNameType value.

"Anil Gupte" wrote:

>Both
Uri.CheckHostName(Name)
and
Uri.CheckSchemeName(Name)

return true no matter what I use in "Name" (for example asdasd.sdf)

Are these actually supposed to work? Is there a better way to check if a
user has entered a valid URL?

Thanx,
--
Anil Gupte
www.keeninc.net
www.icinema.com