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

2 votes309 views2 answers
C# winforms select folder dialogue
C#
0 vote310 views1 answer
Set data annotation text in model c#
C#
5 votes329 views2 answers
More than one DbContext was found
C#
0 vote324 views1 answer
New texture unity
C#
7 votes338 views2 answers
Unity how to create a prefab
C#Unity
0 vote313 views3 answers
How to find all role in mysql
C#
0 vote304 views1 answer
A infinite loop in text box update ui c#
C#
0 vote355 views1 answer
Get all properties of an object including children c#
C#
0 vote322 views1 answer
Hide component in component menu
C#
1 vote295 views1 answer
Get all devices connected using player input manager unity
C#