lundi 6 avril 2020

VBA - XML Web Log-In to USGA GHIN Website - Not Working

I have tried two VBA XLM methods for logging on to the USGA Website, it seems straight forward, but neither works?! To test this, you will need your own GHIN Number and Last Name. Can someone please point out how I an screwing this up?

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



Aucun commentaire:

Enregistrer un commentaire