Prüfen, ob URL erreichbar ist (.NET) Mit dieser Funktion wird geprüft, ob die angegebene URL (Internetadresse) existiert und ob dieses erreichbar ist.
Autor:   Dieter Otter	Bewertung:	Views:  20.970
www.tools4vb.de	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Mit nachfolgender Funktion lässt sich prüfen, ob die angegebene URL (Internetadresse) existiert und ob diese erreichbar ist.

Public Function IsURLAvail(ByVal sURL As String) As Boolean
  ' Prüft, ob die angegebene URL erreichbar ist
  Try
    Dim oRequest As Net.HttpWebRequest = Net.HttpWebRequest.Create(sURL)
 
    ' Default-Proxy Einstellungen
    With oRequest
      .Proxy = System.Net.WebRequest.DefaultWebProxy
      .Credentials = System.Net.CredentialCache.DefaultCredentials
    End With
 
    Dim oResponse As Net.WebResponse = oRequest.GetResponse
    oResponse.Close()
 
    ' URL ist erreichbar
    Return True
  Catch ex As Exception
    ' URL ist nicht erreichbar
    Return False
  End Try
End Function

Aufrufbeispiel:

Dim sURL As String = "http://www.vbarchiv.net"
 
MsgBox("Die URL " & sURL & " ist " & _
  IIf(IsURLAvail(sURL), "", "nicht") & " erreichbar!")

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.