Feedback

URL checken

Sprache: VB

Habe die Prüfung der URL auf heutige Voraussetzungen angepasst.

  Function URLOk(ByVal Tx As String) As Boolean
    Try
      Dim hostInfo As System.Net.IPHostEntry _
         = System.Net.Dns.GetHostEntry(Tx)
      Return True
    Catch
      Return False
    End Try
  End Function

  Function URLOk(ByVal Tx As String) As Boolean
    Try
      Dim hostInfo As System.Net.IPHostEntry _
         = System.Net.Dns.GetHostEntry(Tx)
      Return True
    Catch
      Return False
    End Try
  End Function