URL auf Verfügbarkeit prüfen

1
2
3
4
5
6
7
8
9
10

Public Function CheckURL(ByVal URL As String) As Boolean
    Try
        Dim Response As Net.WebResponse = Nothing
        Dim WebReq As Net.HttpWebRequest = Net.HttpWebRequest.Create(URL)
        Response = WebReq.GetResponse
        Response.Close()
        Return True
    Catch ex As Exception
    End Try
End Function