Войдите на сайт и верните статус входа - PullRequest
Новая
       118

Войдите на сайт и верните статус входа

0 голосов
/ 21 июня 2020

Мне нужно войти в список веб-сайтов и вернуть статус входа.

Я могу проверить URL-адрес, используя указанный ниже код VBA, но мне нужна помощь, чтобы вернуть статус входа.

Может ли кто-нибудь помочь мне в этом?

СКРИПТ: 

    Function IsURLValid(URL As String) As Boolean
    

    
    
    Dim Request As Object
    Dim Result  As String

    On Error Resume Next
    

    Set Request = CreateObject("WinHttp.WinHttpRequest.5.1")
    If Err.Number <> 0 Then
        MsgBox "Could not create the WinHttpRequest object!", vbCritical, "WinHttpRequest Error"
        Exit Function
    End If
    
 
    Request.Open "GET", URL, False
    

    Request.send
    
   
    Result = Request.StatusText
            
    
    If InStr(1, Result, "OK", vbTextCompare) > 0 Then IsURLValid = True
    
    
    Set Request = Nothing

End Function

введите описание изображения здесь

...