Bron weergeven van webiste

[thomasderoo]

Hey,

Ja tuurlijk mag je mn functie gebruiken en hem aanpassen. Zou trouwens heel leuk zijn als je de aangepaste versie dan ook post zodat iedreeen die kan gebruiken :thumb:

Cheers
BN

    ' Converts an url in string format to a functional uri
    ' By De Dauw Jeroen - jun 2008 - 
    ' By De Roo  Thomas - feb 2009 -
    Private Function refineUrl(ByRef url As String) As Uri
        On Error Resume Next
        Dim fullUrl As String = url

        Dim isHttp As Boolean = Mid(url, 1, 7) = "http://"
        Dim isHttps As Boolean = Mid(url, 1, 8) = "https://"
        Dim isFtp As Boolean = Mid(url, 1, 6) = "ftp://"
        Dim isAbout As Boolean = "about:".Contains(Mid(url, 1, 6))

        Dim foundProtoc As Boolean = isHttp Or isHttps Or isFtp Or isAbout
        If Not foundProtoc Then fullUrl = "http://" & url

        If isHttp Then url = url.Substring(7)
        If isHttps Then url = url.Substring(8)
        If isFtp Then url = url.Substring(6)

        Dim foundExt As Boolean = url.Substring(url.Length - 4, 2).Contains(".")
        foundExt = foundExt Or url.Contains("/") Or url.Contains("?")
        If (Not foundExt Or url.Length <= 3) And Not isAbout Then fullUrl = "http://www.google.co.uk/search?hl=en&q=" & url

        Return New Uri(fullUrl)
    End Function