VBA - XML Веб-вход на веб-сайт USGA GHIN - не работает

Question

Я пробовал два метода VBA XML для входа на веб-сайт USGA, это кажется простым, но ни один из них не работает ?! Чтобы проверить это, вам понадобится ваш собственный номер GHIN и фамилия. Может кто-нибудь, пожалуйста, указать, как я облажался?

website = "https://www.ghin.com/login"

Sub Get_GHIN_Data()

Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim website As String
Dim price As Variant

website = "https://www.ghin.com/login"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
'request.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
request.send

response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response

'********* Method 1 ************************************
'Dim oLogin As Object, oPassword As Object
'Set oLogin = .document.getElementsByName("ghinNumber")(0)
'Set oPassword = .document.getElementsByName("lastName")(0)

'oLogin.Value = ghinNumber  'real GHIN NUMBER
'oPassword.Value = LastName   'real Last Name
'html.document.forms(0).submit

'********* Method 2 ************************************
'html.getElementById("ghinNumber").Value = "ghinNumber"  'real GHIN NUMBER
'html.getElementById("lastName").Value = "Last name"      'real Last Name
'html.getElementClassName("btn fill cardinal").Click
'html.forms(0).submit

End Sub

Answer 1

Вы пробовали этот путь? Я думаю, что это будет работать.

Sub GetInformation()
    Const Url = "https://api2.ghin.com/api/v1/public/login.json?"
    Dim Http As New XMLHTTP60, ghinNum$, lastName$

    ghinNum = ""            'put your ghinNum here
    lastName = ""           'put your lastName here

    With Http
        .Open "GET", Url & "ghinNumber=" & ghinNum & "&lastName=" & lastName & "&remember_me=false", False
        .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/80.0.3987.163 Safari/537.36"
        .setRequestHeader "Referer", "https://www.ghin.com/login"
        .send
    End With

    MsgBox Http.responseText
End Sub