Testen of het een URL is

[famlam]

Twee vraagjes over URL's:

1. Hoe kun je controleren of een string een url is?
2. Hoe kun je controleren of de url een 'geldige' url is?

oftewel:
;lajsdfie --> allebei false
http://www.ieieieieirkkekkekrieowekek.com/ --> eerste true, tweede false
http://www.helpmij.nl/forum/ --> allebei true

 

[Dragon707]

Twee vraagjes over URL's:

1. Hoe kun je controleren of een string een url is?
2. Hoe kun je controleren of de url een 'geldige' url is?

oftewel:
;lajsdfie --> allebei false
http://www.ieieieieirkkekkekrieowekek.com/ --> eerste true, tweede false
http://www.helpmij.nl/forum/ --> allebei true

Probeer dit eens:

if left("http://www.helpmij.nl/forum/",7) = "http://" or left("www.helpmij.nl/forum/",4) = "www." Then
'Het is een url (tijd voor een feestje)
else
'Het is geen url... Jammer geen feestje
end if

 

[famlam]

Probeer dit eens:

if left("http://www.helpmij.nl/forum/",7) = "http://" or left("www.helpmij.nl/forum/",4) = "www." Then
'Het is een url (tijd voor een feestje)
else
'Het is geen url... Jammer geen feestje
end if

dus http://www.klajweut9w43u7q28t5\]atl'\atop[\]a[pwo4et0-49q]a\e]w-tg zou ook werken als geldige url... niet echt dus.. deze zou allebei false moeten geven...

 

[Pizara]

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        MsgBox(IsValidURL(New System.Uri("http://www.prut***.nl")))

    End Sub

    
    Public Function IsValidURL(ByVal url As System.Uri) As Boolean

        Dim webResponse As System.Net.HttpWebResponse = Nothing

        Try
            Dim webRequest As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
            webResponse = DirectCast(webRequest.GetResponse(), System.Net.HttpWebResponse)
            Return True
        Catch ex As Net.WebException
            MsgBox(ex.Message)
            Return False
        Finally
            If webResponse IsNot Nothing Then webResponse.Close()
        End Try

    End Function


End Class