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
Kommentare zum Snippet