HTTPS/Authenticated: Difference between revisions

{{works with|Visual Basic|5}}

{{works with|Visual Basic|6}}

{{works with|VBA|Access 97}}

{{works with|VBA|6.5}}

{{works with|VBA|7.1}}

<lang vb>Sub Main()

Dim HttpReq As WinHttp.WinHttpRequest

' in the "references" dialog of the IDE, check

' "Microsoft WinHTTP Services, version 5.1" (winhttp.dll)

Const HTTPREQUEST_PROXYSETTING_PROXY As Long = 2

#Const USE_PROXY = 1

Set HttpReq = New WinHttp.WinHttpRequest

HttpReq.Open "GET", "https://www.abc.com/xyz/index.html"

HttpReq.SetCredentials "<username>", "<password>", 0&

#If USE_PROXY Then

HttpReq.SetProxy HTTPREQUEST_PROXYSETTING_PROXY, "10.167.1.1:80"

#End If

HttpReq.SetTimeouts 1000, 1000, 1000, 1000

HttpReq.Send

Debug.Print HttpReq.ResponseText

End Sub</lang>