Function SetHeaders(ByRef w As WinHttpRequest)
Dim EnableRedirects_Value As String
w.SetClientCertificate mvarCertificate ' Contain the text of the certificate
EnableRedirects_Value = w.Option(WinHttpRequestOption_EnableRedirects)
w.SetRequestHeader "Accept", "application/json"
w.SetRequestHeader "Content-Type", "application/json"
w.SetRequestHeader "Platform", "android"
w.SetRequestHeader "AppVersion", Version
w.SetRequestHeader "OSVersion", "4.4.1"
w.SetRequestHeader "Model", "Samsung"
End Function