XMLHTTP login via google

Question

I\'m trying to log in via google.

Sub logingoogle()

Dim http As MSXML2.XMLHTTP60
Dim logUrl As String
Dim gmemail As String, gmPass As String

Set http = New MSX