Excel isrlgood

Public Function IsURLGood(url As String)
    Dim request As Object
    Set request = CreateObject("WinHttp.WinHttpRequest.5.1")
    On Error GoTo haveError
    With request
        .Open "HEAD", url
        .Send
        IsURLGood = .Status
    End With
    Exit Function
haveError:
    IsURLGood = Err.Description
End Function

Similar codes

0 vote245 views1 answer
Asp.netcore: develop on win10 run on ubuntu
C#
0 vote258 views1 answer
Change character velocity unity
C#Unity
0 vote235 views1 answer
How to add item in list at first position c#
C#
0 vote224 views1 answer
Options Pattern how to use
C#
0 vote223 views1 answer
Blazor use static json files
C#
0 vote239 views1 answer
C# regex replace all spaces with blank
C#
0 vote244 views1 answer
How to stream video from vlc in c#
C#
-1 vote251 views1 answer
Unity destroy gameobject with delay
C#
0 vote273 views2 answers
Array of array
C#
1 vote228 views1 answer
Get item from icollection
C#